- 357 名前：356 mailto:sage [04/03/05 20:55 ID:lZoQ/TAs]
- しかたねーからUTF-8からEUC/Shift_JISへのコンバータ作った。
やっと２ちゃんねる検索とYahooニュースが検索できるようになった。
CGIが使える適当なサーバーに、下のソースをutf2euc.cgi、utf2sjis.cgiという名前で同じ物を２つアップロードして
(使えるならハードリンクやシンボリックリンクでもよい)、
your.server/utf2euc.cgi?http://find.2ch.net/?STR={1}&COUNT=10&TYPE=TITLE&BBS=ALL
てな感じで使う。
#!/usr/bin/perl
use Jcode; use strict;
my $this = $0; $this =~ m#([^/]+)$#;
my $code; if($this =~ /euc/i){$code = 'euc'}else{$code = 'sjis'}
my $query = $ENV{'QUERY_STRING'};
$query =~ s/((?:%[\da-f][\da-f])+)/encode(Jcode::convert(decode($1),$code, 'utf8'))/egi;
print "Location: $query\r\n\r\n"; exit;
sub decode{
my($query) = shift;
$query =~ s/%([\da-f][\da-f])/pack("C",hex($1))/egi; $query;
}
sub encode{
my($src) = shift;
$src =~ s/([^0-9a-zA-Z])/sprintf( "%%%02lx", unpack( "C", $1 ) )/eg; $src;
}
__END__
ほんとウザくてごめん。何かに役立ててくれ。
|
 |
