Mit Perl bestimmten String suchen

[StruppiMac]

Hi,

ich möchte in einer Variable $text den String "test=" suchen und die nächsten 4 Zeichen in die $ergebnis-Variable kopieren.

Bisher hab ich immer den Text bei test= teilen lassen (split) und mir die 4 Zeichen dann so rausgefriemelt - aber das kann es ja nicht sein.

Gibt es da eine einfachere Lösung?

Gruß + danke

 

[oneOeight]

$ergebnis=~ s/^test=//

 

[StruppiMac]

Ist s// nicht - ersetzen?

 

[oneOeight]

ja, das schneidet das alles bis test= raus so wie es da steht...

gibt aber auch varianten, schau mal da:
http://de.selfhtml.org/perl/sprache/regexpr.htm

 

[cmittendorf]

So ginge es auch:

#!/usr/bin/env perl
$text = "Lorem ipsum dolor test=1234 sit amet.";
( $result ) = ( $text =~ /test=(....)/ );
print $result;

Damit holst Du genau 4 Zeichen nach "test=" aus dem String, wobei dort jedes Zeichen (deshalb der .) stehen darf.

Du kannst auch mehr als ein Pattern aus dem String holen:

$text = "Lorem ipsumdolor test1=1234 sit test2=abc amet.";
( $result1, $result2 ) = ( $text =~ /test1=(.*) .* test2=(.*) / );
print $result1 . " " . $result2;