ファイル名: w/open2.cgi

#!/usr/local/bin/perl

#------------------------------------------------------------
$Title = 'open2';
$BODY = '<BODY BGCOLOR="#000000" TEXT="#C0C0C0" LINK="#C0C0C0" VLINK="#C0C0C0" ALINK="#FFFF00">';

print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>$Title</TITLE></HEAD>\n";
print "$BODY\n";
#---------------------------------------------
$txt = 'warewan.txt';
$txt2 = 'warewan2.txt';
$txt3 = 'warewan3.txt';
($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) =localtime(time);
$year += 1900;
$date_now = "$year年$mon月$day日 $hour時$min分";
#---------------------------------------------
print "$date_now\n";
print "<BR><BR>\n";
#---------------------------------------------
if (!open(WAREWAN,"$txt")) { print "エラー\n";}
if (!open(WAREWAN2,">$txt2")) { print "エラー\n";}
while (<WAREWAN>){
print WAREWAN2 "$date_nowのコピーです。<BR>$_<BR><HR>";
}
close(WAREWAN);
close(WAREWAN2);
#---------------------------------------------
if (!open(WAREWAN,"$txt")) { print "エラー\n";}
if (!open(WAREWAN3,">>$txt3")) { print "エラー\n";}
while (<WAREWAN>){
print WAREWAN3 "$date_nowのコピーです。<BR>$_<BR><HR>";
}
close(WAREWAN);
close(WAREWAN3);
#---------------------------------------------
print '<font color="#FFFF00">';
print "更新によって、warewan.txt(waewwan.txtです。)から、warewan2.txtに上書きコピーされる。<BR><BR>\n";
print "warewan2.txtの内容は、この下です。<BR><BR>\n";
print '</font>';

if (!open(WAREWAN2,"$txt2")) { print "エラー\n";}
while (<WAREWAN2>){
chop;
print "$_";
}
close(WAREWAN2);
#---------------------------------------------
print "<BR><BR>\n";
print '<font color="#FFFF00">';
print "更新によって、warewan.txt(waewwan.txtです。)から、warewan3.txtに追加コピーされる。<BR><BR>\n";

print "warewan3.txtの内容は、この下からです。<BR><BR>\n";
print '</font>';
if (!open(WAREWAN3,"$txt3")) { print "エラー\n";}
while (<WAREWAN3>){
chop;
print "$_";
}
close(WAREWAN3);

#---------------------------------------------
print "</BODY>\n";
print "</HTML>\n";

exit;