Mercurial > repos > jesse-erdmann > tapdance
view lib/shuffle.pl @ 3:17ce4f3bffa2 default tip
Uploaded
author | jesse-erdmann |
---|---|
date | Tue, 24 Jan 2012 18:33:41 -0500 |
parents | 1437a2df99c0 |
children |
line wrap: on
line source
@list = (1,2,3,4); foreach $val(@list){ print "$val"; } print "\n"; shuffle(\@list); foreach $val(@list){ print "$val"; } open SOURCE, "< cis4cluster.txt"; open OUT, "> shuffled.txt"; while (defined($line = <SOURCE>)) { chomp $line; @field= split(/\t/, $line); $name = shift(@field); shuffle(\@field); print OUT "$name"; foreach $val(@field) { print OUT "\t$val"; } print OUT "\n"; } sub shuffle { my $array = shift; my $i; for ($i = @$array; --$i; ) { my $j = int rand ($i+1); next if $i == $j; @$array[$i,$j] = @$array[$j,$i]; } }