如何在Perl中读取文件，如果它不存在，则创建它？

wnavrhmk 于 2023-08-06 发布在 Perl

关注(0)|答案(4)|浏览(270)

在Perl中，我知道这个方法：

open( my $in, "<", "inputs.txt" );

字符串
读取文件，但仅当文件存在时才这样做。
用另一种方式，用+：

open( my $in, "+>", "inputs.txt" );

型
写一个文件/截断，如果它存在，所以我没有机会读取文件并将其存储在程序中。
如果文件存在或不存在，我如何在Perl中读取文件？
好吧，我已经编辑了我的代码，但文件仍然没有被读取。问题是它没有进入循环。我的代码有问题吗？

open( my $in, "+>>", "inputs.txt" ) or die "Can't open inputs.txt : $!\n";
while (<$in>) {
    print "Here!";
    my @subjects    = ();
    my %information = ();
    $information{"name"}     = $_;
    $information{"studNum"}  = <$in>;
    $information{"cNum"}     = <$in>;
    $information{"emailAdd"} = <$in>;
    $information{"gwa"}      = <$in>;
    $information{"subjNum"}  = <$in>;
    for ( $i = 0; $i < $information{"subjNum"}; $i++ ) {
        my %subject = ();
        $subject{"courseNum"} = <$in>;
        $subject{"courseUnt"} = <$in>;
        $subject{"courseGrd"} = <$in>;
        push @subjects, \%subject;
    }
    $information{"subj"} = \@subjects;
    push @students, \%information;
}
print "FILE LOADED.\n";
close $in or die "Can't close inputs.txt : $!\n";

型

perl

来源：https://stackoverflow.com/questions/25861414/how-to-read-file-in-perl-and-if-it-doesnt-exist-create-it

4条答案

按热度按时间

j8yoct9x1#

使用正确的test file operator：

use strict;
use warnings;
use autodie;

my $filename = 'inputs.txt';
unless(-e $filename) {
    #Create the file if it doesn't exist
    open my $fc, ">", $filename;
    close $fc;
}

# Work with the file
open my $fh, "<", $filename;
while( my $line = <$fh> ) {
    #...
}
close $fh;

字符串
但是如果文件是新的（没有内容），while循环将不会被处理。只有在测试正常的情况下才更容易读取文件：

if(-e $filename) {
   # Work with the file
   open my $fh, "<", $filename;
   while( my $line = <$fh> ) {
      #...
   }
   close $fh;
}

型

赞(0）回复(0）举报 2023-08-06

szqfcxe22#

你可以使用+>>进行读取/追加，如果文件不存在，则创建文件，但不截断它：

open(my $in,"+>>","inputs.txt");

字符串

赞(0）回复(0）举报 2023-08-06

f5emj3cl3#

首先检查文件是否存在。查看下面的示例代码：

#!/usr/bin/perl
use strict;
use warnings;
my $InputFile = $ARGV[0];
if ( -e $InputFile ) {
    print "File Exists!";
    open FH, "<$InputFile";
    my @Content = <FH>;
    open OUT, ">outfile.txt";
    print OUT @Content;
    close(FH);
    close(OUT);
} else {
    print "File Do not exists!! Create a new file";
    open OUT, ">$InputFile";
    print OUT "Hello World";
    close(OUT);
}

字符串

赞(0）回复(0）举报 2023-08-06

jucafojl4#

acceptet answer中提出的解决方案可以使用来自https://www.cpan.org的File::Touch库，以更少（更好的可读性）的代码编写

use File::Touch;

my $file = 'a_file.txt';

touch($file) unless(-e $file);

字符串

赞(0）回复(0）举报 2023-08-06

我来回答

如何在Perl中读取文件，如果它不存在，则创建它？

4条答案

相关问题

热门标签

最新问答