Opened by tadeus at 2009-12-21 21:50
User since
2008-01-27
367 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-01-27
367 Artikel
BenutzerIn
Etwas mehr Infos wären hilfreich :-) Ansonsten ist mir gerade aufgefallen, dass perl warnt, wenn $1 undefiniert ist. Falls du das gemeint hast, sollte es hiermit laufen:
MfG
Code (perl): (dl
)
1 2
my $addr = 'axp/linker.php?gr=2&id=2s6d23&url=http://www.google.de/'; (my $new = $addr) =~ s/(?<=\?)id=[^&]*&|&id=[^&]*//;
MfG
perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'