<b>a) ... </b>基本セット

frame.htm

<HTML>
<HEAD>
	<META HTTP-EQUIV="Content-Type" Content="text/html; charset=shift_jis">
</HEAD>

<FRAMESET  rows="200,*">
	<FRAME name="Input" src="input.cgi">
	<FRAME name="Output" src="output.cgi">
</FRAMESET>
</HTML>

input.cgi

#!/usr/local/bin/perl

# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";

# **********************************************************
# 標準入力より生データを入力
# **********************************************************
read( STDIN, $data, $ENV{"CONTENT_LENGTH"} );

# **********************************************************
# 生データを "&" を区切り文字にして、配列へ保存
# **********************************************************
@Fields_Data = split(/&/, $data);

# **********************************************************
# データのセットを連想配列に保存
# **********************************************************
foreach ( @Fields_Data ) {
	($Name, $Value) = split( /=/, $_ );
	$Value =~ tr/+/ /;
	$Value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#	&jcode'convert(*Value, "sjis");
 	$Form{$Name} = $Value;
}

if ($ENV{'REQUEST_METHOD'} eq "POST") {

	open(IN,"lightbox.log");
	@lines = <IN>;
	close(IN);

	open(OUT,">lightbox.log");
	@lines = ( @lines, $Form{"Data"} . "\n" );
	print OUT @lines;
	close(OUT);

}

print <<INPUT;
<HTML>

<HEAD>
	<META HTTP-EQUIV="Content-Type" Content="text/html; charset=shift_jis">
</HEAD>
<BODY>
<FORM method="POST" target="Input" action="input.cgi">
	<TEXTAREA name="Data" cols="80" rows="10"></TEXTAREA>
	<INPUT type="submit" name="command" value="送信">
</FORM>
</BODY>
</HTML>
INPUT

output.cgi

#!/usr/local/bin/perl

# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";

print "<HTML><HEAD>";
print '<META HTTP-EQUIV="REFRESH" CONTENT=10>';
print "</HEAD><BODY>";

print "<HR>";

open(IN,"lightbox.log");
@lines = <IN>;
close(IN);

for( 0 .. $#lines ) {
	print $lines[$_] . "<BR>";
}

print "<HR>";

print "</BODY></HTML>";