test006.cgi


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

#!/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";