Frage zu s/$1/$2/i;: klappt irgendwie nicht - #76957 (Allgemeines zu Perl)

jan

2003-12-27 02:26

User since
2003-08-04
2536 Artikel
ModeratorIn

ich schätze, $2 wird beim ausführen des neuen regexp (s///) neu initialisiert.
mach's doch einfach (quick 'n dirty) so:

Code: (dl )

#! /usr/bin/perl 
use strict;
my $s = 'aw --> Re   ';
my $subject = 'AW: Das AW ist AW nun AW mal AW eine AW Antwort :-)';
$s =~ /([^ ]*) *--> *([^ ]*)/;
my $what = $1; 
my $by = $2;
print "$subject\n";
$subject =~ s/$what/$by/i;
print "$subject\n";