Perl

轉移自自己原來在YourBlog上的Blog，寫於2004-3-11 13:05:48看了Jackey的“Windows下BugZilla安裝實錄”，按照文中的方法安裝成功，不過Jackey在實錄(二)中對於Perl模組的安裝好像不是很妥當。 看實錄(二)中模組的安裝是到CPAN網站上去下載，還需要nmake等編譯器，感覺還是比較複雜。 在Windows下安裝ActivePerl後Perl模組專門有Windows版的，這些Windows版的模組可以用ppm直接安裝的，在這裡可以下載。

當你剛開始學習perl的時候，寫好了程式，準備興高采烈的等待結果輸出時，結果雙擊後，看到螢幕閃了一下，然後什麼都沒有了。根本沒有機會然你看到輸出的結果。 怎麼解決這種問題呢？其實各種語言都有這個問題！解決的思路就是讓程式輸出結果以後，繼續等待使用者的輸出就可以了 也就是在指令碼的末端加上這樣的兩行 複製代碼 代碼如下:print "press <Enter> to continue..."; <STDIN> 這樣就可以了。

圖：複製代碼 代碼如下:#!/usr/bin/perl## fdupe tool - finding duplicate files## $Id: fdupe,v 1.7 2011/10/14 20:11:21 root Exp root $## Source code Copyright (c) 1998,2011 Bernhard Schneider.# May be used only for non-commercial purposes with# appropriate

Perl中的程式注釋：單行注釋和多行注釋 （一）單行注釋： 以#開頭的行都被perl認為是注釋。但是有一個例外，perl程式的第一行是#開頭的，他指定了perl程式的解譯器。 例如：#print 1； 這種方法有個缺點，就是每次# 只能夠注釋一行，如果要注釋的代碼很長，那就是一件很麻煩的事情。 （二）多行注釋： 最常用的方法是使用 POD(Plain Old Documentations) 來進行多行注釋。方法如下: =pod codes to comment =cut 注意：=pod

複製代碼 代碼如下:#!/usr/bin/perlmy %scyjm; open (CONTACT,"f:\\perl\\f.txt")||die("can not open the file!"); while (<CONTACT>) { next if /^#/;#if($_=~/^#/的簡寫 chomp; my @information =split;# my @information=split/\s+/,$_;的簡寫 next

複製代碼 代碼如下:#!/bin/perluse strict; use warnings; #定義變數 my $count; my $input; my $number; my $sentence; my $story; #定義四個數組 #定義了人物數組 my @nouns= ( 'Dad', 'TV', 'Mom', 'Groucho', 'Rebecca', 'Harpo', 'Robin Hood',

預設狀態下，很顯然都是用\n來區分行，\n也被我們稱作為分行符號。 當讀取序列時，按行來讀取時，就是以分行符號為標準。 讀取的strawberry1.gb的檔案內容如下： LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012 DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1) gene, partial cds; plastid. /

在perl中srand（）提供供rand()使用的隨機數種子，rand（）產生隨機數產生器。如果在第一次調用rand()之前沒有調用srand()，那麼系統會為你自動調用srand()。使用同種子相同的數調用srand()會導致相同的隨機數序列被產生。舉例如下：複製代碼 代碼如下:srand(26); $number1=rand(100); print "$number1\n"; srand(26); $number2=rand(100); print "$number2\n";

下面是一個例子：複製代碼 代碼如下:use strict;#這裡是兩個數組my @i =('1','2','3');my @j =('a','b','c');#在進行處理之前，我們把他們先列印出來，看一看他們的樣子print "In main program before calling subroutine:i="."@i\n";print "In main program before calling

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

方法一（不使用模組，by agonyr）複製代碼 代碼如下:#!/usr/bin/perl -wuse strict;my @seq = ( "A", "T", "C", "G" );my $length = 10000;undef my %hash;$hash{"A"} = int( $length * 0.3 );$hash{"C"} = int( $length * 0.3 );$hash{"G"} = int( $length * 0.2 );$hash{"T"} = int(

複製代碼 代碼如下:#!/bin/perluse strict; use warnings; my %movies; my $film; my %reverse_result; my $director; my @data; %movies = ( 'The Shining' => 'Kubrick', 'Ten Commandments' => 'DeMille', 'Goonies' =>

File::Basename 模組用來析取檔案路徑中的目錄，檔案名稱以及尾碼。 本文為大家介紹的這個例子，實現了擷取/home/topgkw中所有檔案尾碼，其中目錄返回空值。 此模組的詳細用法，可以通過perldoc File::Basename命令查看，建議大家經常使用perldoc參閱相關模組的詳細介紹，比網上搜尋來的資料強多了。 例子： 注意： 1）、如果使用了 print start_html，則會輸出類似如下的內容： <!DOCTYPE html PUBLIC "-//W3C//

一、進程處理函數1、進程啟動函數函數名 eval 調用文法 eval(string) 解說 將string看作Perl語句執行。正確執行後，系統變數$@為空白串，如果有錯誤，$@中為錯誤資訊。 例子 $print = "print (\"hello,world\\n\");";eval ($print); 結果輸出 hello, world 函數名 system 調用文法 system(list) 解說

方法一、手工安裝的步驟　 從CPAN下載了DBI模組1.13版的壓縮檔DBI-1.13.tar.gz，假設放在/usr/local/src/下。　 cd　/usr/local/src　 解壓縮這個檔案：　 tar　xvzf　DBI-1.13.tar.gz　 這時會建立一個DBI-1.13的目錄。　 cd　DBI-1.13　產生makefile：　 perl　Makefile.PL　 建立模組　 make　 測試模組　 make　test　

學習記錄一下複製代碼 代碼如下:#!/usr/bin/perl -w use strict; print '@a @b @c @d 的值都為1 2 3',"\n"; my @a = (1..3); pop(@a); print "\@a的值為@a,pop拿掉數組最右邊的值\n"; my @b = (1..3); push(@b,'4'); print "\@b的值為@b,push添加一個值到數組的最右邊。\n"; my @c = (1..3); shift@c; print "\@c的值為@c,

Regex的三種形式  Regex中的常用模式  Regex的 8 大原則    Regex是 Perl 語言的一大特色，也是 Perl 程式中的一點痛點，不過如果大家能夠很好的掌握他，就可以輕易地用Regex來完成字串處理的任務，當然在 CGI 程式設計中就更能得心應手了。下面我們列出一些Regex書寫時的一些基本文法規則。 1) Regex的三種形式 首先我們應該知道 Perl 程式中，Regex有三種存在形式，他們分別是： 匹配：m/<regexp&

基類是一個作業系統類 代碼Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->package os;require Exporter;@ISA = qw(Exporter);@EXPORT = qw(temp);sub getDF{}sub temp{my $this = shift;print $this->getDF();print "\n";

今天來看看標量的操作符，標量可以分為兩類：一類是數字，另一類是字串。在perl中這兩類資料可以相互轉化，但是操作還是有區別的。 　　下面先介紹數字類型的操作符： 　　數字類型的運算操作符有一下幾種： 　　+(加),-（減）,*（乘）,/（除），－（取反）。　　不會的舉手，好沒有。　　下面講一些難的。 　　第一個是“%”（取餘）。嗯，會C語言的可以退場。這個操作符的使用方法和“/”差不多，但是結果是除之後的餘數。例如：　　　$a=6%5;這時$a的值為1；　　　$b=5%6; 這時$b的值為5。　

原文連結參考資料cpan mirror配置cpan教程perl 5教程 Perl到了第五版增加了模組的概念，用來提供物件導向編程的能力。這是Perl語言發展史上　 的一個裡程碑。此後，廣大自由軟體愛好者開發了大量功能強大、構思精巧的Perl模組，極大地　 擴充了Perl語言的功能。CPAN（Comprehensive　Perl　Archive　Network）是internet上Perl模組　 最大的集散地，包含了現今公布的幾乎所有的perl模組。　 　　　　幾個主要的CPAN網站有：