2011-11-01T08:38:28 cohama

Eventuell hat jemand noch einen Tipp, wie die folgende Zeile aus einander neben kann.

Code: (dl )

[b]|   0001    active         -184    -74                   |[/b]

Aus dieser Zeile möchte ich die ersten und vier Zeichen auslesen.

Code: (dl )

1
2

$vaulue1=m/"erstes Zeichen"//;
$value4=m/"viertes Zeichen"//;

1
2
3

my $such = '|   0001    active         -184    -74                   |';
my ($value1, $value4) = $such =~ m/^\|\s+(\d)\d\d(\d)/;
print "gefunden $value1 und $value4\n";