在 perl 中出现“没有这样的文件或目录”的错误

Question

这是我的代码，我正在使用子程序传递文件。从子程序我无法打开文件。它抛出一个错误a

“无法打开 inputFiles/Fundamental.FinancialLineItem.FinancialLineItem.SelfSourcedPublic.SHE.1.2017-01-11-2259.Full.txt : Practice_Dubugg.pl 第 40 行没有这样的文件或目录。”

    use strict;
use warnings;
use Getopt::Std;
use FileHandle;

my %opts;
my $optstr = "i:o:";
getopts("$optstr", \%opts);
if($opts{i} eq '' || $opts{o} eq '' )
{
        print "usage: perl TextCompare_Fund.pl <-i INPUTFILE> <-o MAPREDUCE OUTPUTFILE>\n";
        die 1;
}
my $inputFilesPath=$opts{i};
my $outputFilesPath=$opts{o};
my @ifiles=`ls $inputFilesPath`;
my @ofiles=`ls $outputFilesPath`;
foreach my $ifile (@ifiles)
{
    my $ifile_substr=substr("$ifile",0,-25);
    foreach my $ofile (@ofiles)
    {
        my $ofile_substr=substr("$ofile",0,-21);
        my $result=$ifile_substr cmp $ofile_substr;
        if($result eq 0)
        {
            print "$result\n";
            #print "$ifile\n";
            compare($ifile,$ofile)
        }
    }
}
sub compare
{
    my $afile="$_[0]";
    my $bfile="$_[1]";
    my $path1="$inputFilesPath/$afile";
    my $path2="$outputFilesPath/$bfile";
    #open FILE, "<", $path1 or die "$!:$path1";
    open my $infile, "<", $path1 or die "Couldn't open $path1: $!";
    my %a_lines;
    my %b_lines;
    my $count1=0;
    while (my $line = <$infile>) 
    {
        chomp $line;
        $a_lines{$line} = undef;
        $count1=$count1+1;
    }
    print"File1 records count : $count1\n";
    close $infile;
    my $file=substr("$afile",0,-25);
    my $OUTPUT = "/hadoop/user/m6034690/Kishore/$file.comparision_result";
    open my $outfile, "<", $path2 or die "Couldn't open $path2: $!";
    open (OUTPUT, ">$OUTPUT") or die "Cannot open $OUTPUT \n";

    my $count=0;
    my $count2=0;
    while (my $line = <$outfile>) 
    {
        chomp $line;
        $b_lines{$line} = undef;
        $count2=$count2+1;
        next if exists $a_lines{$line};
        $count=$count+1;
        print OUTPUT "$line \t===> The Line which is selected from file2/arg2 is mismatching/not available in file1\n";
    }   
    print "File2 records count : $count2\n";
    print "Total mismatching/unavailable records in file1 : $count\n";
    close $outfile;
    close OUTPUT;
}

Answer 1

尝试在下面的注释后面添加以下行。

my $afile="$_[0]";
my $bfile="$_[1]";
my $path1="$inputFilesPath/$afile";
my $path2="$outputFilesPath/$bfile";

#comment, add the below chomps right under the above portion.
chomp $path1;
chomp $path2;

我的测试工作正常，因为路径现在已正确格式化。

我的结果：

File1 records count : 1
File2 records count : 1
Total mismatching/unavailable records in file1 : 1

解决这个问题花了一些时间，但有点令人困惑，因为脚本说用法是 -i INPUTFILE 和 -o OUTPUTFILE

这告诉我应该添加文件路径而不是文件夹路径，但无论如何，问题应该得到解决。

编辑： 一个更好的选择，我们应该在 ls 出现的地方添加 chomp。

chomp( my @ifiles=`ls $inputFilesPath` );
chomp( my @ofiles=`ls $outputFilesPath` );