#!/usr/local/bin/perl
use strict;
use Query;
my $Module_Name = $ENV{'SCRIPT_NAME'};
if ($Module_Name =~ m|/([^/]+)$|) {
$Module_Name = $1;
}
do_main();
exit;
sub do_main {
my $textvalue = Query::get('text', undef);
my $cb_check = Query::get('cb', '(no input)');
if (defined $textvalue) {
$textvalue =~ s/&/&/g;
$textvalue =~ s//>/g;
$textvalue =~ s/"/"/g; #"
} else {
$textvalue = '(no input)';
}
binmode(STDOUT);
print "Content-type: text/html\r\n\r\n";
print <<" ----------------------------------------------HTML-----";
Query.pm テスト 1
Query.pm テスト 1
フォーム
前回の入力値
- テキスト入力の値
- $textvalue
- チェックボックスの値
- $cb_check
----------------------------------------------HTML-----
}
__END__