Perl:打开文件

Question

我正在尝试打开作为参数接收的文件。

当我将参数存储到全局变量中时 打开 工作成功。

但

如果我使用 give make it 因为我的打开失败 打开 文件。

是什么原因。

#use strict;
use warnings;

#my $FILE=$ARGV[0];   #open Fails to open the file $FILE

$FILE=$ARGV[0];        #Works Fine with Global $FILE
open(FILE)
    or
die "\n ". "Cannot Open the file specified :ERROR: $!". "\n";

Answer 1

一元打开仅适用于包(全局)变量。这记录在 the manpage 上.

打开文件进行阅读的更好方法是:

my $filename = $ARGV[0];           # store the 1st argument into the variable
open my $fh, '<', $filename or die $!; # open the file using lexically scoped filehandle

print <$fh>; # print file contents

附言始终使用 strict和 warnings在调试 Perl 脚本时。