regexp will nicht so recht... - #112250 (Allgemeines zu Perl)

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() )