Perl -在Padre，Windows中工作的脚本。但不是在Linux Ubuntu中

Question

我试着把我的脚本转移到我一直在Windows上工作的地方。但它在第一个障碍时就失败了。

use strict;
use warnings;

my $keywordFile = 'keyword.txt';        

open(keyWords, $keywordFile) or die "$keywordFile not found\n";

my @keywordArray;

while ( my $line = <keyWords> ) {
    chomp $line;
    push @keywordArray, $line;
}

close(keyWords);

它一直在死亡，即使在同一个目标中有一个名为'keyword.txt‘的文件。问题是来自Ubuntu，还是我的Perl错了？

Answer 1

即使在同一个目标中有一个名为'keyword.txt‘的文件，它也会一直挂掉。

根据工作目录(即运行脚本的目录)解析相对路径，而不是解析脚本所在的目录。

你应该选择

1. 从包含所有所需文件的目录运行脚本
2. 使用FindBin模块获取脚本位置，并使用该路径引用文件名：

例如：

use FinBin;
my $keywordFile = "$FindBin::Bin/keyword.txt";