我写了以下的Perl脚本,但问题是它总是进入else分支并报告不是文件。我在输入中给出的目录中确实有文件。我在这里做错了什么? 我的要求是递归地访问目录中的每个文件,打开它并将其读取到一个字符串中。但是逻辑的第一部分失败了。#!/usr/bin/perl -w use strict; use...
使用File::Find,我该如何向处理每个文件的函数传递参数? 我有一个Perl脚本,遍历目录以将一些3通道TIFF文件转换为JPEG文件(每个TIFF文件生成3个JPEG文件)。这个工作是有效的,但我想向处理每个文件的函数传递一些参数(而不使用全局变量)。 这是脚本的相关部分,我试图传...