Perl

1.變數名的定義    Perl的一般變數、雜湊變數和陣列變數，分別用$、%和@開頭，而PHP的所有變數都以$開頭，這一點，似乎PHP更簡潔一些。而且，PHP的雜湊數組，本身已經是排過序的，Perl需要用Tie::IxHash才能得到排過序的雜湊數組。個人感覺PHP變數名的定義要好於Perl。2.函數的多寡   

index（主串，子串）從0開始尋找，返回最近的一個子串的頭字母在主串中的位置。rindex（主串，子串）從最後結尾開始尋找，返回最近的一個子串的頭字母在主串中的位置。都可以接受第三個參數，表示才那位開始尋找，預設的是從0或最後substr操作子字串三個參數：一個字串，一個從零起算的初始值以及子字串的長度 返回的值是子字串第二個參數為負值的話，則是從結尾開始數，結尾第一個為-1，依次向左為-2，-3...第三個參數省略的話就是從第二個參數開始到字串的結尾substr($big, 0 , 5) =

linux下如何升級系統預設安裝的perl版本  2012-10-16 16:42:00|  分類：linux |字型大小 訂閱不建議先rm先下載tar.gz ...然後手動安裝..default 安裝到/usr/local/目錄下..然後修改/usr/bin/perl的symbolic link到/usr/local/bin/perl原生系統為centos4.5.想體驗一下最新版本:[url]http://www.cpan.org/src/README.html[/url]下載連結:[url]

方法1： 這兩天在構建一個應用的使用用到了maven,由於project很大,足足有700多個 pom.xml檔案,更鬱悶的是在很多pom.xml檔案裡都單獨指定了資產庫的url,我需要把這些資產庫的url統一指定到nexus本地中央庫.手 工一個個改檔案配置有點不太實際,所以google了一下,找到批量替換檔案內容的好方法,命令結構如下:find -name '要尋找的檔案名稱' | xargs perl -pi -e

############################################################ 功能：取目前時間# 參數：無# 傳回值： 按照YYYYMMDDHHMMSS的格式返回時間###########################################################sub get_time{ my( $sec, $min, $hour, $day, $month, $year ) = localtime( time()

安裝perl5.8.8：cd perl-5.8.8 && rm -f config.sh Policy.sh&& sh Configure -Dusethreads -de  &&  make  &&make test  && make installmv  /usr/bin/perl   /usr/bin/perl.bakln -s   /usr/local/bin/perl 

(defun python-shell()  "make a python shell"  (interactive)  (switch-to-buffer (make-comint "python" "python" nil "-i")))(defun groovy-shell()  "make a groovy shell"  (interactive)  (switch-to-buffer (make-comint "groovy" "groovysh" nil)))(defun perl

 Perl是一種深受世界各地開發人員喜愛的實用摘要和報表語言，雖然它是在Unix上誕生和發展起來的，但在Windows編程領域也已經佔有一席之地。 　 一、概述　　 在ActiveState等公司的領導之下，從1995年中期開始Perl開始了穩定地發展，不僅增加了標準的Perl功能，而且增加了許多面向Windows的功能，比如OLE和COM整合等。　　

#!/usr/bin/perl -wuse strict;use 5.010;sub getDigit($$){ # get digit from num my($num ,$flag) = @_; return $num/(10**$flag)%10;}sub radixSort($/@){ my ($size,$arr) = @_; my @sortArr; my $i;my $k; for(0..3){ my @count =

1.解析xml 用到兩個包： # use moduleuse XML::Simple;use Data::Dumper;  過程： # create object$xml = new XML::Simple;#解析$data = $xml->XMLin（xml檔案名稱）；#取值my $value=$data->{節點名字}如果有子節點則為 my $value=$data->{節點名字}->{子節點名字}； 2.解析json 用到的perl包use JSON;use

我建了一個 Freeswitch 核心研究 交流群， 45211986， 歡迎加入, 另外，提供基於SIP的通訊伺服器及用戶端解決方案, 承接 sip/ims 視頻用戶端開發，支援接入sip軟交換,ims核心網，支援 語音，視頻，即時通訊功能，視頻格式支援 h263,h264，mpeg4 軟編軟解，提供硬體編解碼介面對接，提供伺服器，有興趣請聯絡我。freeswtich支援 lua, perl, php等指令碼語言編寫dialplan, 類似asterisk

近期本人閑來沒事做了一個程式自動從一些BT網站上抓取資料並且自動發帖到我自己的論壇上，試用了幾個月效果比較好，現在公布原始碼供perl愛好者參考，我的qq是2637663歡迎廣大perl愛好者一起溝通交流。分幾個程式組成readcokie.pl 擷取要上傳主機的cookie一次擷取永久在主機儲存fatie.pl         抓取源主機資料並自動發帖到目標主機history.log   儲存抓取過的資料user.txt    

Perl $SIG{ALRM}處理服務逾時#!/usr/bin/perlsome_sub();some_sub();sub some_sub { eval { local $SIG{ALRM} = sub {die "died in SIG ALRM";}; #逾時處理過程 alarm(1);#設定1秒鐘後如果下面的代碼沒處理完，則進入逾時處理過程#做事情 my $i=0; $i++ while 1; alarm(0);#事情已經做完，取消逾時處理設定 };

在perl程式中，讀入下面一行c代碼：printf("%d", number);將其儲存到到變數$line中，然後將其輸出到檔案控制代碼$out中，下面兩種做法會有什麼差異呢？1）printf $out $line;2）printf $out ("%s", $line);如果第一種做法不是你想要的結果，那麼最好在perl程式添加perl -W； use strict；這樣會讓協助你定位問題。至於具體的不同，大家寫一個具體的指令碼測試一下吧。我用了兩個小時才發現這兩者之間的差異。

if (open(MYFILE, "E:\\Perl\\Code\\string.pl")) {   print("success open the file\n");#############################################output all of MYFILE's content 1############################################    print(<MYFILE>); print("=========1=

#!/usr/bin/perl open dl ,"list" || die "open error$!";%hash;while(<dl>){ #print $_; my ($a,$b,$c,$d) = split('_',$_); my ($d,$e) = split (//./,$c); $hash{$_}=$d;#做成一個Hash key是檔案名稱字 value是時間戳記。}foreach my $key ( sort

()分組例：($fruit,$color)=/(.*)/sis/s(.*)/;每個加括弧的值都是列表的傳回值  =~這個運算子並不進行賦值，它只是取出右邊的運算子，並使它對左邊的變數進行操作$field =~ s/^/s+|/s+$//g;-去掉行頭行尾的空格 //i不區分大小寫next if ($Var=~ /^AbC/i); $1,$2,$3...當將括弧用於perl的Regex時，由每個帶括弧的運算式進行匹配的目標字串將記錄在$1,$2,$3...中如，/(/d{3})-(/d{4})-(

#!/usr/bin/perluse warnings;use strict;my$flag=0;my$a;while(<DATA>){    if(/^>/)    {        $flag = 1;        $a = 0;    }    if($flag )    {        print $_;        $a++;    }    if($a == 3)    {        $flag = 0;   

對於DBA來說，一個準確穩定的監控系統，不啻於一柄尚方寶劍。幾十上百套系統，如果每天都靠人工來檢查，工作量之大無法想象，而且人工也無法做到即時捕獲錯誤。但是這麼多資料庫系統，每個庫承載的壓力不一樣，對於整個系統的重要度也不一樣，負責的DBA也不可能是同一個人。如果都按同樣的KPI同樣的門限來做監控，則有些重要的系統可能無法準確的警示，有些不重要的系統卻又會頻繁誤判。比如系統的load，有些核心庫由於採用了比較高端的硬體，即使一直在20~30左右都是正常的，而一些邊緣的庫則可能超過5就比較危險了，

重拾perl原文：http://www.linuxsir.org/bbs/showthread.php?t=78216Perl函數和範圍。文法：Sub subroutineName{my(@argsTosubroutine) = @_; # 參數通過這種方式傳遞給函數&doStuff; #執行體return ( @returnValue ); # }特殊變數 @_是參數棧，它對於被調用的子程式來說是本機資料。每次調用子程式時就把參數放入到 @_ 中。@_