在Windows Server 2008中使用Perl在网络驱动器上复制文件

Question

您如何在perl中探索和写入Windows共享目录？注意：我有权在相关工作站上创建网络驱动器。此脚本在Windows Server 2003中运行良好，但在将服务器升级到Windows Server 2008时停止工作 我已将网络驱动器映射到我的服务器作为M驱动器：

$prompt = *some file*
        if ($environment eq "Media") {
            $targetdir = "M:\\EAN\\Documents\\";
            print "Media Environment selected.  Using $targetdir\n";
            copy ($prompt, $targetpath) || die "Can't copy $prompt \n to $targetpath\n $!";
        }

当它试图复制文件时，脚本就死了，说＃34;不能复制......因为路径不存在＆＃34;。 为什么会这样？
对此有什么解决方案吗？有什么办法可以在脚本中验证网络驱动器吗？

Answer 1

您在定义路径时使用了$ targetdir，但在copy语句中使用了$ targetpath而不是$ targetdir。