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

blackm

2003-12-27 02:04

User since
2003-09-22
10 Artikel
BenutzerIn

Hi,

ich hab folgenden Code

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 =~ /([^ ]*) *--> *([^ ]*)/;

print "1: \'$1\'\n";
print "2: \'$2\'\n";

print "$subject\n";

$subject =~ s/$1/$2/i;

print "$subject\n";

Leider klappt das aber nicht so ganz. Es wird mir ausgegeben, das in $2 Re drin ist so wie ich es erwartet hab, aber es wird nicht anstelle vom (ersten) AW eingefuegt (es ist nix ersetzt, nur das AW entfernt).

Weiss jemand Rat?

by, Martin