source: trunk/tp_subversion/randomf.pl @ 406

#!/usr/bin/perl

use strict;
use warnings;

my @f = (grep { $_ !~ /poemes.txt$/ } glob('tpfiles/*.txt'))[0 .. $ARGV[0]-1];

my %files = map { $_ => rand } @f;

foreach (sort { $files{$a} <=> $files{$b} } keys %files) {
    s:.*/::;
    print "$_\n";
}