我正在使用 Perl。我正在目录中制作一组文件。以点开头的隐藏文件位于我的数组的开头。我想实际上忽略并跳过这些,因为我不需要它们在数组中。这些不是我要查找的文件。
问题的解决似乎很容易。只需使用正则表达式来搜索和排除隐藏文件。这是我的代码:
opendir(DIR, $ARGV[0]);
my @files = (readdir(DIR));
closedir(DIR);
print scalar @files."\n"; # used just to help check on how long the array is
for ( my $i = 0; $i < @files; $i++ )
{
# ^ as an anchor, \. for literal . and second . for match any following character
if ( $files[ $i ] =~ m/^\../ || $files[ $i ] eq '.' ) #
{
print "$files[ $i ] is a hidden file\n";
print scalar @files."\n";
}
else
{
print $files[ $i ] . "\n";
}
} # end of for loop
这会产生一个数组@files
,并向我显示目录中的隐藏文件。下一步是从数组中删除隐藏文件@files
。所以使用这个shift
函数,像这样:
opendir(DIR, $ARGV[0]);
my @files = (readdir(DIR));
closedir(DIR);
print scalar @files."\n"; # used to just to help check on how long the array is
for ( my $i = 0; $i < @files; $i++ )
{
# ^ as an anchor, \. for literal . and second . for match any following character
if ( $files[ $i ] =~ m/^\../ || $files[ $i ] eq '.' ) #
{
print "$files[ $i ] is a hidden file\n";
shift @files;
print scalar @files."\n";
}
else
{
print $files[ $i ] . "\n";
}
} # end of for loop
我得到了意想不到的结果。我的期望是脚本将:
- 制作数组
@files
, - 扫描该数组以查找以点开头的文件,
- 找到一个隐藏文件,告诉我它找到了一个,然后立即
shift
将它从数组的前端移开@files
, - 然后向我报告 的大小或长度
@files
, - 否则,只需打印我真正感兴趣使用的文件的名称。
第一个脚本工作正常。该脚本的第二个版本,即使用shift
功能从 中删除隐藏文件的脚本,@files
确实找到了第一个隐藏文件(. 或当前目录)并将其关闭。它不会向我报告父目录 ..。它也没有找到当前在我的目录中的另一个隐藏文件来测试。该隐藏文件是一个 .DS_store 文件。但另一方面,它确实找到了一个隐藏的 .swp 文件并将其移出。
我无法解释这一点。为什么脚本对当前目录工作正常。但不是父母目录..?而且,为什么脚本对隐藏的 .swp 文件有效,但对隐藏的 .DS_Store 文件无效?