我有一个Perl脚本,它使用File::Next::files遍历目录层次结构。它将只返回以".avi“、".flv”、".mp3“、".mp4”和“.wmv”结尾的脚本文件。它还将跳过以下子目录:".svn“和任何以”.frames“结尾的子目录。这是在下面的file_filter和descend_filter子例程中指定的。# Only select video files that end with the fol
因此,我刚刚找到了一个bug,可以在这个琐碎的子例程中演示: my $bar = shift or die "Missing bar", # <--- not a semicolonmy @items = (); return @items;显然,错误在于子例程的第一行以逗号结尾。我的问题是,在子例程中用my声明的变量如何