運(yùn)行速度

TrishaTie

各位大神， 我最近寫了一小段perl， 但是運(yùn)行起來速度很慢，怎樣才能讓它快點， 先謝謝諸位了~
foreach my $mfcn(@mfcns)
{
        my @mfcnumbers;
        my $fh=$mfcn;
        open $fh, ($mfcdir."\\".$mfcn) or die$!;
        while (my $line=<$fh>)
        {
                chomp($line);
                my @linenumbers=split/\t+/,$line;
                push @mfcnumbers,$#linenumbers;               
        }
        my $printline=join" ",@mfcnumbers;
        print NUMF $mfcn." : ".$printline."\n";
        close $fh;
}

wexinperl

看不出特別需要優(yōu)化的地方。。

jason680

回復(fù) 1# TrishaTie

foreach my $mfcn(@mfcns)
{
    open my $fh, ($mfcdir."\\".$mfcn) or die$!;

    print MUMF "$mfcn:";
    while (<$fh>){
        chomp;
        s/\s+/ /g;
        print NUMF $_;
    }
    print NUMF "\n";
    close $fh;
}