使用 Perl 打开文件并预览其内容

Question

我正在为学校做一个项目，这门课非常不具描述性。我不明白发生了什么以及为什么我无法显示文件。

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

print "\n+--------------------------+";
print "\n| The File Search &        |";
print "\n|         Display Tool     |";
print "\n+--------------------------+";

print "\nPlease enter the file you would like to read (with full path): \n";

my $FILE = <STDIN>;
chomp $FILE;
sleep 1;

open (FILE, "$FILE");
print "  Here is the secret information you seek supreme leader: \n";
print "==============================================================";

while ($FILE) {
    chomp $FILE;
    open $FILE;
}

我不完全确定我做错了什么。我尝试了各种不同的组合，但它只会导致错误。

---

更新

所以我根据大家的建议对代码进行了一些修改（见下文）。运行脚本后返回以下错误

readline() on unopened filehandle at test.pl line 30.

在下面的代码中，我想我打开了文件句柄，但这个错误让我觉得我在打开命令附近的某个地方搞砸了。

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

print "\n+--------------------------+";
print "\n| The File Search &        |"; #Not so fancy banner! 
print "\n|         Display Tool     |"; 
print "\n+--------------------------+";

print "\n   Welcome to the Tool. It is still being tested!!\n";
print "\n    Please enter the file you would like to read: ";

my $filename = <STDIN>; #define the variable for the filename

if ( not -f $filename ) #This checks the validity of the file
{
print "Filename does not exist\n";
exit;
}

sleep 1;

print "  Here is the secret information you seek supreme leader: \n";
print "==============================================================\n";

open my $filehandle, "<", $filename; #or die $!

while ( <$filename> ) { #While loop to read each line of the file
    chomp;
    print "$_\n";
}

我注释掉了打开字符串的 or die 部分，因为它只是杀死了脚本，我想看看有什么问题。我对 open 语句中的“

Answer 1

你只是把你的变量搞混了。您正在使用$FILE 和FILE，以及（不可见的）$_。 $FILE 以文件的 name 开头，但您也从中读取，chomp 它和 open 它是错误的

您应该open 文件名、读取 文件句柄和print 您已读取的内容（或任何其他值）。最好对所有局部变量使用小写，为全局变量保留大写

您的代码应如下所示。我使用了 lexical 文件句柄 $fh 而不是老式的全局句柄。将变量放在 "$FILE" 这样的引号中是错误的：充其量没有区别，但它可能会破坏您的程序。此外，<$fh> 在类似的while 循环中读入默认变量$_，这也是chomp 的默认参数。把它想象成英语中的代词it

open my $fh, '<', $file_name;
while ( <$fh> ) {
    chomp;
    print "$_\n";
}

Answer 2

这里的核心问题是你重新打开，而不是真正阅读。

打开文件：

open ( my $filehandle, "<", $filename ) or die $!;

die 非常重要，因为它会告诉您打开文件是否有问题。 $! 是打开操作的“状态码”，如果找不到文件，它会告诉你。

但所有这样做是“设置”$filehandle 为您提供访问点。

要获取文件的内容，您需要读取它，在perl 中，这是通过<> 完成的。

所以：

my $line = <$filehandle>

将读取一行。

如果您想读取多行内容，请在 while 循环中执行。

while ( my $line = <$filehandle> ) {
    print $line;
}

您可能还会发现在执行此操作之前测试文件是否存在很有用：

if ( not -f $filename ) { 
   print "$filename does not exist\n";
   exit; 
}

Answer 3

两个问题：第一，您从 FILE 读取的方式与从 STDIN 读取的方式相同，使用 <> 运算符。二、假设你想显示$FILE的内容，你的while循环应该是这样的

while (<FILE>) {
    print;
}

这使用隐式变量$_ 存储每次通过循环从FILE 读取的行，这与print 使用的变量相同，没有其他参数。更明确地说，你可以写

while (my $line = <FILE>) {
    print "$line";
}

chomp 不需要，因为print 不会打印额外的换行符，除非你告诉它。你也可以写

while (<FILE>) {
    chomp;
    print "$_\n";
}

或

while (my $line = <FILE>) {
    chomp $line;
    print "$line\n"
}