perl的getopt的::长文件路径

Question

我试图打开输入文件使用的Getopt参数::龙模块

这是我的脚本

#! /usr/bin/perl -s 
use strict; 
use warnings; 

use Data::Dumper; 
local $Data::Dumper::Useqq = 1; 
use Getopt::Long qw(GetOptions);; 

my $input=''; 

GetOptions('input|in=s' => \$input); 

open(my $table1,'<', $input) or die "$! - [$input]"; #input file 

这年初是怎么启动脚本

$ script.pl -in /path/to/file.txt 

我得到的输出：

没有这样的文件或目录 - [] at script.pl第13行。

第13行是open(...。

脚本中是否有错误？

Answer 1

您正在使用Perl的内置选项解析您的shebang行中的-s。在像script.pl -in /path/to/file.txt命令，使perl的变量$in设置为1，Getopt::Long之前从@ARGV相应的条目曾经看到它

刚从家当线去除-s和一切它会为你

Answer 2

没有，脚本没有错误。你的代码正在做你告诉它做的事情。

它调用该行的die "$! - [$input]";部分，因为open返回了虚假值。

没有这样的文件或目录是$!的内容。这是它遇到的错误。并且在[]之间有$input的值，它是空的。所以这是你的问题。你传递一个空字符串到open，那就失败了。

你说这是错误的方式。

Getopt :: Long要求的选项长于一个字母的前缀--。这意味着-in应该是--in。

$ script.pl --in /path/to/file.txt 

因为您没有这样做，Getopt :: Long没有看到您的选项，也没有解析它。稍微高一点你初始化$input = ''，所以它留空字符串。

您可以添加一个检查以确保始终提供输入文件。

use strict; 
use warnings; 
use Getopt::Long qw(GetOptions);; 

my $input = ''; 

GetOptions('input|in=s' => \$input); 

die 'the --input option is required!' unless $input; 

open(my $table1,'<', $input) or die "$! - [$input]"; #input file