perl - Perlで変数を使用してファイル名を作成する

Question

ファイルに書き出そうとしています。ファイル名は変数（名前+ユーザーID +日付と時刻+ファイル拡張子）から作成されます。

私は自分のコードに基づいたStackoverflowでさまざまなことを読みました。

my $windowsfile = "winUserfile-$User_ID-$datetime.csv";
open winUserfile, ">>", $windowsfile) or die "$!";
print winUserfile "User_ID, Expression\n";
close winUserfile;

これでうまくいくと思いましたが、構文エラーが発生します。誰かが助けることができるでしょうか？

Answer 1

2番目の行には、前に開いていないクローズパレンがあります。

open winUserfile, ">>", $windowsfile) or die "$!";

あなたはおそらく最初にそれを開きたいでしょう

open(winUserfile, ">>", $windowsfile) or die "$!";

または、この場合はオプションであるため、ここで完全に気にしないでください

open winUserfile, ">>", $windowsfile or die "$!";

---

また、ベアワードファイルハンドルを使用すると、グローバルになるため、スタイルが悪くなります。字句を使用することをお勧めします。

open my $winUserfile, ">>", $windowsfile or die "$!";
print $winUserfile "User_ID, Expression\n";

その後、それを閉じる必要はありません。$winUserfile変数がスコープ外になると、クローズは自動的に行われます。

Answer 2

IO::Allファイルioのモジュールを使用するのが好きです。

use IO::All

my $windowsfile = "winUserfile-$User_ID-$datetime.csv";
io($windowsfile) > "User_ID, Expression\n";

Answer 3

my $windowsfile = "winUserfile-$User_ID-$datetime.csv";
open (winUserfile, ">>$windowsfile") or die "$!";
print winUserfile "User_ID, Expression\n";
close winUserfile;