#!/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;
$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/②/(2)/g;
s/③/(3)/g;
s/④/(4)/g;
s/⑤/(5)/g;
s/⑥/(6)/g;
s/⑦/(7)/g;
s/⑧/(8)/g;
s/⑨/(9)/g;
s/⑩/(10)/g;
s/⑪/(11)/g;
s/⑫/(12)/g;
s/⑬/(13)/g;
s/⑭/(14)/g;
s/⑮/(15)/g;
s/⑯/(16)/g;
s/⑰/(17)/g;
s/⑱/(18)/g;
s/⑲/(19)/g;
s/⑳/(20)/g;
s/\n/
/g;
#
#出力する。
#
print <
evil # 004 愛と正義の舞い
evil # 004 愛と正義の舞い
micmic
[前へ] [次へ]
[Home] [目次]
2003/3/21
END