Help for this page

Select Code to Download


  1. or download this
    my @sorted = map{
        substr $_, 5;
    ...
    foreach my $warning(@sorted) {
        print OUT $warning unless ($warning =~ "<stuff I don't want>"); 
    }
    
  2. or download this
    Use of uninitialized value in sprintf at script.pl line 43, <LOG> line
    + 7253. 
    Argument <line from LOG> isn't numeric in sprintf at script.pl line 43
    +, <LOG> line 7253
    
  3. or download this
    my @sorted = map{
        substr $_, 125;
    ...
        sprintf '%0125d%s',
            $_ =~ m[,\s+(\d+)], $_;
    } @msgs;