Thread Parameter umwandeln (55 answers)
Opened by Benji2010 at 2010-12-13 12:04

benji2010
 2010-12-20 13:32
#143732 #143732
User since
2010-12-20
13 Artikel
BenutzerIn
[default_avatar]
danke für den Hinweis mit der Registration...somit erledigt...

Das viel mir auch auf das der Input überprüft wurde...Das bei dem anderen allerdings solche "Dinge" passieren können, war mir nicht bekannt.

Also ist die der Code von MathiasW. am Besten für mich geeignet:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl -p

use strict;
use warnings;
use vars qw(%var);

while ( /([A-Z][0-9]*)=(\S+)/g ) {
my( $id, $val, $pos ) = ( $1, $2, pos );
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;
}



Kann man den Code noch ändern so ändern, dass er auch Kommazahlen einbezieht, oder muss anders an die Sache herangegangen werden?

Last edited: 2010-12-20 13:37:46 +0100 (CET)

View full thread Parameter umwandeln