Thread Parameter umwandeln
(55 answers)
Opened by Benji2010 at 2010-12-13 12:04
Nochmals eine Frage zu dem gestelltem Thema...
Folgende Zeile kommt neuerdings in dem Text-File vor: Quote Der Parameter in der Klammer wird nicht ersetzt. Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 #!/usr/bin/perl -p use strict; use warnings; use vars qw(%var); while ( /([A-Z][0-9]*)=(\S+)|T\d{3,4}(\d\d)\d\D/g ) { my( $id, $val, $t_expr, $pos ) = ( $1, $2, $3, pos ); if ( defined $t_expr ) { $var{'R10'} = $t_expr; next; } if ( substr($_,0,1) eq '(' ) { next; } my $len = length $val; (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $tmp_val =~ /^[\d\*\/\+\(\-\(\).]+$/ ) { $tmp_val = eval $tmp_val; $var{$id} = $val = $tmp_val unless $@; } substr $_, $pos - $len, $len, $val; pos = $pos - $len + length $val; } Ich habe versucht die Klammer zu den erlaubten Zeichen hinzuzufügen (Zeile 25), allerdings ohne Erfolg. Kann mir jemand helfen ? |