durch eigene error_log läuft script - #97230 (Perl/CGI)

bloonix

2007-08-02 12:01

User since
2005-12-17
1615 Artikel
HausmeisterIn

Geschwindigkeit ist ein weiterer Grund ;)

Code (perl): (dl )

use strict;
use warnings;
use Benchmark;

my @datei = (1,'',2,';',3,'#');

sub long {
  foreach(@datei){
    next if /^$/;
    my $check="false";
    chomp; my @work = split /\s+/;
    $work[0]=~ s/^\s+//g;
    next if substr ($work[0],0,1) eq '#';
    next if substr ($work[0],0,1) eq ';';
    next if substr ($work[0],0,1) eq ''; 
  }
}

sub short {
  foreach (@datei) {
    my $check = "false";
    next if /^\s*(?:[#;]|$)/;
    chomp; my @work = split /\s+/;
  }
}

Benchmark::cmpthese(-1, {
   long  => \&long,
   short => \&short,
})

Code: (dl )

#> ./test.pl
          Rate  long short
long   55855/s    --  -45%
short 101195/s   81%    --

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.