Help for this page

Select Code to Download

Select or download this
```
join <(sort -b file1) <(sort -b file2)
```

Select or download this

use warnings; use strict;
use Quantum::Superpositions; 
...
    while(<$m>) { $_=~/(\S+)/ and $1==$s and print; }; 
}
__END__