Perl und Code Tag - #97239 (Tests)

bloonix

2007-08-02 12:59

User since
2005-12-17
1615 Artikel
HausmeisterIn

Code: (dl )

foreach (@datei) {
   next if /
      ^        # vom Anfang der Zeile
      \s*      # 0 oder alle Whitespaces
      (        # Anfang des Captures
      ?:       # es soll nicht gecaptured werden
      [#;]     # # oder ;
      |        # ODER
      $        # das Ende der Zeile
      )        # Ende des Captures
   /x;         # beachte keine Whitespaces
   chomp; my @work = split /\s+/;
}

Code (perl): (dl )

foreach (@datei) {
   next if /
      ^        # vom Anfang der Zeile
      \s*      # 0 oder alle Whitespaces
      (        # Anfang des Captures
      ?:       # es soll nicht gecaptured werden
      [#;]     # # oder ;
      |        # ODER
      $        # das Ende der Zeile
      )        # Ende des Captures
   /x;         # beachte keine Whitespaces
   chomp; my @work = split /\s+/;
}

Das ist unschön. Hier erwarte ich eigentlich <pre>, da es sich um Code handelt.

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.