You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
271 B
16 lines
271 B
open foo, $ARGV[0] or die "can't open $ARGV[0]";
|
|
|
|
$count = 0;
|
|
while (<foo>) {
|
|
$Array[$count] = $_;
|
|
$count ++;
|
|
}
|
|
|
|
@sortedlist = sort( {$b <=> $a } @Array);
|
|
|
|
$newcount = 0;
|
|
|
|
while ($newcount < $count) {
|
|
print $sortedlist[$newcount];
|
|
$newcount++;
|
|
}
|