Question

菜鸟问题：关于perl @ARGV

创建两个文件

文件名：1.txt
内容：
1320238
1320239
1320239
1320238
1320238
1320238
1320235
1320237
文件名：2.txt

内容：
102 5709072117805887 4001 1301854
102 5709072117807510 4001 1320292
102 5709072117838653 4001 1301857
102 5709072117814280 4001 1305832
102 5709072117839397 4001 1310673
102 5709072117839335 4001 1311270

perl脚本
名称：ex.pl

内容：如下
#!/usr/bin/perl
use strict;

open(ONE,"$ARGV[0]") or die $!;
open(TWO,"$ARGV[1]") or die $!;

my %hash;
while (<TWO>) {
chomp;
my @line=split;
my $column4=$line[3];
$hash{$column4}=$_;
}

while (<ONE>) {
chomp;
print $hash{$_} if defined $hash{$_};

}

print"\n";

命令行参数：ex.pl 1.txt 2.txt

结果显示：No such file or directory at ex.pl line 4.
我的问题：应如何修改程序？
是不是两个文本（1.txt 2.txt）放错了地方？

Answer 1

你在文件里面增加下面的语句，看看参数是否带入正确：
print "ONE $ARGV[0]\n";

print "TWO $ARGV[1]\n";

如果参数带入没有问题，你再看看当前文件夹下是否存在1.txt和2.txt。

追问

当前文件夹指的是？

追答

你输入命令的时候，如果要能执行成功，那么你下面的命令应该必须成功：

UNIX命令：
cat 1.txt

WINDOWS:
type 1.txt

Answer 2

ex.pl 1.txt 2.txt这个问题应如何修改程序呢谢谢