打印输出到屏幕与输出到文件不同

使用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 上？请指教。

回答

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

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

next if $file =~ /^./;