Help for this page

Select Code to Download

Select or download this
```
rand () < 0.5 and print while <>;
```

Select or download this

open my $rndLines, '<', "rand_sorted.txt" or die "Can't open rand_sort
+ed.txt: $!";
my %lines = map {$_ => undef} grep {chomp; length} <$rndLines>;
close $rndLines;

exists $lines{$.} and print while <>;