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;
19

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