Perlコーディング初心者質問スレ Part 38

[0267 nobodyさん 04/10/21 15:43:18 ID:???]

>>266
my @str = qw(
http://example.com/data/リンクの方法.txt
http://example.com/data/俺俺.txt
http://example.com/data/ﾊﾝｶｸｶﾅA.txt
http://example.com/―ソЫ�\噂浬欺圭構蚕十申曾箪貼能表暴予禄.txt
);

s{([\x00-\x7F\xA1-\xDF]|[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])}{
　　my $chr = $1;
　　$chr =~ /^[\x00-\x7F]\z/
　　　　? $chr
　　　　: join('', map sprintf('%%%X', ord), split //, $chr)
}eg for @str;

print join "\n", @str;

# SEE ALSO: http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm