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 ("파일을 열 수 없습니다 :". $!);

닫기 ($ FILE);

File.txt 앞에 디렉토리 위치를 추가 할 수 있습니다.