ref: 3fefdf7e247a5e869097f51716055a386950d3c5
parent: cb8d0756a245a61662c8bc63dd0c054c7e0dfdb3
author: qwx <qwx@sciops.net>
date: Sun Sep 26 20:54:36 EDT 2021
sm2ger: replace stupid shl/sed/grep -v/awk/sed pipeline with a single awk previous silly tr/sed shit overflows command line length pretty quick too
--- a/bin/sm2ger
+++ b/bin/sm2ger
@@ -1,9 +1,24 @@
#!/bin/rc -e
p=$home/p/sm2/ger
-cd $p
-shl <db | sed 20q >>db0
-grep -v `"{awk '{print $5}' db0 | tr '
-' '|' | sed 's/\|$//;s/\|/\| /g;s/^/ /'} db >db00
-mv db00 db
+cd $p || exit
+awk -v 'nword='20 '
+{
+ d[NR] = $0
+}
+END{
+ srand()
+ for(i=1; i<=nword; i++){
+ do
+ x = int(rand()*1e6) % length(d)
+ while(! (x in d))
+ h[i] = d[x]
+ delete d[x]
+ }
+ for(i in h)
+ print h[i] >>"db0"
+ for(i in d)
+ print d[i]
+}' db >/tmp/sm2.$pid
+mv /tmp/sm2.$pid db
's&m2' db0 >db1
cp db1 db0