Perl

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:

 use base 是物件導向編程時，用來描述“基類”的，其實說白了，use base somemodule;就相當於以下兩句的結合：BEGIN{    use somemodule ();    push @ISA, qw(somemodule);}也可以同時 use base 兩個或者兩個以上的模組，例如：use base qw(Foo Bar);就相當於：BEGIN {    use Foo ();    use Bar ();    push @ISA, qw(Foo Bar);}至於

 翻 譯：fayland 出 處：中國 Perl 協會 FPC - PerlChina.org 原 名：Perl XML Quickstart: The Perl XML Interfaces 中 文：中文名稱 作 者：Kip Hampton 原 文：http://www.xml.com/pub/a/2001/04/18/perlxmlqstart1.html 發 表：2001-04-18 Perlchina 提醒您：請保護作者的著作權,維護作者勞動的結晶。 目錄 [隱藏]

文章目錄 我的調試哲學 標題brian的Perl問題之萬能指南綱要閱讀這份指南並保持明智的頭腦描述我的調試哲學我相信三件事情：這不是個人問題 別老想著是你的代碼。你可能覺得自己是個藝術家，但實際上就算是經驗豐富的大師也會寫出很多垃圾。每個人的代碼都是垃圾，我的也是你的也是。要學著去喜歡它。當你碰到問題的時候，你應該想：“噢，我寫的垃圾代碼出了點問題。”這說明你不再去責怪 Perl。不應該變成個人性的問題。

在Perl中解析XML的方法最常見的就是使用 XML::DOM 和 XML::Simple了。 XML::DOM過於龐大，而且解析結果是一個DOM樹，操作也不方便。對於小型且不複雜的XML檔案，XML::DOM真是殺雞用牛刀。這時就輪到輕便的XML::Simple上場了。XML::Simple如其名，真的很簡單。假設XML內容如下：<opt> <user login="grep" fullname="Gary R Epstein" /> <user

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

在Perl中使用shell命令有三種方法system函數反引號``qx{}第一種方法，system函數格式如下system("command");若命令正常運行則返回0，否則返回非零值此方法的缺點是不能將shell命令的輸出直接捕獲到Perl程式中來第二種方法，使用反引號``，可直接將shell命令的輸出捕獲到Perl程式中（即其傳回值）對於多行輸出，將其賦給陣列變數，如@a = `ls

有一大堆日誌，需要按裝置統計一下各個裝置中日誌記錄中返回碼的個數。裝置名稱字可以根據檔案名稱字獲得， 日誌記錄是有一定格式的。第七個欄位是 返回碼。分別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網站來說，都包括很多服務和應用，我們沒法即時知道系統運行是否正常，特別是晚上的時候，如果伺服器宕機或應用掛掉了，都會影響業務和使用者訪問，這時候一套對系統監控的錯設就必須得當。目前有很多軟體應的監控通知和警示服務，有收費的也有免費的，大家都可以選擇。　　我們就嘗試自己來實現一個服務監控和警示通知的程式，這樣能夠使用很小的代價，同樣讓我們的服務高可用性和高可靠性。　　【監控原理】　　遠程服務　　對於遠程機器來說，我們可以有一台監控伺服器，或者隨便找一台比較不容宕機的伺服器來作為監控伺服

最近2天用perl編程，寫控製程序、做cgi。發現這真是一個好東西啊。代碼非常簡練，而且不容易出錯。我作為一個新手寫了一天，居然沒有出過幾次錯。最終封裝了幾個做cgi的類，一個處理傳入參數，一個處理模版替換，一個處理資料庫連接。然後實戰了一把，寫一個普通的查詢頁面只需5分鐘。呵呵。類庫的實現參照了DotNet的設計。最值得一提的是模版替換那個類，現在可以做到程式邏輯和頁面分離了，只要往他裡面傳資料結構（主要是雜湊表）就可以實現自動替換，是不是有點像DotNet裡面的資料繫結呢？呵呵。以後還可以繼

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 二.

用子程式去掉從檔案讀取的每行的首尾空格，sub函數print的值已經沒有空格了，但是傳回值列印出來還是有空格。代碼如下：while(<FH>){&trim($_);print "$_\n";}sub trim{        my $str=shift;        $str=~s/^\s*//g;        $str=~s/\s*$//g;        print "$str\n";        return

在perl中當我們需要建立一個進程的時候，一般都是用比較簡單易用的system，exec，或者``(反單引號），這幾種用法都非常簡單，但是他們不能結合一些作業系統中的管道等高效的東西。所以在perl中還有一種建立進程的方法，就是把進程當做檔案控制代碼那樣使用。open(WHOPROC, "who|"); # open who for

Perl語言substr應用use Encode;  $str=decode('gbk',"測試文本");  print encode('gbk',substr($str,0,1)); =============================================指令：substr文法：substr($string,offset,length) 

使用xml—writer#!c:/perl/bin/use XML::Writer;use IO;#open file stream .Param is file name.my $output = new IO::File(">output.xml");  #new a output stream.  my $writer = new XML::Writer(OUTPUT => $output)      or die"create fail";    print "file

前幾天在看Ultimate_ToolBox的原始碼，從codeproject上down下來一編譯，一堆錯誤，發現是由於編譯器無法識別ISO-8859-1編碼，誤讀有關字元造成的，所以立即著手準備轉換程式源檔案編碼，google了一把，也下了兩個小軟體，但是都沒有批量轉換功能，而有這功能的又不支援從ISO-8859-1到UTF-8的轉換，於是想到從前在FreeBSD下UTF-8和GB2312互相轉換的函數的iconv庫，我知道iconv不但是一個程式庫，而且有一個同名的應用程式能夠將檔案在兩種編碼

#!/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，Javascript的東西，可是發現各大陣營的人都在吹捧自己喜歡的語言，不過最沒有爭議的應該是Javascript現階段還不適合用來做獨立開發，它的天下還是在web應用上。

Regex。所謂Regex，是由斜杠圈起的一組字元集合。它們可用於在文本中匹配指定模 式，並進行相應替換操作。一直以來，Perl 都因為其優秀的模式比對機制而聞名於世。表2-2 一些Regex元字元元字元表達含義^匹配行首$ 匹配行尾a.c 匹配一個a，後面任意單個字元，再後面是一個c 的情況[abc] 匹配a 或者b 或者c 的情況[^abc] 匹配字元既不是a 又不是b 也不是c 的情況[0-9] 匹配位於0 到9 之間的單個數字ab*c匹配一個a 後面跟0 到多個b，最後是一個c