#!/usr/bin/perl
print "Content-type: text/html\n";
print "\n";
#
# HTMLを書き出します。
# "~\n" の ~ の部分に HTML を記述しますが、ダブルクォーテーション( " )
# を用いる際は " の代わりに ' を用いるか、\" のように、バックスラッシュ( \ )
# を前に置いてください。
#
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>CGI TEST</TITLE>\n";
print "</HEAD>\n";
print "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n";
print("===========================================<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("===========================================<br>\n");
opendir(DIR, "./");
while ($file = readdir(DIR)) { print "$file\n"; }
closedir(DIR);
print("===========================================<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
$uc_pwd = system("pwd");
print("$lsal <br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
#$uc_lsal = system("ls -al ./");
@uc_lsal = system("ls -al ./");
# $uc_lsal =~ s/\n/<BR>\n/g;
# $uc_lsal =~ s/^/<BR>/g;
# $uc_lsal =~ s/\s*$/\s*<BR>/g;
# print("$uc_lsal <br>\n");
for $yy (@uc_lsal) {
print $yy;
print '<BR>';
}
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
print("<form ACTION='fmedit.cgi?update+200807/08070001.txt' method=POST>\n");
# print("<xmp>\n");
print("<textarea tabindex='1' accesskey=',' name='Textbox1'
id='Textbox1' rows='25'
cols='120' >\n");
open(IN, "test001.txt");
while (<IN>) {
$xx = $_;
$a01 = "</textarea>";
$a02 = "< /textarea >";
$xx =~ s/$a01/$a02/g;
print $xx;
print '<BR>';
}
close(IN);
print("</textarea>\n");
# print("</xmp>\n");
print("</form>\n");
print("===========================================<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
print("<br>\n");
#
# HTMLの終わりの部分を書き出します。
#
print "</XMP>\n";
print "</BODY>\n";
print "</HTML>\n";
print "\n";