拉不拉多的夢幻世界

很多久沒有更新Blog了 ><
而今天要介紹用簡潔的編輯器(Notepad++)在Windows上面開發Perl程式.
請按此進入官網
找到下載專區 進去就可以看到下載點,此頁還有外掛(Plugin可以下載)
安裝方法很直覺,本文就不多介紹了.

本來想要寫一隻取得OS的某些資料的script,找了cpan之後,看到Sys::Info 這個模組有這樣的功能
看了一下資料.就寫了一個簡單的範例
安裝Sys::Info  請到這裡去下載
在寫範例時,在用到version這個function時,出現了下面訊息,看來是少了 Linux::Distribution 這個模組,在安裝後就可以正常執行這個範例了

在Linux 有cpan 可以來安裝想要安裝的模組,而在window裡的ActivePerl有ppm可以安裝想要安裝的模組
ppm在安裝好ActivePerl後ppm即安裝完成,ActivePerl的安裝請看這裡
啟動ppm 的方法很簡單在Dos模式下輸入ppm 再按Enter即可
畫面如下

在Windows上面若要開發perl程式,這裡推薦使用ActivePerl,安裝這軟體是相當簡單的
我都是用他預設值,一直按下一步就安裝好了.這裡不多作說明
在安裝好之後,請進入Dos模式,可以用perl -v 來查看你安裝perl的版本
其它的都和在linux 上面執行perl 的方式相同
看一下我的perl版本畫面 上面有我安裝的版本5.8.8 ,有這個畫面表示Perl己安裝成功了,接下來就可以開始玩Perl囉 ~~

Perl:讀檔案
本文簡單說明perl 對檔案的開啟和寫資料到檔案的方法
假設有一個檔案名為abc.txt,而abc.txt 的內容如下
line 1
line 2

Net::Ping 模組可以用來檢查remote 主機是不還活著,當然remote host的ping是要開著才能使用以下的範例
Net::Ping 可以在此下載
看完了上面的文章後,寫了這個sample來測試一下此model的功能
以下的範例只是測試了remote host 是否有反應 . $ip 請輸人你要測試的主機ip 這樣即可測試了
use Net::Ping ;
my $ip ="" ;
my $p = Net::Ping->new( "icmp", 1, 64 );
if ( $p->ping($ip) )
{
    print "$ip answered\n";
}
else
{
    print "$ip did not answer\n";
}
$p->close();

這個模組可以用來找特定目錄裡的檔案,簡單說明安裝和使用方法
下載 此模組在此下載
安裝
把此模組下載,解開之後看了一下README  裡面有安裝方法

因為有need用ssh連到別的主機做些指令,原本可以用expect來處理的,但看到perl 有ssh 和telnet 二個模組可以用,就想用ssh來做這樣的功能
首先要安裝Net::SSH::Perl這個模組, 用下面指令install
下載SSH模組請按此
#tar xvf Net-SSH-Perl-1.30.tar.gz

安裝Test 模組
#cpan -i Test
Test模組能處理的檔案屬性(attribute)請參考
http://www.cs.cf.ac.uk/Dave/PERL/node69.html
我寫一個測試用的script 來說明

本文簡介cpan在linux 上面的安裝
請用yum 指令安裝cpan 指令如下
請用root執行以下指令
#yum -y install cpan
完成後會有以下訊息