String einlesen und nachfolgendes Wort ausgeben (gelöst) - #174787 (Allgemeines zu Perl)

FIFO

2014-04-15 14:19

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Bei so etwas drastischem wie einem exit() aus einer Schleife heraus würde ich das so schreiben, dass das 'exit' sofort auffällt und nicht in einem eingerückten Block verschwindet

Code (perl): (dl )

while ( my $zeile = <$dataFH> ) {

    exit 0 if $zeile =~ / \b OPTIMAL \b /x;  # Ausstieg bei erster Zeile mit OPTIMAL

    if ( $zeile =~ /$typeRegExp/ ) {
        my ($phy)   = $zeile =~ / \b phy   \s+ (\w+) /x;
        my ($state) = $zeile =~ / \b state \s+ (\w+) /x;
        my ($flags) = $zeile =~ / \b flags \s+ (\w+) /x;
        print "phy: $phy, state: $state, flags: $flags\n";
    }
    else {
        print "UNKNOWN\n";
    }
}

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"