请问telnet后发送命令如何试发送的命令可以带变量？在线等

michealzhai

我编写了一个程序，用来在windows下telnet到一个UNIX系统上，然后发送一个命令来执行UNIX系统下的一个perl程序，但是unix下的perl程序运行时需要带参数，例如"perl print 1234567",而且1234567这样的参数是可变的,因此需要在windows下telnet发送命令时参数也是要求可变的,我编的程序如下:
#!/usr/bin/perl   
use strict;
use Net::Telnet;
use constant HOST => '10.212.0.1';
use constant USER => 'root;
use constant PASS => 'test';

my $telnet=Net::Telnet->new(HOST);
print"please input a number:\n";
$number=<stdin>;
chop($number);
$telnet->login(USER,PASS);
my @connect=$telnet->cmd('perl print.pl  $number');
print @connect;

但是运行时提示"number: Undefined variable."请各位高手帮助阿.谢谢!在线等,急.

apile

my $number ="";

michealzhai

还是不行阿!
我改成如下的程序还是不行阿.
#!/usr/bin/perl   
use strict;
use Net::Telnet;
use constant HOST => '10.212.0.1';
use constant USER => 'root;
use constant PASS => 'test';

my $telnet=Net::Telnet->new(HOST);
my $number="1234567";
$telnet->login(USER,PASS);
my @connect=$telnet->cmd('perl print.pl  $number');
print @connect;

还是提示"number: Undefined variable."

michealzhai

改成
my $number=2356789;  
my $number='2356789';   
也是一样的提示.

兰花仙子

$telnet->cmd('perl print.pl  $number');

单引号禁用了变量内插,换成双引号吧.

michealzhai

哦!换成""好了,谢谢各位专家的帮助,谢谢!