在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";
if (-e "/filepath/file"){…}
。 - vol7ronYAML
或JSON
来为您完成大部分工作。 - Miller