使用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

我的$ FILE;

打开（$ FILE，＆＃34;＆gt;＆gt; File.txt＆＃34;）|| die（＆＃34;无法打开文件：＆＃34;。$！）;

接近（$ FILE）;

您可以在File.txt前面附加目录位置。