请教关于telnet

无心睡眠

我使用perl（ActivePerl）telnet本机，然后执行一条简单的命令，但是没有反应，请大家帮我看看！
谢谢！
code如下：
           use Net::Telnet();
           my $user = ftpuser;
           my $pwd = ftpuser;
           my $tn = Net::Telnet->new(Timeout => 20,
                                     Prompt => '/c:\\\\Documents and Settings\\\\ftpuser>$/i');
           $tn->open("192.168.0.101");
           $tn->login($user,$pwd);
           $tn->cmd("xcopy e:\ttb d:\ttb\ /eqy");
           $tn->close();
是不是哪里错了？

无心睡眠

为什么没有人给我帮助啊？
不会是不屑吧呵呵！

chinaseen

你看看是否登陆上了??如果是交换机的话好象用login()不能成功登陆上去!如果不行的话你得使用print()和waitfor().
如果登陆上了,你用一条简单的命令如
my @return = $tn->cmd("dir");
print "@return\n";
看看是否有输出!

无心睡眠

谢谢楼上
执行出来是有结果的！
可能是这句有问题：
$tn->cmd("xcopy e:\ttb d:\ttb\ /eqy");

还得帮我看看，如果需要带盘符，斜线等特殊字符的时候怎么来处理？