使用Perl在目录中创建文件

发布时间：2020-12-15 21:46:07 所属栏目：大数据来源：网络整理

导读：如何创建一个新文件,我打算在Perl中使用open()在现有目录中编写？我试过这样的： my $existingdir = './mydirectory';open my $fileHandle,"","$existingdir/filetocreate.txt" or die "Can't open '$existingdir/filetocreate.txt'n"; 但它不会起作用. 解

如何创建一个新文件,我打算在Perl中使用open()在现有目录中编写？

我试过这样的：

my $existingdir = './mydirectory';

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

但它不会起作用.

解决方法

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;

这应该适合你.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!