Lucy McWilliam wrote:
>          if ($i == $x) {
>             $position{$n} = 1;
>          }
>          if ($j == $x) {
>             $position{$n} = 1;
>          }

This looks as if it can be reduced to

    if ($i == $x || $j == $x) {
        $position{$n} = 1;
    }

>    open(OUT, ">$x);

Wot, no error checking?

>       if ($n) {
>          print OUT "$key\n";
>       } else {
>          print OUT "$key\n";
>       }

Huh?

if(condition) { do stuff } else { do same stuff anyway } ?

Cheers,
Philip
-- 
Philip Newton <[EMAIL PROTECTED]>
All opinions are my own, not my employer's.
If you're not part of the solution, you're part of the precipitate.

Reply via email to