「Gen0001」の編集履歴(バックアップ)一覧はこちら
「Gen0001」(2008/07/19 (土) 20:41:57) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
<p><br /><br />
aaa<br /><br /><br />
sub make_out_filename {<br />
print "DEBUG: [ 0 ]=$_[0]<br>\n";<br />
my $aa = $dot_HTML_base_file_name . $_[0] . $dot_HTML_file_ext;<br />
print "DEBUG: $aa=$aa<br>\n";<br />
return($aa);<br />
}</p>
<p>sub resheadprint {</p>
<p>print "<HTML>\n";<br />
print "<HEAD>\n";<br />
print "<TITLE>CGI TEST</TITLE>\n";<br />
print "</HEAD>\n";<br />
print "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n";</p>
<p>print("===========================================<br>\n");<br />
print("<br>\n");</p>
<p>}</p>
<p>sub restailprint {</p>
<p>#<br />
# HTMLの終わりの部分を書き出します。<br />
#<br />
print "</XMP>\n";<br />
print "</BODY>\n";<br />
print "</HTML>\n";<br />
print "\n";</p>
<p>}</p>
<p>sub detailprint {</p>
<p> print OUT "$_[0] . <BR>\n";</p>
<p>}</p>
<p>sub headprint {</p>
<p># print OUT "$_<BR>\n";<br />
print OUT "<HTML>\n";<br />
print OUT "<HEAD>\n";<br />
print OUT "<TITLE>CGI TEST</TITLE>\n";<br />
print OUT "</HEAD>\n";<br />
print OUT "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n";</p>
<p>print OUT "===========================================<br>\n";<br />
print OUT "<br>\n";</p>
<p>}</p>
<p>sub tailprint {</p>
<p>#<br />
# HTMLの終わりの部分を書き出します。<br />
#<br />
print OUT "</XMP>\n";<br />
print OUT "</BODY>\n";<br />
print OUT "</HTML>\n";<br />
print OUT "\n";</p>
<p>}</p>
<p><br />
$dot_control_file = "xxx.clf";<br />
$dot_format_file = "xxx.f";<br />
$dot_data_file = "xxx.dat";<br />
$dot_HTML_base_file_name = "xxx";<br />
$dot_HTML_file_ext = ".html";</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, "> $outfile");</p>
<p>&resheadprint();</p>
<p>print "DEBUG: dot_HTML_base_file_name =
$dot_HTML_base_file_name<br>\n";<br />
print "DEBUG: dot_HTML_file_ext = $dot_HTML_file_ext<br>\n";<br />
print "DEBUG: dot_data_file = $dot_data_file<br>\n";</p>
<p>&headprint();</p>
<p>while (<IN>) {</p>
<p> chomp;</p>
<p># print;<br />
print "$_<BR>\n";</p>
<p> if ($i > $maxlpp) {</p>
<p> # ブレーク時の処理<br />
# print "大きい\n";<br />
$j++;<br />
$i = 1;<br />
&tailprint();<br />
&headprint();<br />
&detailprint();<br />
close(OUT);</p>
<p> } else {</p>
<p> # ノンブレーク時の処理<br />
# print "小さい\n";<br />
&detailprint();<br />
$i++;</p>
<p> }</p>
<p># print OUT "$_<BR>\n";</p>
<p> &tailprint();<br />
close(OUT);</p>
<p>}<br />
close(IN);<br />
&tailprint();<br />
&restailprint();</p>
<p> </p>
<p><br />
aaa</p>
<p><br /><br />
aaa<br /><br /><br />
sub make_out_filename {<br />
print "DEBUG: [ 0 ]=$_[0]<br>\n";<br />
my $aa = $dot_HTML_base_file_name . $_[0] . $dot_HTML_file_ext;<br />
print "DEBUG: $aa=$aa<br>\n";<br />
return($aa);<br />
}</p>
<p>sub resheadprint {</p>
<p>print "<HTML>\n";<br />
print "<HEAD>\n";<br />
print "<TITLE>CGI TEST</TITLE>\n";<br />
print "</HEAD>\n";<br />
print "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n";</p>
<p>print("===========================================<br>\n");<br />
print("<br>\n");</p>
<p>}</p>
<p>sub restailprint {</p>
<p>#<br />
# HTMLの終わりの部分を書き出します。<br />
#<br />
print "</XMP>\n";<br />
print "</BODY>\n";<br />
print "</HTML>\n";<br />
print "\n";</p>
<p>}</p>
<p>sub detailprint {</p>
<p> print OUT "$_[0] . <BR>\n";</p>
<p>}</p>
<p>sub headprint {</p>
<p># print OUT "$_<BR>\n";<br />
print OUT "<HTML>\n";<br />
print OUT "<HEAD>\n";<br />
print OUT "<TITLE>CGI TEST</TITLE>\n";<br />
print OUT "</HEAD>\n";<br />
print OUT "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n";</p>
<p>print OUT "===========================================<br>\n";<br />
print OUT "<br>\n";</p>
<p>}</p>
<p>sub tailprint {</p>
<p>#<br />
# HTMLの終わりの部分を書き出します。<br />
#<br />
print OUT "</XMP>\n";<br />
print OUT "</BODY>\n";<br />
print OUT "</HTML>\n";<br />
print OUT "\n";</p>
<p>}</p>
<p><br />
$dot_control_file = "xxx.clf";<br />
$dot_format_file = "xxx.f";<br />
$dot_data_file = "xxx.dat";<br />
$dot_HTML_base_file_name = "xxx";<br />
$dot_HTML_file_ext = ".html";</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, "> $outfile");</p>
<p>&resheadprint();</p>
<p>print "DEBUG: dot_HTML_base_file_name =
$dot_HTML_base_file_name<br>\n";<br />
print "DEBUG: dot_HTML_file_ext = $dot_HTML_file_ext<br>\n";<br />
print "DEBUG: dot_data_file = $dot_data_file<br>\n";</p>
<p>&headprint();</p>
<p>while (<IN>) {</p>
<p> chomp;</p>
<p># print;<br />
print "$_<BR>\n";</p>
<p> if ($i > $maxlpp) {</p>
<p> # ブレーク時の処理<br />
# print "大きい\n";<br />
&tailprint();<br />
close(OUT);<br /><br />
$j++;<br />
$i = 1;<br /><br />
$outfile = make_out_filename ($j);<br />
open(OUT, "> $outfile");</p>
<p> &headprint();<br />
&detailprint($_);<br /><br />
} else {</p>
<p> # ノンブレーク時の処理<br />
# print "小さい\n";<br />
&detailprint($_);<br />
$i++;</p>
<p> }</p>
<p># print OUT "$_<BR>\n";</p>
<p> &tailprint();<br />
close(OUT);</p>
<p>}<br />
close(IN);<br />
&tailprint();<br />
&restailprint();</p>
<p> </p>
<p><br />
aaa</p>