「CGI_20080726_02」の編集履歴（バックアップ）一覧はこちら

「CGI_20080726_02」(2008/07/26 (土) 13:10:39) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

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