Perl

 1、從 www.cpan.org 搜尋你所需要的模組，下載下來，一般是gz,或者tgz格式2、用winRAR之類解壓縮軟體接壓縮3、進入COMMAN模式，進入到剛才解壓縮的檔案夾下，含有“Makefile.PL”檔案的目錄下：依次運行：        perl Makefile.PL        nmake        nmake test        nmake install安裝就完成了.我的系統是Windows XP, 安裝的是ActivePerl-5.8.8.817-MSWin3

   在Windows上安裝ActivePerl所需要的讀取Excel檔案一般用Win32::OLE，但對於跨平台來說，還是選擇另外的 Spreadsheet::ParseExcel及Spreadsheet::WriteExcel最好。前者是讀Excel檔案用的,後者用於寫Excel檔案。Spreadsheet::ParseExcel只能讀95-2003格式的Excel文檔，對於office 2007 Excel則要安裝Spreadsheet::XLSX。（自己寫的excel檔案則可以直接轉成2

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    

為了比較方便，考慮這樣一個應用：把html頁面中的所有非漢字字元全部去掉。這裡順便告訴大家一個秘訣，只要文本被perl 按正確編碼解釋後，利用/w就可以匹配一個字母、數字、_、漢字，這個特性是不是很方便，所以我們只要用如下兩次Regex就可以去掉所有非漢字字元，包括全形的一些標點(＠＃＄％＜，（）)也能去的很乾淨：$str =~ s/[^w]//g;$str =~ s/[0-9a-zA-Z_]//g;問題在於如何讓perl正確的理解我們的文本，我先給出我們的測試程式如下：#! /usr/bin/

第一個perl指令碼是同事幫忙寫的。這個功能用JAVA實現後，中途不拋異常退出；用perl後，正常。同事幫忙寫，我自己修改調試通過，竟然對perl有了一定的瞭解。寫下來，備忘，說不定今天是個新的開始。#!/usr/bin/perluse DBI;#串連資料庫，就是這麼方便$dbh = DBI->connect("DBI:mysql:newWap:172.16.58.36", "root","");#perl ioopen (F, "data.txt");open (OUT,

當Perl進化到Perl 5時，我們必須考慮到雜湊原來的設計:雜湊的索引值必須是標量。解決辦法就是採用'引用'。一個'引用'就是一個指向一個完整列表或完整雜湊(或指向其他的東西，比如函數)的標量值。名字就是你比較熟悉的一種'引用'。 考慮一下美國的總統：一包雜亂的血肉。但是當我們談到它，或者需要在電腦程式中描述它，你需要的只是一個簡單的標量'George Bush'。Perl中的'引用'就像列表和雜湊的名字。它們是Perl中私人的，內部的名字，所以你可以確信它們是明確的，不像'George Bu

一、簡單變數===========1. 整型$x = 123456;PERL中將整型資料存放在浮點寄存器中，實際上整型變數在PERL中是當作浮點數來看但，只不過是一種浮點數據的特列。8進位資料以0打頭$var1 = 047(十進位39)16進位資料以0x打頭$var2 = 0x1f(十進位31)2. 浮點型浮點寄存器通常是不能精確的儲存浮點數，會產生誤差。使用浮點數時需要注意指數範圍通常是-309到+308。e.g.11.4, -0.3, .3, 3., 64.1e+02,

代碼思路：根據給出的兩種遍曆順序，構造出一顆樹，然後再遍曆出剩下的一種遍曆。    中根遍曆+後根遍曆 求 前根遍曆    #!/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){

以下是DNA序列，儲存在window下F：\perl\data.txt裡面：複製代碼 代碼如下:AAAAAAAAAAAAAAGGGGGGGTTTTCCCCCCCC CCCCCGTCGTAGTAAAGTATGCAGTAGCVG CCCCCCCCCCGGGGGGGGAAAAAAAAAAAAAAATTTTTTAT AAACG 下面是程式：複製代碼 代碼如下:#下面的程式是用來計算一段DNA序列中ATGC的數量的#首先定義四種堿基的數量為0$count_A=0;$count_T=0;$count_C=0

即使開啟了strict和warnings選項也無妨，下面代碼並無錯誤和警告。複製代碼 代碼如下:#!/usr/bin/perluse strict;use warnings;sub test { $a = 1; $b = 2; print $a, "\n"; print $b, "\n";}test();1;下面是perl文檔中對這兩個變數的解釋：perldoc perlvar$a$b Special package variables when using sort()

但是，linux系統的常用小工具awk天生對列操作友好，有時直接在perl中調用awk比寫相應的perl指令碼要方便有效多。比如用system插入awk語句：複製代碼 代碼如下:system(gawk '{print $1}' $filename);執行該l語句，你會發現這行會報錯，提示你使用了read-only 的變數$1。那麼，如何處理兩種生態系統下的衝突呢？有一個簡單的解決辦法： 複製代碼 代碼如下:my $i="$1";system(gawk '{print $i}'

有這樣一個文字檔，內容有多行如下，數量不定。Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#closead {display:none;}');};Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#footer_win {display:none;}');};Lif(__amscript_cd("www.jb51.net")){__amscript_wc('.mainad {display:

例如：複製代碼 代碼如下:unless ($fred =~ /^([A-Z_]\w*$/i) { print "The value of \$fred doesn't look like a Perl identifier name. \n";}使用unless意味著，要麼條件為真，要麼執行某塊代碼。這就好像使用if控制結構來判斷相反的條件。另一種說法是它類似於獨立的else子句。也就是說，當看不懂某個unless語句時，可以用如下的if語句來代替：複製代碼 代碼如下:if ($fred =~

常用系統函數列表 指令：print文法：print Filehandle LIST說明：這個Filehandle可以看作在I(INPUT)/O(OUTPUT)之間的一個橋樑,可以利用FILEHANDLE來做出資料讀入寫出的動作.STDIN是代表從哪連輸入資料,例如從電腦的鍵盤輸入;STDOUT是代表從哪連輸出資料;例如從電腦的螢幕輸出;STDERR是代表從哪連輸出錯誤的資料,例如從電腦的螢幕輸出.而在PERL語言中有三個標準FILEHANDLE：

Perl從5.6開始已經開始在內部使用utf8編碼來表示字元，也就是說對中文以及其他語言字元的處理應該是完全沒有問題的。我們只需要利用好Encode這個模組便能充分發揮Perl的utf8字元的優勢了。 下面就以中文文本的處理為例進行說明，比如有一個字串"測試文本"，我們想要把這個中文字串拆成單個字元，可以這樣寫： use Encode; $dat="測試文本"; $str=decode("gb2312",$dat); @chars=split //,$str; foreach $char

一、Perl是什麼? Perl是Practical Extraction and Report Language的縮寫，它是由Larry Wall設計的，並由他不斷更新和維護，用於在UNIX環境下編程。 .Perl具有進階語言（如C）的強大能力和靈活性。事實上，你將看到，它的許多特性是從C語言中借用來的。

Practical Extraction and Report Language Perl 最初的設計者為拉裡·沃爾（Larry Wall），它於1987年12月18日發表。Perl借取了C、sed、awk、shell scripting以及很多其他程式語言的特性。 Perl 一般被稱為“實用報表提取語言”（Practical Extraction and Report Language），雖然有時被稱做“病態折中垃圾列表器”(PathologicallyEclectic Rubbish

原文發表在網易部落格 2010-11-19 13:10:11 第1題根據輸入的人名列印其姓氏#!perl -w #getfamilyname use strict; my %nameTable=("fred"=>"flintstone","barney"=>"rubble","wilma"=>"flintstone"); print "input person name,and the program will print his familyname.\

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->#找到輸入的檔案清單，返回一個數組sub arr_argv_file{        my @arr_fname = @_;        my @arr_file_list;        foreach $list(@arr_fname){        chomp($list);         

1 基本文法參考http://ind.ntou.edu.tw/~dada/cgi/Perlsynx.htm 2 設定檔http://www.itqun.net/content-detail/93521.htmlhttp://www.9php.com/FAQ/cxsjl/perl/2009/07/4285989147407.htmlhttp://blog.chinaunix.net/u/29291/showart_344126.html【test.pl】Code highlighting