快速提问,我确定这是我对变量做的完全错误的事情,但是,这就是问题所在。
先上代码:
#!/usr/bin/perl
use strict;
use warnings;
my $File = "file.txt";
my $CurrentLinesCount = `wc -l < $File` or die "wc failed: $?";
chomp($CurrentLinesCount);
sub GetStatistics() {
if (-d $dir) {
print "Current Lines In File: $CurrentLinesCount\n";
}
else {
exit;
}
}
sub EditFile() {
my $editfile = $File;
my $text = "1234\n12345\n234324\n2342\n2343";
open(MYFILE,">>$editfile") || die("Cannot Open File");
print MYFILE "$text";
close(MYFILE);
sleep 5;
}
## MAIN
GetStatistics();
EditFile();
GetStatistics();
这是我得到的输出:
文件中的当前行:258 文件中的当前行:258
我验证了该文件正在被写入并附加到。有人可以为我指出正确的方向,了解如何设置、更新和正确调用变量吗?