Perl

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

In my current project, it has some old code in PERL and new code in both PERL and PHP.  The PHP and PERL code need connect each other, especially the session variables. Currently, we need PHP to get Perl session variables. Searching on google,

There are two good links about this topic:http://www.thesitewizard.com/archive/addcgitoapache.shtml    http://www.thescripts.com/serveradministration/webservers/apache/virtual-hosting/app/Install_Apache_Web_Server_Perl_PHP_MySQL_on_Windows.htmlSteps:

很久沒發貼了，今天發個文章，專門介紹下LWP模組常用的功能。（1）最重要的一大功能是查看網頁源檔案，我們可以通過perl已有的方法查看網頁源檔案，然後可以進行適當的分析，得到自己想要的結果。perl指令碼如下： #!/usr/local/bin/perluse CGI qw(:all);use LWP;open (AIM,">F:/SFDA的原始碼") or die $!;my $browser = LWP::UserAgent->new; my $url =

好久沒有寫perl指令碼了，最近電腦上面有《prison break》的音頻，也有srt的歌詞，不過歌詞不對，最後進行下面的指令碼處理後，可以變聽變看字幕了。主要是用來複習下perl指令碼，Regex，檔案讀取，迴圈，條件等#! /usr/bin/perl #print 'done';# my $file = '<E:\Prison Break1\Prison Break - 1x02 - Allen [eng-subtitle].srt';# my $out =

轉載：http://blog.csdn.net/jallin2001/archive/2009/11/13/4808618.aspx 大家經常使用Regex的字元集從字串中抽取或排除中文字元，但是這樣做很費事，效果也並不是很理想。實際上Perl從5.6開始已經開始在內部使用 utf8編碼來表示字元，也就是說對中文以及其他語言字元的處理應該是完全沒有問題的。關鍵在於目前使用的編輯器以及檔案格式並不都能很好地支援

PHP和Perl正徹底成為企業級PHP，Perl和其它指令碼語言在企業級方面正取得令人信服的進展，和傳統的技術.Net、Java分庭抗禮。你的企業將準備採用嗎？Canonical的首席運營官，開源的傳道者Matt

導讀：　　程式員應該是善於溝通的，代碼美化的意義在於體現了開發人員對他人的尊重，使用好的編碼約定可以使原始碼明白、易讀、準確，更加直觀且與其他語言約定保持一致，從而讓程式員之間更好的溝通。　　有統計表明縮排良好的代碼可以提高代碼閱讀的效率40％以上，而另一個統計是軟體開發工作的70％以上是維護前人的代碼，因此對以往代碼的格式美化往往也是系統重構（refactoring）的第一步。代碼美化工具(pretty print

#!/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 =

在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=

 ######################### 1001 ############################## use 5.010;while(<>){ my @num = split; say $num[0] + $num[1];}######################### 1048 ##############################my $n = 12;my $sum = 0;while ( $n -- ){ chomp(my

######################### 1831 ##############################use 5.010;chomp(my $ord = <STDIN>);chomp(my $change = <STDIN>);say $change;say $ord;while(<>){ eval "tr/$ord/$change/ "; print;}######################### 1854 ##########

代碼思路：根據給出的兩種遍曆順序，構造出一顆樹，然後再遍曆出剩下的一種遍曆。    中根遍曆+後根遍曆 求 前根遍曆    #!/usr/bin/perl -wuse strict;use List::Util qw(first);use 5.010;my @Tree;my $top;my @s1;my @s2;sub getTree($$){ my($a, $b) = @_; return -1 if $a > $b; if($a == $b){

#!/usr/bin/perl -wuse strict;use 5.010;sub BigHeapAdjust($$/@){ my($pos, $len, $arr) = @_; my $temp = $arr->[$pos]; #沿節點值較大的兒子往下層篩選，2*r+1是左兒子，2*(r+1)是右兒子 for(my $j = 2*$pos+1; $j <= $len-1; $j = 2*$j+1 ) { $j++ if $j<$len-

預覽◆ 語言的發展趨勢一定是動靜結合、剛柔並濟◆ Perl凝練晦澀，Python優雅明晰，Ruby精巧靈動，PHP簡明單純◆ 或許優雅正是來自對細節和規範的重視◆ (RoR)與Ruby結合之後，便如一隻猱身而上靈貓，立刻襯托出Java和.NET大象般的身影提問◆ Perl、Python、Ruby和PHP各自有何特點?◆ 為什麼動態語言多作為輕量級的解決方案?◆ LAMP為什麼受歡迎?◆ Ruby on Rails為什麼會流行?◆

 mygrep：搜尋字串在某個檔案dir內，包括內部所有的子檔案夾,Win和*nix通用   1#!/usr/bin/perl 2  3 use strict; 4 use File::Spec::Functions; 5  6 my %usage={}; 7 $usage{"name"}="mygrep"; 8 $usage{"version"}="0.1"; 9 $usage{"author"}="xxx002";10

#!/usr/bin/perl# un-mangle c++ symbol# assuming the c++filt command is availableuse strict;use warnings;if ($#ARGV != 0) {    print "usage:\n";    print "program filename\n";}my $in_filename = $ARGV[0]; open(my $in, "<", $in_filename) or die "Can'

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

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