aaa
<?xml version="1.0" encoding="Shift_JIS"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"
xml:lang="ja">
<head>
<title>ls用フォーム</title>
</head>
<body>
<h1>ls用フォーム</h1>
<form action="ls01.cgi" method="post"
enctype="multipart/form-data">
<p>
dir(Remote):
<input type="text" name="updir"><BR></p>
<p>
<input type="submit" value="送信" />
<input type="reset" value="リセット" />
</p>
</form>
</body>
</html>
#!/usr/local/bin/perl -w
# モジュール読み込み
use strict;
use CGI;
my ($buffer);
# オブジェクト作成
my $query = new CGI;
# $f = $_POST['filename'];
my $filename = $query->param('updir');
# HTML出力
print $query->header(-charset=>'Shift_JIS'),
$query->start_html(-lang=>'ja', -encoding=>'Shift_JIS',
-title=>'ls01.cgi');
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
open(IN, "pwd |");
while (<IN>) {
print $_;
print '<BR>';
}
close(IN);
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
open(IN, "ls -alRtF $filename |");
while (<IN>) {
print $_;
print '<BR>';
}
close(IN);
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
open(IN, "ls -alR $filename |");
while (<IN>) {
print $_;
print '<BR>';
}
close(IN);
print("===========================================<br>\n");
print("===========================================<br>\n");
print("===========================================<br>\n");
print $query->end_html;
exit;
aaa