perl - 打印到屏幕的输出不同于输出到文件

Question

使用 print 运算符将键/值数组写入外部 javascript 文件会生成与打印到屏幕不同的输出，尽管我尽了最大努力，但我无法弄清楚原因。具体来说，当打印到屏幕时，正如预期的那样，我的 Perl 脚本输出:

var genusSpecies={"Adam's Needle (Yucca filamentosa)":["Adam's Needle (Yucca filamentosa)1.jpg","._Adam's Needle (Yucca filamentosa)2.jpg"...

但是，当打印到外部 JavaScript 文件时，点下划线 ._ 不正确地添加到数组的键和值之前，输出:

var genusSpecies={"._Adam's Needle (Yucca filamentosa)":["._Adam's Needle (Yucca filamentosa)1.jpg","._Adam's Needle (Yucca filamentosa)2.jpg"...

这是我的 Perl 脚本:

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

use JSON::PP;

use English;  ## use names rather than symbols for special variables

my $dir = './Plants1024';

opendir my $dfh, $dir or die "Can't open $dir: $OS_ERROR";
my %genus_species;  ## store matching entries in a hash

for my $file (readdir $dfh)
{
    next unless $file =~ /.(jpe?g|png)$/i;  ## entry must have jpg, jpeg, or png extension, case insensitive
    my $genus = $file =~ s/\d*\.(?i)(jpe?g|png)(?-i)$//r;
    push(@{$genus_species{$genus}}, $file);  ## push to array, the @{} is to cast the single entry to a reference to a list

}

@{$genus_species{$_}} = sort @{$genus_species{$_}}
   for keys(%genus_species);

my $str = (JSON::PP->new->utf8->canonical->encode(\%genus_species));  ## define array in Javascript outputting elements containing image file names

print "var genusSpecies=", $str;  ## Inserted this line to test "print" output... prints properly WITHOUT adding "._"

my $filename = './Plants1024/PhotoArray.js';

 open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";
 print $fh "var genusSpecies=", $str;  ## saves JavaScript key/value array in external JavaScript file, BUT improperly prepends "._" to both keys and values 
 close $fh;

有趣的是，只有在我的 Raspberry Pi4 上执行此 Perl 脚本时，屏幕输出与文件输出才会不同，将 ._ 添加到写入文件中的数组键/值。

正如预期的那样，在我的 Mac 上，屏幕和文件输出是相同的。更重要的是，在 Mac 上执行我的 Perl 脚本时，._ 没有被错误地添加。

也许数组键/值中的空格导致了这种行为，但为什么只在 Raspberry Pi4 而不是 Mac 上？请指教。

Answer 1

默认情况下，ls 隐藏以 开头的文件。

$ ls -1
'Adam'\''s Needle (Yucca filamentosa)'

$ ls -a1
.
..
'._Adam'\''s Needle (Yucca filamentosa)'
'Adam'\''s Needle (Yucca filamentosa)'

这会让您认为您没有这样的文件，但它们确实存在。

readdir 不会忽略此类文件。您可以通过添加来解决这个问题

next if $file =~ /^\./;

虽然 readdir 不会忽略以 . 开头的文件，但在 Mac 上它可能会忽略以 ._ 开头的文件。 Mac 会创建此类文件来存储有关同名文件的额外信息。我猜您正在阅读的目录是在 Mac 上创建的。