为什么Perl不能打开我的文件？

发布时间：2020-12-16 06:10:26 所属栏目：大数据来源：网络整理

导读：我是Perl编码的新手. 我在执行一个小脚本时遇到问题： open无法找到我作为参数提供的文件. 该文件可用： ls -l DLmissing_months.sql-rwxr-xr-x 1 tlmwrk61 aimsys 2842 May 16 09:44 DLmissing_months.sql 我的Perl脚本： #!/usr/local/bin/perluse strict;

我是Perl编码的新手.
我在执行一个小脚本时遇到问题：
open无法找到我作为参数提供的文件.

该文件可用：

ls -l DLmissing_months.sql
-rwxr-xr-x   1 tlmwrk61 aimsys      2842 May 16 09:44 DLmissing_months.sql

我的Perl脚本：

#!/usr/local/bin/perl

use strict;
use warnings;

my $this_line = "";
my $do_next = 0;
my $file_name = $ARGV[0];
open( my $fh,'<','$file_name')
    or die "Error opening file - $!n";
close($fh);

执行Perl脚本：

> new.pl DLmissing_months.sql
Error opening file - No such file or directory

我的Perl脚本有什么问题？

解决方法

单引号不进行插值.您尝试打开名为$file_name的文件,而不是打开DLmissing_months.sql.使用双引号进行插值.在这种情况下,您可以单独使用该变量：

open( my $fh,$file_name)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!