perl expect 怎么 telnet 到另一台sever上执行命令

来源：百度知道 编辑：UC知道 时间：2024/05/18 07:02:28
脚本test.pl写在server1上 现在要telnet到server2上去执行上面的./creatfile.pl
用户名：username
密码：123456
test.pl要怎么写?

我用PERL写过一个通过POP3去接收邮件的程序，和你的要求非常类似，但是还要复制，因为要登录上去，执行TOP、GET等命令，而且要把邮件保存下来。

程序我发表到我的空间，地址如下：
http://hi.baidu.com/134931/blog/item/24fc92264e9e0c158a82a1de.html

你拿去大量删除无关代码，关键是保留下面部分作为主程序：

&tcp_connect('server2', 23, $e);
&sock_send('username');
&sock_send('123456');
&sock_send('./creatfile.pl');

可以用Net::Telnet模块

http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm