regexp will nicht so recht... (Allgemeines zu Perl)

[thread]12196[/thread]

regexp will nicht so recht...

Tags: regex Ähnliche Threads

Leser: 1

tsy

2008-07-17 16:08

User since
2008-03-17
54 Artikel
BenutzerIn
[default_avatar]

Hallo!
Ich möchte in bereits vorhandenen Quelltexten den Text

Code (perl): (dl )

print "foo"

ersetzen durch etwas in der Art:

Code (perl): (dl )

$lang->print("foo", $currentUser->lang() )"

leider funktioniert das mit dem folgenden Ausdruck nicht:

Code (perl): (dl )

$_ =~ s/(print)\s*("\w+")/\$lang->$1($2, \$currentUser->lang() )/g;

Kann mir jemand sagen warum?

Viele Grüße,

tsy

#Kein Kommentar

2008-07-17 16:20

User since
2007-06-09
575 Artikel
HausmeisterIn
[default_avatar]

das funktioniert bei mir ausgezeichnet:

Code: (dl )

my $string	= 'print "foo"';

$string =~ s/(print)\s*("\w+")/\$lang->$1($2, \$currentUser->lang() )/g;

print $string;

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

moritz

2008-07-17 16:21

User since
2007-05-11
923 Artikel
HausmeisterIn

Bei mir geht das:

Code: (dl )

$_ = q{print "foo"};
s/(print)\s*("\w+")/\$lang->$1($2, \$currentUser->lang() )/g;
print $_, $/;
__END__
$lang->print("foo", $currentUser->lang() )

Perl 6 - Perls Zukunft

tsy

2008-07-17 16:43

User since
2008-03-17
54 Artikel
BenutzerIn
[default_avatar]

ähm...
vielleicht sollte ich nicht nur $_ ändern, sondern danach auch in die Datei zurückschreiben...
Manchmal ist man gar nicht so doof, wie man denkt - sondern noch doofer. *pfeif*
Danke Euch trotzdem für die Mühe! :)

Gruß,

tsy

View all threads created 2008-07-17 16:08.