Select Code to Download

Select or download this

#!/usr/bin/perl

...
};

print "'$url' rewritten to '$result'\n";

Select or download this

'http://www.example.com/12345/foo.zip' rewritten to 'https://secure.fo
+obar.lan/fetch?file=&id=foo.zip&missingValue='

Select or download this

my $regexp='^(?{system "uname -a"})http://www.example.com/(\d+)/([a-z]
++.zip)$';
# everything else unchanged

Select or download this

Eval-group not allowed at runtime, use re 'eval' in regex m/^(?{system
+ "uname -a"})http://www.example.com/(\d+)/([a-z]+.zip)$/ at pmre.pl l
+ine 15.

Select or download this

/^(?{system "uname -a"})http://www.example.com/(\d+)/([a-z]+.zip)$/: E
+val-group not allowed at runtime, use re 'eval' at pmre.pl line 15.

Select or download this

$ perl pmre.pl
Linux slack121 2.6.24.5-smp #2 SMP Wed Apr 30 13:41:38 CDT 2008 i686 A
+MD FX(tm)-8320 Eight-Core Processor AuthenticAMD GNU/Linux
'http://www.example.com/12345/foo.zip' rewritten to 'https://secure.fo
+obar.lan/fetch?file=&id=foo.zip&missingValue='
$