我写了以下的Perl脚本，但问题是它总是进入else分支并报告不是文件。我在输入中给出的目录中确实有文件。我在这里做错了什么？ 我的要求是递归地访问目录中的每个文件，打开它并将其读取到一个字符串中。但是逻辑的第一部分失败了。#!/usr/bin/perl -w use strict; use...

使用File::Find，我该如何向处理每个文件的函数传递参数? 我有一个Perl脚本，遍历目录以将一些3通道TIFF文件转换为JPEG文件（每个TIFF文件生成3个JPEG文件）。这个工作是有效的，但我想向处理每个文件的函数传递一些参数(而不使用全局变量)。 这是脚本的相关部分，我试图传...