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

前端之家收集整理的这篇文章主要介绍了为什么Perl不能打开我的文件?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我是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)

猜你在找的Perl相关文章