ファイル作成時
0～5までのHTMLファイルを作成したいと考えているのですが、下記２パターンでの実現方法をご掲示頂けませんでしょうか
---------------------------------------------------------------
１．下記の関数Aの中から関数Htmlを呼び出し、@list分ｎ$_.htmlファイルを作成するというものなんですが
print時、@aaaが（中身が空みたいで）読まれておらず、ファイル出力結果の内容は空行後、ファイル毎に
ファイルの数字があるだけの状況です。
どうすれば数字.htmlファイル毎にsub Htmlの内容を表示後、その中に$aを入れる事ができますでしょうか
sub A{
@list = (0, 1, 2, 3, 4, 5);
foreach $_(@list) {
@aaa = &Html($_);
open(OUT,">$_.html");
print OUT "@aaa{$_}\n$_";
close(OUT);
}
}
sub Html{my($a)=@_;
print <<HTML;
<HTML lang=ja >
<HEAD>
<TITLE></TITLE>
<BODY>test$a
</BODY></HTML>
HTML
}
---------------------------------------------------------------
２．sab Aの関数内にsub Htmlの内容自体を持ってくる形で実現する場合について
これも同様に@aaaが（中身が空みたいで）読まれておらず、ファイル出力結果の内容は空行後、ファイル毎に
ファイルの数字があるだけの状況です。
sub A{
@list = (0, 1, 2, 3, 4, 5);
foreach $_(@list) {
@aaa = print <<HTML;
<HTML lang=ja >
<HEAD>
<TITLE></TITLE>
<BODY>test$_
</BODY></HTML>
HTML
open(OUT,">$_.html");
print OUT "@aaa{$_}\n$_";
close(OUT);
}
}
どなたか上記２点についてのいずれかでも結構ですので、ご教授願えませんでしょうか。宜しくお願い致します。
お礼
ありがとうございます。 試したら、無ければ新しいファイルが作成できました。