perl知识点,Net::Telnet 使用方法
1.命令use strict意味着所有变量必须用my来声明，裸单词必须用引号括起来。2.检测安装的模块：perldoc perllocal
手动模块安装：
gunzip Module.tar.gz
tar xvf Moudle.tar
转到相应目录
perl Makefile.PL
make
make test
make install
3.CPAN上Net::Telnet 模块的说明文档，也可以在上面搜索任何的模块。
http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
4.Net::Telnet 使用方法
Code
1use Net::Telnet;
2
3print "Telnet begin connect omc host\n";
4my $net_telnet = new Net::Telnet (Timeout => 60,Prompt=> '/[\$%#>]\s*$/');
5if(!($net_telnet->open($host)))
6{
7 print("Err: Net::Telnet can't connect $host\n");
8 die "Can't connect : $@\n";
9}
10
11if(!($net_telnet->login($user,$pass)))
12{
13 print ("Err: Net::Telnet couldn't authenticate \n");
14 die "Couldn't authenticate, even with explicit username and password.\n";
15}
16$net_telnet->cmd("cd $rdir");
17
18$net_telnet->close;
195.perl中的shift函数
Code
shift ARRAY
shift
这个函数把数组的第一个值移出并且返回它，然后把数组长度减一并且把所有的东西都顺移。如果在数组中不再存在元素，它返回 undef。
如果省略了 ARRAY，那么该函数在子过程和格式的词法范围里移动 @_；
它在文件范围（通常是主程序）里移动 @ARGV。
子过程通常以拷贝它们的参数到词法变量里开始，而 shift 可以用于这个目的：
sub marine {
my $fathoms = shift; # 深度
my $fishies = shift; # 鱼的数量
my $o2 = shift; # 氧气问题
#
}
总之就是shift没有数组作为参数时，就是移动@_这个默认的参数。
perl里经常用这种缺省方法的。 6.列表与数组
可以用3种方法来表示列表数据，它们是列表、数组和哈希结构。
列表是列表数据最简单的表示方法，它们只是一个标量的组合。有时它们使用一组括号将标量括起来，各个标量之间用逗号隔开。
若要将一个列表存放在一个变量中，需要一个数组变量。数组可以用列表直接初始化。
7.perl中的q和qq函数
q函数的功能和单引号类似，qq函数的功能和双引号类似。这两个函数的主要目的是使用户在不用使用\’、\\和\”等特殊字符的情况下，就能在字符串中使用单双引号。
页:
[1]