CGI_20080726_02


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



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