Perl - 读取文本文件时出错

Question

我正在尝试在perl中读取文件。

我只想打印文件players.txt的每一行的名称。

我正在使用此代码：

#!/usr/local/bin/perl
open (MYFILE, 'players.txt');
while () {
    chomp;
    print "$_\n";
}
close (MYFILE);

这会产生此错误：

./program5.pl: line 2: syntax error near unexpected token `MYFILE,'
./program5.pl: line 2: `    open (MYFILE, 'players.txt');'

我正在使用Unix操作系统来执行此操作。我找不到适用于在Perl中读取文件的指南。

Answer 1

您获得的错误是bash错误，这意味着您要求bash处理Perl代码。这不会起作用

猜测一下，你的shebang线#!/usr/local/bin/perl不会从第一行的开头开始。两个字符#!必须是文件的前两个字节

如果您指定perl应运行程序，则可以删除shebang行：

perl program5.pl

while ()中也有错误，这是一个无限循环，无法从文件中读取。你需要

while ( <MYFILE> ) {
    ...
}

你找到了一个非常贫穷和老式的建议来学习Perl。我建议你看一下 Perl tag information 其中列出了许多优秀的教程和资源