クイズ番組でやってた問題の備忘録

45：女傑さん ◆nDpXSJz8i.：2013/03/10(日) 16:24:53: #!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use Jcode;
##require "./cgi-lib.pl"; # cgi-lib.plライブラリ使用宣言
$lockdir = "lock";
$sweep = "http://c.uta.la/?";
%form = ();

# $bun = jcode($name)->h2z->euc;
# my ($icode, $nmatch) = Jcode::getcode($name);
# $bun = Jcode::convert("$name", "utf8", $icode, "z2h");
# $bun = Unicode::Japanese->new($bun, $icode)->z2hKana->utf8;
# if ("$bun" ne "") {
# chomp($bun) if $bun =~ /\n$/;
# $bun =~ s/.{160}/$&<BR>\n/g;
# if ( m/^(\d+) (\d+)\r\n$/ ){

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error; }
@pairs = split(/&/,$buffer);

foreach $pair (@pairs) {

($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/^s+//g ; # 文頭に来るスペースを削除
$value =~ s/s+$//g ; # 文末に来るスペースを削除
$value =~ s///g;
$value =~ s/\r//g;
$value =~ s/\n//g;
$value =~ s/\f//g;
$value =~ s/\t//g;
$value =~ s/\.//g;
$value =~ s/\///g;
$value =~ s/\t//g;
$value =~ s/\r\n/\n/g; # Win→Unix
$value =~ s/\r/\n/g; # Mac→Unix

$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;

$form{$name} = $value;
}

##&ReadParse(%form);
if ($form{"q"} ne "") { $id = $form{"q"}; }
else { &error("IDが入力されていません。"); }
#if ($id =~/\W+$/) {
#&error("IDに禁則文字が使われています"); }
#endif;

my ($icode, $nmatch) = Jcode::getcode($id);
$id = Jcode::convert("$id", "sjis", $icode, "z");

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板