Leser: 1
|< 1 2 >| | 18 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
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+/;
}
1 2 3 4 5 6 7 8 9 10 11 12 13
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+/; }
Strat+2007-08-02 11:23:32--ich habe da extra nicht pre verwendet, damit zu lange zeilen code umbrechen koennen und keinen horizontalen Scrollbalken im Browser hervorrufen, der das ganze Layout kaputt macht.
Aber das ist ein Bug: aufgenommen
1 2 3 4 5 6 7
#!/usr/bin/perl use strict; use warnings; print "Test"; # Dies ist eine Testausgabe call_sub(); # ein Funktionsaufruf
|< 1 2 >| | 18 Einträge, 2 Seiten |