Perl

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

很久沒發貼了，今天發個文章，專門介紹下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 =

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

轉自：http://www.williamlong.info/archives/460.html文將對目前最常用的四種動態網頁語言Perl（Practical Extraction and Report Language）、PHP（Hypertext Preprocessor）、ASP（Active Server Pages）、JSP（JavaServer Pages）進行一些技術性的比較。　　Perl　　Perl（Practical Extraction and Report

一、Regex的三種形式首先我們應該知道 Perl 程式中，Regex有三種存在形式，他們分別是：匹配：m/<regexp>;/ （還可以簡寫為 /<regexp>;/ ，略去 m）替換：s/<pattern>;/<replacement>;/轉化：tr/<pattern>;/<replacemnt>;/這三種形式一般都和 =~ 或 !~ 搭配使用（其中 "=~" 表示相匹配，在整條語句中讀作 does，"!~"

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

gb2312轉Utf8的方法： use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8", decode("gb2312", $str)); Utf8轉gb2312的方法： use Encode; my $str = "utf8中文"; $str_cnsoftware = encode("gb2312", decode("utf-8", $str);或用use Encode; Encode::from_to($octets,

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

本文來自csdn lidp http://blog.csdn.net/perfectpdl,轉載註明出處，謝謝。我建了一個 Freeswitch 核心研究 交流群， 45211986， 歡迎加入, 另外，提供基於SIP的通訊伺服器及用戶端解決方案,承接 sip/ims 視頻用戶端開發，支援接入sip軟交換,ims核心網，支援 語音，視頻，即時通訊功能，視頻格式支援 h263,h264，mpeg4

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

有一大堆日誌，需要按裝置統計一下各個裝置中日誌記錄中返回碼的個數。裝置名稱字可以根據檔案名稱字獲得， 日誌記錄是有一定格式的。第七個欄位是 返回碼。分別shell和perl實現了，Perl不熟，網上拼了個代碼。  use Text::ParseWords;use Data::Dumper;my $result;my %table;$argv_len = @ARGV;if($argv_len == 0){ print "it need filename/n";

一般的Web網站來說，都包括很多服務和應用，我們沒法即時知道系統運行是否正常，特別是晚上的時候，如果伺服器宕機或應用掛掉了，都會影響業務和使用者訪問，這時候一套對系統監控的錯設就必須得當。目前有很多軟體應的監控通知和警示服務，有收費的也有免費的，大家都可以選擇。　　我們就嘗試自己來實現一個服務監控和警示通知的程式，這樣能夠使用很小的代價，同樣讓我們的服務高可用性和高可靠性。　　【監控原理】　　遠程服務　　對於遠程機器來說，我們可以有一台監控伺服器，或者隨便找一台比較不容宕機的伺服器來作為監控伺服

轉自： http://bbs.chinaunix.net/thread-1191868-1-1.html#讓你的perl代碼看起來更像perl代碼，而不是像C或者BASIC代碼，最好的辦法就是去瞭解perl的內建變數。perl可以通過這些內建變數可以控製程序運行時的諸多方面。本文中，我們一起領略一下眾多內建變數在檔案的輸入輸出控制上的出色表現。行計數我決定寫這篇文章的一個原因就是，當我發現很多人都不知道“$.”內建變數的存在，這的確讓我很吃驚。我依然能看到很多人是這樣寫代碼的：代碼    my

參考網頁：http://man.ddvip.com/web/perl/perl1.htm#==========================================================#變數前面加$;#8進位以0打頭;16進位以0x打頭;$value1 = 047;$value2 = 0xFF;#==========================================================#===============================

1.安裝perl-ldap   ：http://search.cpan.org/~gbarr/perl-ldap/  前提是已經安裝perl工具包。首先查看perl版本   [root@local~]perl -V   Built under linux   Compiled at Nov  8 2007 06:49:06   @INC:     /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi    

PERL串連ACCESS資料庫 前題是必須安裝好activeperl （505以上），以及MS Access 97 一. 安裝Win32-ODBC模組 步驟1： 從TOOLS欄目中下載Win32-ODBC.zip,下載完後用winzip解開到一個temp目錄,共有三個檔案： Readme Win32-ODBC.ppd Win32-ODBC.tar.gz 步驟2： 在DOS視窗下，temp目錄中運行下面的DOS命令： ppm install Win32-ODBC.ppd 二.

 近日在CSDN的CGI版看到有centuries (燃燒太陽)網友問如何在Perl中內嵌HTML，這是在Perl WEB開發中經常遇到的一個問題，現在寫出來，希望對大家有所協助。問我現在有一個html的網頁代碼，要將其改為perl程式，如果只是單純在其第一行加上"#!../perl/bin/perl",並將檔案尾碼名改為.cgi，會出現錯誤提示"You don't have permission to access /test/index.cgi on this

 用 Sysopen()進行更多的控制 -------------------------------------------------------------------------------- 為了更好的控制檔案的開啟檔案，可以使用 sysopen() 函數： use Fcntl; sysopen(FH, $filename, O_RDWR|O_CREAT, 0666) or die "Can't open $filename for reading/writing/creating :

轉至非安全 pythonhttp://www.nohack.cn/bbs/dispbbs.asp?boardID=13ID=551page=1用nc連，使用了簡易的管道命令（``）使之能執行基本的系統命令，有興趣的朋友可以添加、修改一下，做出更多東西，誰有空建議用win32模組給他系統化一下，再用perlsvc做個服務啥的 #!/usr/bin/perluse I:Socket;  $port = $ARGV[0];my $socket = new I:Socket::INET (

由於我們的項目的測試平台很多，包括windows，linux平台。linux提供了一個解壓的unzip命令，但是windows下比較麻煩，win