#!/usr/bin/perl
$\ = "\n";
#入力を整理。なければショートカットして表示へいくす。
$arg{name1} = "仮面だぬき";
$arg{name2} = "化けきつね";
$arg{name3} = "証誠寺";
unless($ENV{QUERY_STRING} eq ""){
@arg = split /&/,$ENV{QUERY_STRING};
foreach(@arg){
($key,$val) = split /=/;
$arg{$key} = $val;
}
}
use Jcode;
foreach(keys %arg){
$arg{$_} =~ s/%(..)/pack("C",hex($1))/eg ;
$val = $arg{$_};
$val = jcode($val)->h2z->sjis;
$val =~ s///g;
$val =~ s/\+/ /g;
$val =~ s/\t//g;
$val =~ s/\r\n/\n/g; # Win→Unix
$val =~ s/\r/\n/g; # Mac→Unix
$val =~ s/&/&/g;
$val =~ s/"/"/g;
$val =~ s/</g;
$val =~ s/>/>/g;
$arg{$_} =$val ;
}
##########################################################
#メッセージを残す。#つきは過去の遺物とデバッグ用。
##########################################################
$\ = "\n";
$date = localtime;
$_ = $val;
if ( $_ ne ""){
open( LOG ,">>evil.log");
print LOG ' ';
print LOG '名前: ',%arg;
print LOG '
日付:',$date;
print LOG '
';
close(LOG);
}
s/@/(1)/g;
s/A/(2)/g;
s/B/(3)/g;
s/C/(4)/g;
s/D/(5)/g;
s/E/(6)/g;
s/F/(7)/g;
s/G/(8)/g;
s/H/(9)/g;
s/I/(10)/g;
s/J/(11)/g;
s/K/(12)/g;
s/L/(13)/g;
s/M/(14)/g;
s/N/(15)/g;
s/O/(16)/g;
s/P/(17)/g;
s/Q/(18)/g;
s/R/(19)/g;
s/S/(20)/g;
s/\n/
/g;
#
#出力する。
#
print <evil # 004 愛と正義の舞い
2003/3/21 END