perl - Perlを使用してディレクトリにファイルを作成する

Question

Perlでopen（）を使用して既存のディレクトリに書き込む予定の新しいファイルを作成するにはどうすればよいですか？

私はこのように試しました：

my $existingdir = './mydirectory';

open my $fileHandle, ">>", "$existingdir/filetocreate.txt" or die "Can't open '$existingdir/filetocreate.txt'\n";

しかし、それは機能しません。

Answer 1

my $existingdir = './mydirectory';
mkdir $existingdir unless -d $existingdir; # Check if dir exists. If not create it.
open my $fileHandle, ">>", "$existingdir/filetocreate.txt" or die "Can't open '$existingdir/filetocreate.txt'\n";
print $fileHandle "FooBar!\n";
close $fileHandle;

これはあなたのために働くはずです。

Answer 2

my $FILE;

open($FILE, ">>File.txt")||die("Cannot open file:".$!);

close($FILE);

File.txtの代わりにディレクトリの場所を追加できます。