Genvejsmenu:
S - Indhold
1 - Forside
2 - Aktuelt
3 - Oversigt
4 - Søg

03.03.10   |   kl. 08:17   |   Aktuelt, Prosabladet

Peter Makholms gode eksempel i Perl

Problem: En fil består af afsnit, hvor første linje er indrykket med to blanktegn. Fjern alle afsnit, hvor der står Foo som andet ord i første linje.

     local $/ = undef;

     my $file = <>;

 

    $file =~ s/^\s\s\w+\s+Foo.*?(?=^\s\s\w)//gems;

 

     print $file;

 

 versus

 

     while(<>) { 

        $doprint = 1 if /^\s\s\w/; 

        $doprint = 0 if /^\s\s\w+\s+Foo/;

 

         print $_ if $doprint;

   }

 

PRINT

Kommentarer

Der er endnu ikke skrevet kommentarer til artiklen

God tone i debatten

Deltag i debatten

CAPTCHA billede for SPAM beskyttelse

Relevante links

 

Skrevet af:

Kommenter artiklen

 

Relaterede artikler