projects
/
migration-tools.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
69a72db04041b2a6d58948e33099a509194a3a9a
[migration-tools.git]
/
oneliners
/
spit_sample.pl
1
#!/usr/bin/perl
2
my @lines = <>;
3
4
foreach my $i ( 1..20 ) {
5
$length = scalar( @lines );
6
$idx = int rand ($length);
7
print $lines[$idx];
8
splice(@lines,$idx,1);
9
}