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

bloonix

2007-08-02 11:36

User since
2005-12-17
1615 Artikel
HausmeisterIn

Code (perl): (dl )

1
2
3

my @work = split /\s+/;
  $work[0]=~ s/^\s+//g;
  next if substr ($work[0],0,1) eq '';

Diese 3 Zeilen ergeben für mich keinen Sinn. Wenn eine Zeile nun
zum Beispiel mit Leerzeichen beginnt, dann wird $work[0] leer sein,
$work[1] etc. aber nicht, dass heißt diese Zeilen würden nicht
bearbeitet werden. Beispiel:

Code: (dl )

1
2

Dies ist die erste Zeile.
   Dies ist die zweite Zeile.

Die zweite Zeile würde nicht bearbeitet werden.

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.