Parameter umwandeln (gelöst) - #143993 (Allgemeines zu Perl)

MatthiasW

2011-01-03 16:03

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

benji2010
Hier mal der derzeitige Code:
...

Ich glaube nicht, dass dies dein derzeitiger Code ist ;) Selbst wenn man die fehlende Klammer ergänzt tut er sicherlich nicht das, was du erwartest: Das Überspringen der mit öffnender Klammer beginnenden Zeilen funktioniert so nämlich nicht. (Ist wahrscheinlich untergegangen: msg #143787)

Was die /T\d+/ Ausdrücke anbelangt, könntest du eine Alternative in den regulären Ausdruck einbauen und entsprechend behandeln:

Code (perl): (dl )

while ( /([A-Z][0-9]*)=(\S+)|T\d{3}(\d\d)\d/g ) {
    my( $id, $val, $t_expr, $pos ) = ( $1, $2, $3, pos );

    if ( defined $t_expr ) {
        $var{'R10'} = $t_expr;
        next;
    }

    # restlicher Code...
}

(nicht getestet!)

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'