Hallo!
oder geht das?
( $res1 ) = ( $s1 =~ m/foo(.?)foo/ );
( $res2 ) = ( $s2 =~ m/bar(.?)bar/ );
Vermutlich nicht. Zum einen wirft die Suche soviel ich weiß nur dann eine Liste zurück, wenn ein 'g' in den Parametern vorkommt, zum anderen würde dann in den Variablen das gesamte Suchmuster, und nicht nur der gesuchte Ausschnitt stehen. Ein
`my ( $res ) = $s1 =~ /(?<=foo).*?(?=bar)/g;`{:.language-perl}
Könnte noch funktionieren. Aber auch nur, wenn 'foo' und 'bar' eine feste Länge haben.
Grüße, Skrilax