Time of Update: 2018-07-20
sub checkMD5() { my ( $md5val,$scan_file) = @_; if ( $md5val !~ /[0-9a-f]{32}/i) { die "invalid md5 value./n"; } if( ! -e $scan_file ) { print "No updateX file exist. /n"; return
Time of Update: 2018-07-20
原文地址:http://blogread.cn/it/article/743?f=wb 用Perl寫了一些監控指令碼,放在crontab中調度執行。有時候會發現一個指令碼已耗用時間過長,會同時跑起多個執行個體,因此有必要為指令碼加上控制,只運行一個執行個體。
Time of Update: 2018-07-20
一 安裝perl模組到非自訂目錄 How do I get MakeMaker and Module::Build to install to the same place? Module::Build, as of 0.28, supports two ways to install to the same location as MakeMaker. 1) Use INSTALL_BASE / -
Time of Update: 2018-07-20
轉自:http://perl.apache.org/docs/general/perl_reference/perl_reference.html use(), require(), do(), %INC and @INC Explained The @INC array @INC is a special Perl variable which is the equivalent of the
Time of Update: 2018-07-21
----------------安裝VMwere Tools------------------------ bash: ./vmware-install.pl: /usr/bin/perl: bad interpreter: 沒有那個檔案或目錄 解決方案 yum install perl gcc kernel-devel yum upgrade kernel kernel-devel 如果出現 Searching for a
Time of Update: 2018-07-23
Perl語言入門 前言 編譯指令 一標量 標量常量 數字 字串 數字和字串的轉換 標量變數 print輸出結果 比較操作符 擷取使用者輸入 undef值 標量上下文
Time of Update: 2018-07-24
在文本處理時經常會碰到這樣的情況:有一批檔案需要修改裡面的內容,但是又希望保留原來檔案的內容。這個時候Perl提供了一個很方便的變數$^I,將需要備份檔案的尾碼儲存在該變數後,我們在修改檔案內容時,Perl會: 1、先將原檔案開啟並另存新檔以“原檔案名稱+$^I存放的尾碼字元”為檔案名稱的備份檔案。 2、在原檔案上修改。 例如下面一段程式,我要將所有.dat文本中的abc改為dfg,並備份成.bak的檔案
Time of Update: 2018-07-25
use base 是物件導向編程時,用來描述“基類”的,其實說白了,use base somemodule;就相當於以下兩句的結合:BEGIN{ use somemodule (); push @ISA, qw(somemodule);}也可以同時 use base 兩個或者兩個以上的模組,例如:use base qw(Foo Bar);就相當於:BEGIN { use Foo (); &
Time of Update: 2018-07-25
perl作為一種解釋性的語言,很受廣大系統管理員的歡迎,好處麼就不多說了,壞處也有不少,例如對線程的支援,就一直不咋地,所以大多數情況下,我們都需要多個進程,來協助我們完成工作,閑話少說,上代碼。 #!/usr/bin/perl # test_proc.pl # test multi process # create by lianming: 2009
Time of Update: 2018-07-25
預設情況下,m//運算子嘗試匹配指定的模式和$_中的文本。 例如:在使用者輸入的文本中尋找字串exit(第二個反斜線之後的i修飾符是的模式比對不區分大小寫)。如果在$_中找到exit,則m//返回真; print"\n---------------------------(m//) Demo------------------------\n"; print "Enter:"; while(<>){ if(m/
Time of Update: 2018-07-22
Perl中的特殊變數 1. $&, $`,$' 用在模式比對中 $& 用來存放匹配中的值$` 用來存放匹配中之前所有字元$' 用來存放匹配中之後所有字元如:#!/usr/bin/perl -wif("Hello good there,neigbor hello&
Time of Update: 2018-07-22
參考連結: http://stackoverflow.com/questions/841785/how-do-i-include-a-perl-module-thats-in-a-different-directory http://stackoverflow.com/questions/185114/how-do-i-use-a-perl-module-in-a-directory-not-in-inc
Time of Update: 2018-07-23
URL:http://www.xi-ju-an.com/date/2005/11/ < ![CDATA[perl 的編譯安裝/ perl 的源碼安裝相當簡單,而 perl 5.84 的安裝最快就是以下方式 rm -f config.sh Policy.sh sh Configure -de make make test make install 當然,我們還應該更多的實際情況/ 下面的我在 perlchina 伺服器上的安裝情況/ 1. 安裝環境與源碼下載/
Time of Update: 2018-07-24
依據個人經驗,不說兩者的好劣,只說兩者的異同。 1、變數名 Perl變數名的定義有三種,以$、%及@開頭,分別代表一般變數、雜湊變數及陣列變數。而PHP則所有變數統一用$開頭,這一點,PHP似乎更簡潔一些。並且PHP的雜湊數組,本身就是已經排過序的,Perl則不是 2、基礎函數的多寡 Perl的基礎函數很少,跟C比較接近,單從這一點考慮,個人認為Perl要進階一些,系統一些。PHP的函數則很多。 3、擴充模組的多寡
Time of Update: 2018-07-26
centos安裝git時 報錯make[1]: *** [perl.mak] Error 2 usr/bin/perl Makefile.PL PREFIX='/usr/local/git' INSTALL_BASE='' --localedir='/usr/local/git/share/locale' Can't locate ExtUtils/MakeMaker.pm in @INC (@INC contains:
Time of Update: 2018-07-26
shell是操作linux的基本,是必須學的。學shell就是學linux命令。perl有強大的Regex支援,對於文本處理非常強悍,玩linux不得不學。python作用一種物件導向的,能作為linux指令碼的語言,學好之後能幫你很好地完成工作。 shell翻譯成殼的意思,它是包裹在linux核心外層的,一個可通過一系列的linux命令對作業系統發出相關指令的人機介面。
Time of Update: 2018-07-08
標籤:指令碼 空白 \n lan 解釋 第一個 font 例子 tab Perl 是 Practical Extraction and Report Language 的縮寫,可翻譯為
Time of Update: 2018-06-14
標籤:arguments 最好 長度 else match 返回 總結 固定 state 子程式定義和傳回值sub sum{ print "調用了子程式\n"; $a +
Time of Update: 2018-06-20
標籤:stl system CM foreach cas AC remove man ## #!/usr/bin/perlprint "TESTLIST File Name: @ARGV\n";
Time of Update: 2018-06-20
標籤:each Fix use open file get foreach gre usr #!/usr/bin/perluse File::Basename;my $result_dir =