拉不拉多的夢幻世界

很多久沒有更新Blog了 ><

而今天要介紹用簡潔的編輯器(Notepad++)在Windows上面開發Perl程式.

請按此進入官網

本來想要寫一隻取得OS的某些資料的script,找了cpan之後,看到Sys::Info 這個模組有這樣的功能
看了一下資料.就寫了一個簡單的範例
安裝Sys::Info  請到這裡去下載

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

在Windows上面若要開發perl程式,這裡推薦使用ActivePerl,安裝這軟體是相當簡單的
我都是用他預設值,一直按下一步就安裝好了.這裡不多作說明
在安裝好之後,請進入Dos模式,可以用perl -v 來查看你安裝perl的版本

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

Net::Ping 模組可以用來檢查remote 主機是不還活著,當然remote host的ping是要開著才能使用以下的範例
Net::Ping 可以在此下載

這個模組可以用來找特定目錄裡的檔案,簡單說明安裝和使用方法
下載 此模組在此下載

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

安裝Test 模組
#cpan -i Test
Test模組能處理的檔案屬性(attribute)請參考

本文簡介cpan在linux 上面的安裝
請用yum 指令安裝cpan 指令如下
請用root執行以下指令

    有二個方法可以安裝perl的模組:一種是用CPAN(Comprehensive Perl Archive Network)另一種是直接捉source code來安裝
cpan的方法很簡單,只要在command line上輸入cpan
就會進入到CPAN的shell, 再來把你要安裝的模組名稱打上去即可

以下四個是perl 裡面的邏輯運算,也有書上是寫邏輯運算符,本文只是記錄一下他們的用法, 用法的部份使用在此用,分隔,這裡表示 二種用法Perl都可以接受.

-A  檔案上次存取至今的時間

在perl程式語言裡,取得系統的時間就要用localtime這個function 這個function比較制式：可以取得固定的時間陣列 分別代表

秒, 分, 時, 日, 月, 年 
在下面的範例 分別代表 s, m , h , d , m , y 而月會比實際少1,所以要加1. 而年比實際少1990 故要加回去：

有時我們要隋機取得一些亂數,這時rand可以做到這樣的功能,,以下用簡單的範子來簡單的說明之：
rand 有二種寫法（perl真是自由＞＜） 第一種語法如下：

undef 在perl為設定變數為未定義的狀態,這樣對變數有什麼功用呢 ？
有時我們在對某變數做複雜的運算後,變數的形態會隨著程式設計師的定義而改變,而undef 就可以把攣數設定為未定義的狀態
以下用簡單的範例來說明之：

在shell script 可以用read 取得使用者輸入的值,那在Perl 裡面怎麼做到這樣的功能呢
我們可以用<>來取得user的input 請看下面的範例：
#!/bin/perl

for 在程式語言裡是一種迴圈,常常用在有次數限制次數的工作,例如要算1到50數次的加總,像這樣的工作就可以用for來處理囉,以下用範例說明
#!/bin/perl
my $sum=0 ;

unless和 if剛好是相反的用法,而unless有三種用法.在此用範例說明之:

第一種是最常見的

if 應該是最常用也是最基本的流程控制了,很多不論是其它的程式語言,在流程控制的部份也最先教這個.以下用簡單的範例來說用if的用法
if 在perl 裡有四種寫法,分別介紹如下: