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

「test006.cgi」(2008/07/18 (金) 20:06:26) の最新版変更点

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

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

<p>#!/usr/bin/perl</p>
<p>print &quot;Content-type: text/html\n&quot;;<br />
print &quot;\n&quot;;</p>
<p>#<br />
# HTMLを書き出します。<br />
# &quot;～\n&quot; の ～ の部分に HTML を記述しますが、ダブルクォーテーション( &quot; )<br />
# を用いる際は &quot; の代わりに ' を用いるか、\&quot; のように、バックスラッシュ( \ )<br />
# を前に置いてください。<br />
#<br />
print &quot;&lt;HTML&gt;\n&quot;;<br />
print &quot;&lt;HEAD&gt;\n&quot;;<br />
print &quot;&lt;TITLE&gt;CGI TEST&lt;/TITLE&gt;\n&quot;;<br />
print &quot;&lt;/HEAD&gt;\n&quot;;<br />
print &quot;&lt;BODY BGCOLOR='#FFFFFF' TEXT='#000000'&gt;\n&quot;;</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;);<br />
print(&quot;&lt;br&gt;\n&quot;);<br />
print(&quot;&lt;br&gt;\n&quot;);<br />
print(&quot;&lt;br&gt;\n&quot;);<br />
print(&quot;&lt;br&gt;\n&quot;);<br />
print(&quot;&lt;br&gt;\n&quot;);<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>opendir(DIR, &quot;./&quot;);<br />
while ($file = readdir(DIR)) { print &quot;$file\n&quot;; }<br />
closedir(DIR);</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;);<br />
print(&quot;&lt;br&gt;\n&quot;);<br />
print(&quot;&lt;br&gt;\n&quot;);<br />
print(&quot;&lt;br&gt;\n&quot;);<br />
print(&quot;&lt;br&gt;\n&quot;);<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>$uc_pwd = system(&quot;pwd&quot;);<br />
print(&quot;$lsal &lt;br&gt;\n&quot;);<br />
print(&quot;===========================================&lt;br&gt;\n&quot;);<br />
print(&quot;===========================================&lt;br&gt;\n&quot;);</p>
<p>#$uc_lsal = system(&quot;ls -al ./&quot;);<br />
@uc_lsal = system(&quot;ls -al ./&quot;);</p>
<p># $uc_lsal =~ s/\n/&lt;BR&gt;\n/g;<br />
# $uc_lsal =~ s/^/&lt;BR&gt;/g;</p>
<p># $uc_lsal =~ s/\s*$/\s*&lt;BR&gt;/g;</p>
<p># print(&quot;$uc_lsal &lt;br&gt;\n&quot;);</p>
<p>for $yy (@uc_lsal) {<br />
    print $yy;<br />
    print '&lt;BR&gt;';<br />
}</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>      print(&quot;&lt;form ACTION='fmedit.cgi?update+200807/08070001.txt'
method=POST&gt;\n&quot;);</p>
<p>#      print(&quot;&lt;xmp&gt;\n&quot;);</p>
<p>      print(&quot;&lt;textarea tabindex='1' accesskey=',' name='Textbox1'
id='Textbox1' rows='25'<br />
cols='120' &gt;\n&quot;);</p>
<p>open(IN, &quot;test001.txt&quot;);<br />
while (&lt;IN&gt;) {<br />
    $xx = $_;<br />
    $a01 = &quot;&lt;/textarea&gt;&quot;;<br />
    $a02 = &quot;&lt; /textarea &gt;&quot;;<br />
    $xx =~ s/$a01/$a02/g;<br />
    print $xx;<br />
    print '&lt;BR&gt;';<br />
}<br />
close(IN);</p>
<p>      print(&quot;&lt;/textarea&gt;\n&quot;);<br />
#      print(&quot;&lt;/xmp&gt;\n&quot;);<br />
      print(&quot;&lt;/form&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;);<br />
print(&quot;&lt;br&gt;\n&quot;);<br />
print(&quot;&lt;br&gt;\n&quot;);</p>
<p>#<br />
# HTMLの終わりの部分を書き出します。<br />
#<br />
print &quot;&lt;/XMP&gt;\n&quot;;<br />
print &quot;&lt;/BODY&gt;\n&quot;;<br />
print &quot;&lt;/HTML&gt;\n&quot;;<br />
print &quot;\n&quot;;</p>
<p> </p>
<p> </p>