Probleme bei Schleifen - #152985 (Allgemeines zu Perl)

2011-10-10 00:25

User since
2003-08-04
12208 Artikel
Admin1

nicht immer enden dateien mit einem newline.

das defined ist aber trotzdem nicht nötig, weil perl es automatisch ergänzt.
code:

Code (perl): (dl )

1
2
3

while (my $line = <STDIN>) {
    say $line;
}

ausgabe von B::Deparse:

Code (perl): (dl )

while (defined(my $line = <STDIN>)) {
    do {
        say $line
    };
}

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem