Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
    my @row = split /\t/, $line;
    print {$fh[$_]} $row[$_], "\n" for 0..$#row;
}

Select or download this

#!/usr/bin/env perl
use warnings;
...
    systemx('/usr/bin/time','perl',$PERLSCRIPT,$infn);
    systemx('diff','-rq',$expdir,$workdir);
}