Создать файл в каталоге с помощью Perl

Question

Как создать новый файл, в котором я намерен писать в существующем каталоге, используя open() в Perl?

Я пытался так:

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 ("Не удается открыть файл:". $!);

закрыть ($ FILE);

вы можете добавить расположение каталога перед файлом File.txt.