Perl FTP“GLOB”导致空白条目？

Question

我有一个 perl 脚本正在尝试 FTP 文件，但似乎所有其他文件都失败了。 我确定由于某种原因

$filename = glob $filename 

将 $filename 设置为空而不是完整的文件名。

我在 glob 行之前打印出了文件名，它是正确的并且其中没有空格。

我也尝试只注释掉 glob 行，但随后它返回“不是 GLOB 引用”，所以显然 net ftp 需要这样做。

知道什么可能导致 glob 返回空吗？ （以及为什么它适用于第一个文件和之后的每个第二个文件）

这就是我发送给子文件的内容：

ftpToDevice($ftp,$device_dir,$config,$config,'put');

这是实际的子文件：

sub ftpToDevice {
        my ($ftp,$fileDir,$fileName,$fileNameDest,$action) = @_;
        print "ftp filename $fileName\n";
        $fileName =~ s/\s+//g;
        $fileNameDest =~ s/\s+//g;
        $fileName = glob($fileName);
        my $path = "cf3:\\";
        chdir $fileDir if $action eq 'put';                 

        print "file location: $fileDir/$fileName to $fileNameDest\n";

        if($ftp->cwd("$path")){
                if($action eq 'put'){
                        print "attempting FTP PUT $fileName $fileNameDest\n";
                        $ftp->put($fileName,$fileNameDest) or return "Error cannot put - " . $ftp->message;
                        #$ftp->rename($fileName,$fileNameDest) or return "Error cannot put - " . $ftp->message;
                } else {
                        print "Attempting to delete $path $fileNameDest\n";       
                        #$ftp->delete("$fileName") or return "Error cannot delete $fileName - " . $ftp->message;
                        $ftp->delete($fileNameDest) or return "Error cannot delete $fileName - " . $ftp->message;
                        print $ftp->message . "\n";
                }
        }
        chdir $masterDir if $action eq 'put';
        return 'success';
}

Answer 1

我找到了一个解决方案，但不确定为什么它有效。
我注释掉了这一行：

$fileName = glob($fileName);

我改为添加了这一行：

$fileName = "" . $fileName;  #this converts it to a string I believe

这允许所有文件都可以工作（不仅仅是每隔一个文件）并且不会给出 GLOB 错误。

我的理论是，不知何故，在使用 ftp sub 的 for every 循环之前生成的文件列表导致每个第二个文件成为 glob 对象（数组或其他东西？），而不是纯文本文件名。