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函數的功能和雙引號類似。這兩個函數的主要目的是使使用者在不用使用\’、\\和\”等特殊字元的情況下，就能在字串中使用單雙引號。