perl知识点,Net::Telnet 使用方法

ght

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函数的功能和双引号类似。这两个函数的主要目的是使用户在不用使用\’、\\和\”等特殊字符的情况下，就能在字符串中使用单双引号。