- 410 名前：デフォルトの名無しさん mailto:sage [2008/01/30(水) 01:18:38 ]
- use strict;
my $txt = <<TXT;
href="search.com/str.cgi?first=1&p=%BA%C7%B9%E2"
href="search.com/str.cgi?first=1&p=%BA%C7%B9%E2"
TXT
$txt =~ s{(?<=href=").*?(?=")} {
no locale;
sprintf q{http:example.net/test.cgi?url=%s},
do{$_ = $&; s/([^\w ])/'%' . unpack('H2', $1)/eg; tr/ /+/; $_}
}eg;
print $txt;
