nicht angemeldet
Hallo,
falls es noch jemand wissen will: geht um den thread http://forum.de.selfhtml.org/archiv/2004/4/79083/
das ganze funktioniert, und zwar so:
#!/usr/bin/perl
my $content="mein computer nervt";
my $from = "mein (computer)";
my $to = "dein $1";
$content =~ s/$from/qq{qq{$to}}/ee;
print $content;
oder:
my $content = "mein computer";
my $from = qr|mein (computer)|;
my $to = '"dein ".$1';
$content =~ s/$from/$to/ee;
print "$content\n";
hoffe du liest das DIO2000
grüsse
--
no strict;
no warnings;
Über eine Rückmeldung freut sich später jeder, der das gleiche Problem hat und im Archiv nach einer Lösung sucht.
no strict;
no warnings;
Über eine Rückmeldung freut sich später jeder, der das gleiche Problem hat und im Archiv nach einer Lösung sucht.