Perl

一、條件判斷 複製代碼 代碼如下:  if ( ) {      }  elsif ( ) {      }  ...  else{      }建立i f語句的另一種方法是使用多個運算式，然後根據哪個運算式是真，來運行代碼：可以像下面這樣來讀取上面這個語句塊：如果標號為e x p r e s s i o n

一、定義 函數可分為系統函數和使用者函數。子程式即執行一個特殊任務的一段分離的代碼，它可以使減少重複代碼且使程式易讀。PERL中，子程式可以出現在程式的任何地方。定義方法為：複製代碼 代碼如下:  sub subroutine{    statements;  }二、調用   調用方法如下：1、用&調用 複製代碼 代碼如下:  &subname;  ...  sub subname{ &

Perl 最初的設計者為拉裡·沃爾(Larry Wall)，它於1987年12月18日發表。Perl借取了C、sed、awk、shell scripting以及很多其他程式語言的特性。Larry Wall在新聞群組comp.sources.misc發布了Perl指令碼語言1.0版，當時他是Unisys公司的一名程式員。Perl借鑒了sh、Awk和Sed等指令碼語言的特性，試圖成為一個能簡化報告處理的通用 Unix指令碼語言。Perl 2在1988年發布，增加了更多特性，擁有更好的Regex引擎。

老實說，這個東西有點折騰人，主要是書上的表述很晦澀，其實搞懂不難。 our,"把名字限於某個範圍“，其實就是明確聲明一個"全域變數"，雖然是在某個模組或者函數裡面定義的，外面的也可以訪問，如果已經聲明過了，再次用"our",表示此處用的是全域的那個，不是同名的私人或者局部變數複製代碼 代碼如下:our $PROGRAM_NAME = "waiter";{my  $PROGRAM_NAME = "something";our $PROGRAM_NAME = "server";

chomp與chop都是用於去除字串變數尾部的字元，但它們有各自的區別。chomp函數對變數起作用，而此變數含有字串。如果字串結尾有分行符號，chomp可以去掉它。這基本上就是它能完成的所有功能，如下例：複製代碼 代碼如下:$text="alineoftext\n      "; #也可以由<STDIN>輸入chomp($text);   

能夠操控日期和時間對於大多數程式設計語言來說是基本的能力，Perl也不例外。但是在碰到與時間相關的更加複雜的處理時，Perl內建的功能常常就顯得力不從心了。在這種情況下，上Perl綜合典藏網(CPAN)看看是一個好主意，上面有很多隨時可以使用的Perl模組，讓開發人員能夠有效地進行日期和時間操作。花點時間瀏覽這個網站看看是否能夠找到一些在下一個項目裡用得上的東西是值得的。本文列出了Perl

環境為windos，需要注意的兩點：1、預設activePerl下的採用的編碼是gbk，所以需要將字串轉為gbk才不會顯示亂碼2、遍曆檔案目錄時，需要排除特殊的目錄.和..完整的代碼：複製代碼 代碼如下:#!/usr/bin/perl use strict; use warnings; use Encode qw/from_to/;    my $path = "e:/CSS Design"; my $filecount = 0;

接手以前別人做的項目，發現SVN裡的ignore裡並沒有對*.db處理，導致圖片的緩衝縮減檔案都被提交了，而我只要開啟圖片檔案夾，就意味著Thumbs.db發生了改變。要做的事情有兩個：一、更改svn的設定，以後不再提交Thumbs.db檔案二、大量刪除指定目錄下的Thumbs.db檔案所以用perl寫了一個，代碼是在之前的 perl遍曆目錄 做了一些修改，主要有兩點自己注意了：一、檔案路徑，Windows下預設為“\  ”而linux下則是”/”，

一、語句的種類電腦是一種工具，優勢在於執行重複任務.迴圈執行，迴圈語句。需要作出大量的判斷，按條件執行，條件陳述式。順序語句。運算式真假值總結運算式不一定是邏輯運算式，但一定要得出真假值。假值：邏輯值為假值為0字串為空白列表為空白undef其它情況為真值二、條件陳述式if形式複製代碼 代碼如下:if(運算式){        

一、函數定義子程式即一段分離的代碼,它可以使減少重複代碼且程式易讀.perl中,子程式可以出現在程式的任何地方.但一般放在程式的開始或結尾.複製代碼 代碼如下:sub subroutine{    statements;}sub開始,子程式名同變數的命名規則,可與變數同名,最好不要與內建函式同名,如果與內建函式同名則用$subroutine區分,不用&是內建函式,用&是定義函數,但省略&時混淆.帶有原型說明的子程式定義:複製代碼 代碼如下:sub

一、systemperl也可以用system調用shell的命令,它和awk的system一樣,傳回值也是它調用的命令的退出狀態.複製代碼 代碼如下:[root@AX3sp2 ~]# cat aa.pl#! /usr/bin/perl -w$file = "wt.pl";system("ls -l wt.pl");$result = system "ls -l $file";print "$result \n"; #輸出命令的退出狀態system "date";[root@AX3sp2

[ 檔案控制代碼 ]$| 如果非零， 則在對當前選定的檔案執行寫或列印操作後強制清除緩衝區$% 當前選中檔案控制代碼的當前頁碼$= 當前選中檔案控制代碼的當前頁面長度$- 當前選中檔案控制代碼的頁面剩餘長度$~ 當前選中檔案控制代碼的報表格式名稱$^ 當前選中檔案控制代碼的當前頁首格式名[ 全域變數 ]$_ 預設的輸入和模式搜尋空間$@ 上一個 eval、do 或 require

一．資料類型(Data type)： Perl 的資料類型大致分為四種：Scalar（變數）、Scalar Array（數組）、Hash Array（散列）、References（指標），看起來雖少但用起來卻綽綽有餘。尤其在寫Perl程式時可以不必事先宣告變數，這一點對剛學程式語言的人甚為方便，不過為了以後程式除錯和維護方便，我建議你還是養成事先聲明變數的習慣比較好。1 Scalar（純量變數）：

一、定義    子程式即執行一個特殊任務的一段分離的代碼，它可以使減少重複代碼且使程式易讀。PERL中，子程式可以出現在程式的任何地方。定義方法為：   sub subroutine{     statements;   } 二、調用    調用方法如下： 1、用&調用    &subname;

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

主要是利用尋找/proc目錄下的相關檔案進行尋找.#!/usr/bin/perl use strict;use warnings;#usage: process_grep.pl ProcessNameexit( main(@ARGV) ); sub main { my $Phash; my $ProcessName = shift; my $PROC_DIR = "/proc"; chdir $PROC_DIR; my @pids = glob "[0-9]*"; for my

Hello World一個簡單的hello world例子：複製代碼 代碼如下:#!/usr/bin/env perluse strict;use warnings;use CGI::Fast;while(my $q = new CGI::Fast){ print $q->header("text/plain"); print "Hello

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

複製代碼 代碼如下:my $ip = "192.168.0.1|192.168.0.2|192.168.0.1";if ( $ip =~ /    ^    (?:        ((?:\d{1,3}\.){3}\d{1,3})        (?=    

有時候我們在部署指令碼的時候，我們想知道，我們的程式執行的怎麼樣了，想得到執行的結果，這樣我們也能放心很多是吧，那麼在程式執行成功或失敗的時候能夠給我沒發個郵件很是很不錯的。其實利用perl發郵件的方法有很多種，包括你在cpan上搜尋mail關鍵字是一大堆，經過實踐，MIME：：Lite用來發郵件還是很合適的，最不可思議的是它可以幫你輕鬆的發送帶有附件的郵件哦。下面我們就以MIME：：Lite發郵件為例：在cpan上面有關於它的詳細的用法（http://search.cpan.org/~rjbs