perlから出力するファイル名をカウンタ番号+.txtに

Question

お世話になります。
perlから出力するファイルを各ログ毎に、
カウンタ番号＋.txtで生成できればと思います。
下記のコードでは、ファイル名がカウンタの値のみになり、.txtが反映されず
思うような結果が得られません。どのような指示にすれば良いのか
よろしくお願いいたします。

sub templateselect {
my $template = "";
if ($formss eq '1'){
receiptnumber() ;
}
else{
$template = 'contact.html';
}
}
my $dataFile = "$receiptnumber.txt";
my $template = templateselect;

sub receiptnumber{
open(FH, "+<./counter.dat") or printErrorPage("ファイルが開けません。");
flock(FH, LOCEX); 
$receiptnumber = <FH>;
$receiptnumber++;
seek(FH, 0, 0);
print FH "$receiptnumber\n";	#ファイルに新しいカウント数を書き込む。
flock(FH, LOCNB); 
close(FH);
}

sub stockData
{
	open DATA,">$dataFile" or err("$dataFileが開けません。");
	print DATA "$now\t";
	print DATA "$receiptnumber\t";
	print DATA "$name\t$ename\t\n";
	close DATA;
	return 1;
}

Answer 1

下記のコードでは、ファイル名が$receiptnumberfileになり

ダブルクオーテーションではなくシングルクオーテーションを使っているからですね。
ただコードの順番がおかしいのでこれでは実質的に意味がありませんが。
というかなんで別の変数に入れなおしているのかも良く分かりませんが。

こういう事がやりたかったのですかね。

my $receiptnumberfile ="$receiptnumber.txt";

Comments

[spim]

KojiDoi様

ご回答いただきありがとうございます。
ご教示いただいた方法で試しました。
ファイル名が無く、.txtのみのファイルが生成されました。
カウンターとの絡みの問題でしょうか?
よろしくお願いいたします。

[KojiDoi]

そりゃ$receiptnumberが未定義ならそうなるのは当たり前ですね。私は完成品を示しているわけではないので、プログラムの流れは自分で考えてみてください。そもそもこのプログラムは全体としておかしなところが多く、一か所直しただけでは動きませんよ。それぞれの式や関数が何をしていてどこに使われているのか全く把握できていないのではないですか?

[spim]

KojiDoi様

ご回答いただきありがとうございます。
書式は抜粋して記入しておりました。
現状、保存ファイルにカウンタの値は反映されますが、
.txtの部分が反映されない状況です。
.txtの箇所を反映する方法をご教示いただければと存じます。
よろしくお願いいたします。

[spim]

KojiDoi様

拡張子をつけることができました。
但し、保存したファイルをftpソフトで開こうとしたところ、
550エラーが発生し（550 12: No such file or directory）、ファイルをダウンロードや、削除ができない状況です。
こちらを回避する方法はありますでしょうか？
よろしくお願いいたします。