Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;

open my $NAMES, '<', './file2.txt' or die 'Could not open file2.txt';
...
    say unless $names{(split)[1]};
}
close $DATA;
  2. or download this
    ID alan135/xkr $work(b05bfn00un0c3)/b05bfn00un0c3 ; #<= b05bfn00un0d0 
+Size:5848.270996
ID sam012/pp $work(b05bfn00ld0p7)/b05bfn00ld0p7 ; #<= b05bfn00ld0s0 Si
+ze:INFINITY
ID Steve9018 $work(b05bfn00ld0p7)/b05bfn00ld0p7 ; #<= b05bfn00ld0s0 Si
+ze:INFINITY