File: shuffle.pl

package info (click to toggle)
openswan 1%3A2.4.6%2Bdfsg.2-1.1
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 24,996 kB
  • ctags: 16,877
  • sloc: ansic: 121,112; sh: 19,524; xml: 9,699; asm: 4,422; perl: 4,087; makefile: 3,367; tcl: 713; exp: 657; yacc: 396; pascal: 328; lex: 289; sed: 265; awk: 124; lisp: 3
file content (29 lines) | stat: -rw-r--r-- 375 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
#!/usr/bin/perl

# Takes a file as standard input, and emits a random order 
# for the file. Argument says how many lines to actually emit.

$howmany=shift;
if($howmany < 1) {
  $howmany=1;
}

@lines=();

$count=1;

while(<>) {
  $lines[$count++]=$_;
}

# init random seed.
srand(time|$$);

while($howmany-- > 0) {
  $which=int(rand($count))+1;

  print $lines[$which];
}