Gen0001

「Gen0001」の編集履歴(バックアップ)一覧はこちら

Gen0001」(2008/07/19 (土) 20:41:57) の最新版変更点

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

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

<p><br /><br /> aaa<br /><br /><br /> sub make_out_filename {<br />     print &quot;DEBUG: [ 0 ]=$_[0]&lt;br&gt;\n&quot;;<br />     my $aa = $dot_HTML_base_file_name . $_[0] . $dot_HTML_file_ext;<br />     print &quot;DEBUG: $aa=$aa&lt;br&gt;\n&quot;;<br />     return($aa);<br /> }</p> <p>sub resheadprint {</p> <p>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;);</p> <p>}</p> <p>sub restailprint {</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>sub detailprint {</p> <p> print OUT &quot;$_[0] . &lt;BR&gt;\n&quot;;</p> <p>}</p> <p>sub headprint {</p> <p># print OUT &quot;$_&lt;BR&gt;\n&quot;;<br /> print OUT &quot;&lt;HTML&gt;\n&quot;;<br /> print OUT &quot;&lt;HEAD&gt;\n&quot;;<br /> print OUT &quot;&lt;TITLE&gt;CGI TEST&lt;/TITLE&gt;\n&quot;;<br /> print OUT &quot;&lt;/HEAD&gt;\n&quot;;<br /> print OUT &quot;&lt;BODY BGCOLOR='#FFFFFF' TEXT='#000000'&gt;\n&quot;;</p> <p>print OUT &quot;===========================================&lt;br&gt;\n&quot;;<br /> print OUT &quot;&lt;br&gt;\n&quot;;</p> <p>}</p> <p>sub tailprint {</p> <p>#<br /> # HTMLの終わりの部分を書き出します。<br /> #<br /> print OUT &quot;&lt;/XMP&gt;\n&quot;;<br /> print OUT &quot;&lt;/BODY&gt;\n&quot;;<br /> print OUT &quot;&lt;/HTML&gt;\n&quot;;<br /> print OUT &quot;\n&quot;;</p> <p>}</p> <p><br /> $dot_control_file = &quot;xxx.clf&quot;;<br /> $dot_format_file = &quot;xxx.f&quot;;<br /> $dot_data_file = &quot;xxx.dat&quot;;<br /> $dot_HTML_base_file_name = &quot;xxx&quot;;<br /> $dot_HTML_file_ext = &quot;.html&quot;;</p> <p>$maxlpp = 5;<br /> $i = 1;<br /> $j = 1;</p> <p>open(IN, $dot_data_file);</p> <p>$outfile = make_out_filename ($j);<br /> open(OUT, &quot;&gt; $outfile&quot;);</p> <p>&amp;resheadprint();</p> <p>print &quot;DEBUG: dot_HTML_base_file_name = $dot_HTML_base_file_name&lt;br&gt;\n&quot;;<br /> print &quot;DEBUG: dot_HTML_file_ext = $dot_HTML_file_ext&lt;br&gt;\n&quot;;<br /> print &quot;DEBUG: dot_data_file = $dot_data_file&lt;br&gt;\n&quot;;</p> <p>&amp;headprint();</p> <p>while (&lt;IN&gt;) {</p> <p> chomp;</p> <p># print;<br />  print &quot;$_&lt;BR&gt;\n&quot;;</p> <p> if ($i &gt; $maxlpp) {</p> <p>     # ブレーク時の処理<br /> #     print &quot;大きい\n&quot;;<br />      $j++;<br />      $i = 1;<br />      &amp;tailprint();<br />      &amp;headprint();<br />      &amp;detailprint();<br />      close(OUT);</p> <p> } else {</p> <p>     # ノンブレーク時の処理<br /> #     print &quot;小さい\n&quot;;<br />      &amp;detailprint();<br />      $i++;</p> <p> }</p> <p># print OUT &quot;$_&lt;BR&gt;\n&quot;;</p> <p> &amp;tailprint();<br />  close(OUT);</p> <p>}<br /> close(IN);<br /> &amp;tailprint();<br /> &amp;restailprint();</p> <p> </p> <p><br /> aaa</p>
<p><br /><br /> aaa<br /><br /><br /> sub make_out_filename {<br />     print &quot;DEBUG: [ 0 ]=$_[0]&lt;br&gt;\n&quot;;<br />     my $aa = $dot_HTML_base_file_name . $_[0] . $dot_HTML_file_ext;<br />     print &quot;DEBUG: $aa=$aa&lt;br&gt;\n&quot;;<br />     return($aa);<br /> }</p> <p>sub resheadprint {</p> <p>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;);</p> <p>}</p> <p>sub restailprint {</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>sub detailprint {</p> <p> print OUT &quot;$_[0] . &lt;BR&gt;\n&quot;;</p> <p>}</p> <p>sub headprint {</p> <p># print OUT &quot;$_&lt;BR&gt;\n&quot;;<br /> print OUT &quot;&lt;HTML&gt;\n&quot;;<br /> print OUT &quot;&lt;HEAD&gt;\n&quot;;<br /> print OUT &quot;&lt;TITLE&gt;CGI TEST&lt;/TITLE&gt;\n&quot;;<br /> print OUT &quot;&lt;/HEAD&gt;\n&quot;;<br /> print OUT &quot;&lt;BODY BGCOLOR='#FFFFFF' TEXT='#000000'&gt;\n&quot;;</p> <p>print OUT &quot;===========================================&lt;br&gt;\n&quot;;<br /> print OUT &quot;&lt;br&gt;\n&quot;;</p> <p>}</p> <p>sub tailprint {</p> <p>#<br /> # HTMLの終わりの部分を書き出します。<br /> #<br /> print OUT &quot;&lt;/XMP&gt;\n&quot;;<br /> print OUT &quot;&lt;/BODY&gt;\n&quot;;<br /> print OUT &quot;&lt;/HTML&gt;\n&quot;;<br /> print OUT &quot;\n&quot;;</p> <p>}</p> <p><br /> $dot_control_file = &quot;xxx.clf&quot;;<br /> $dot_format_file = &quot;xxx.f&quot;;<br /> $dot_data_file = &quot;xxx.dat&quot;;<br /> $dot_HTML_base_file_name = &quot;xxx&quot;;<br /> $dot_HTML_file_ext = &quot;.html&quot;;</p> <p>$maxlpp = 5;<br /> $i = 1;<br /> $j = 1;</p> <p>open(IN, $dot_data_file);</p> <p>$outfile = make_out_filename ($j);<br /> open(OUT, &quot;&gt; $outfile&quot;);</p> <p>&amp;resheadprint();</p> <p>print &quot;DEBUG: dot_HTML_base_file_name = $dot_HTML_base_file_name&lt;br&gt;\n&quot;;<br /> print &quot;DEBUG: dot_HTML_file_ext = $dot_HTML_file_ext&lt;br&gt;\n&quot;;<br /> print &quot;DEBUG: dot_data_file = $dot_data_file&lt;br&gt;\n&quot;;</p> <p>&amp;headprint();</p> <p>while (&lt;IN&gt;) {</p> <p> chomp;</p> <p># print;<br />  print &quot;$_&lt;BR&gt;\n&quot;;</p> <p> if ($i &gt; $maxlpp) {</p> <p>     # ブレーク時の処理<br /> #     print &quot;大きい\n&quot;;<br />      &amp;tailprint();<br />      close(OUT);<br /><br />      $j++;<br />      $i = 1;<br /><br />      $outfile = make_out_filename ($j);<br />      open(OUT, &quot;&gt; $outfile&quot;);</p> <p>     &amp;headprint();<br />      &amp;detailprint($_);<br /><br />  } else {</p> <p>     # ノンブレーク時の処理<br /> #     print &quot;小さい\n&quot;;<br />      &amp;detailprint($_);<br />      $i++;</p> <p> }</p> <p># print OUT &quot;$_&lt;BR&gt;\n&quot;;</p> <p> &amp;tailprint();<br />  close(OUT);</p> <p>}<br /> close(IN);<br /> &amp;tailprint();<br /> &amp;restailprint();</p> <p> </p> <p><br /> aaa</p>

表示オプション

横に並べて表示:
変化行の前後のみ表示: