[Vienna-pm] regex-foo

[Klaus Johannes Rusch]

Thomas Klausner wrote:

>Eingentlich war gefragt, ob sowas geht:
>
>  my $string="Use Python";
>  say(($string)=~s/Python/Perl/);
>  sub say { print @_ }
>
>  Use Perl
>
>Also ein Replace mit eine Regex, wobei der modifizierte String an eine Funktion uebergeben werden soll ??
>  
>
Nicht wahnsinnig elegant, aber es funktioniert:

  my $string="Use Python";
  say(eval { $string=~s/Python/Perl/; $string });
  sub say { print @_ }

-- 
Klaus Johannes Rusch
KlausRusch at atmedia.net
http://www.atmedia.net/KlausRusch/