程序有使用了两次子程序map_hd来建立映射盘。程序经过perlapp 生产exe后，第一次调用map_hd("TUFF") 没有问题，可以建
立映射，并进入指定目录; 第二次 map_hd("\\$recp_name\\$location")只能建立映射，但是一直不能chdir H,
进入不到指定目录。请问这段程序有什么问题啊？
在用perl Name 来执行pl时，却是什么问题都没有。
难道是一个bug么？
（最后采用了个笨方法来绕过问题：control＋C，control＋V了map_hd子程序，改了个名字，给第二次调用使用）
map_hd("TUFF");
chdir ("\\$location") or die ("$!");
@File = glob("*");
for $file_name(@File) #get data
{
get_match($file_name); #get parameter from file
}
for $file_name (@File)
{
for my $recp_name (keys %{$H_gm{$file_name}}) {
if ($H_gm{$file_name}{$recp_name} eq "MC") #get MC name
{ print ("$recp_name\n");
map_hd("\\$recp_name\\$location");
system ("dir");
}
}
}
sub map_hd #map HDD;
{
chdir ("D:"); #change back
system ("net use H: /delete /yes >nul");
system ("net use H: \"\\\\cfs\\test\\$_[0]\" >nul");
chdir ('H:');
}
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
博文
