From 522bfb1a8e9bbe1238dc2fe7991ff42de38b1697 Mon Sep 17 00:00:00 2001 From: Katze Miau Date: Sat, 3 Dec 2011 12:18:12 +0000 Subject: add primitive shuf diff --git a/files/common/sbin/shuf b/files/common/sbin/shuf new file mode 100755 index 0000000..8d82d4d --- /dev/null +++ b/files/common/sbin/shuf @@ -0,0 +1,16 @@ +#!/usr/bin/awk -f +BEGIN{ + srand() # seed by time + srand(seed+srand()) # allow additional external seed +} +{ lines[++d]=$0 } +END{ + while (d > 0) { + if (e==d) {break} + r = int(1 + rand() * d) + print lines[r] + lines[r] = lines[d] + delete lines[d] + --d + } +} -- cgit v0.10.1