#!/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";
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。