Perl

Regex（Regular Expression，縮寫為regexp，regex或regxp)，又稱正規運算式、正規表示式或常規運算式或正規化標記法或正規標記法，是指一個用 來描述或者匹配一系列符合某個句法規則的字串的單個字串。在很多文字編輯器或其他工具裡，Regex通常被用來檢索和/或替換那些符合某個模式的文本 內容。許多程式設計語言都支援利用Regex進行字串操作。例如，在Perl中就內建了一個功能強大的在Regex引擎。Regex這個概念最初是由

perl中our的用法require 5.006當版本號碼小於 5.006 的時候，會返回失敗，從而導致模組載入失敗。所以它的作用就是保證模組調用環境的 Perl 版本。our 和 my 一樣，都是對變數的聲明，不過 our 聲明的是包全域變數，而 my 聲明的是詞法變數。不過，經過 our 聲明的變數，它會變得像一個詞法變數一樣，其實這也是 our 存在的目的：用來欺騙 strict pragma，使 strict 以為它是一個詞法變數，其實卻不是。有一個簡單的辦法可以理解

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

我們在linux常常用到一個程式需要加入參數,現在瞭解一下 perl 中的有關控制參數的模組 Getopt::Long ,比直接使用 @ARGV 的數組強大多了.我想大家知道在 Linux 中有的參數有二種形式.•長參數 –help•短參數 -h也就是-和–的分別.–表示完整參數.-表示簡化參數.在 Perl 的這個模組中也支援這二種方法.這要介紹的二 Getopt 其實有二個模組,一個叫 Getopt::Long 一個叫 Getopt::Std.下面就只介紹 Getopt::Long

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

perl中建立數組時，可以使用到qw。但有一個問題，如果要建立有20個人名組成的數組，並且每個人的名字是這種形式的"Join smith" "Harry Potter"也就是每一個名字既包含姓也包含名。此時，qw就不起作用了。因為qw是用空格作為分隔字元。下面提供一些替代的解決方案，供大家參考。方案一：用最原始的方案，也就是雙引號，來進行數組的建立複製代碼 代碼如下:@names=("Join smith","Harry Potter"); print @names[0]; 結果如下：F:\&

複製代碼 代碼如下:#!/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',

程式檔案：test.pl複製代碼 代碼如下:#!/bin/perl# filename：test.pluse strict; use warnings; #隨便找一個比較好識別的序列 my $DNA="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n"; my $i; my $mutant; srand(time|$$); $mutant=mutate($DNA); print "Mutate \n".

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

perl中<>運算子可以有如下的用途：1)如果角括弧中間是檔案控制代碼，角括弧運算子允許你讀取檔案控制代碼，比如<STDIN>。2) 如果角括弧中間是搜尋模式，角括弧運算子能返回與該模式比對的檔案清單，這稱為一個glob，比如< *.bat>。3)一組角括弧運算子如果中間沒有任何東西，那麼它可以讀取命令列上所有檔案的內容；如果沒有給出檔案名稱，則可以讀取標準輸出。請看下面這段代碼：複製代碼 代碼如下:while(<>){print

在檔案I/O中，要從一個檔案讀取資料，應用程式首先要叫用作業系統函數並傳送檔案名稱，並選一個到該檔案的路徑來開啟檔案。該函數取回一個順序號，即Perl檔案控制代碼（filehandle），該Perl檔案控制代碼對於開啟的檔案是唯一的識別依據。要從檔案中讀取一塊資料，應用程式需要調用函數ReadFile，並將Perl檔案控制代碼在記憶體中的地址和要拷貝的位元組數傳送給作業系統。當完成任務後，在通過調用系統函數來關閉該檔案。除了你模仿唯我論者哲學家編寫一個人工智慧程式,你的程式使用不和外界通訊的方法

下面是一個例子：複製代碼 代碼如下: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

一開始打算用perldoc看Apache2::Request模組，結果在運行時出現如下錯誤：複製代碼 代碼如下:Error in tempfile() using /tmp/XXXXXXXXXX:parent directory (./) isnot writable at /usr/lib/perl5/5.8.8/Pod/Perldoc.pm line

方法一（不使用模組，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(

之前總不重視自己的部落格，上回一丟才心疼，現在重視起來，決定定期備份sql。寫個小指令碼如下：複製代碼 代碼如下:#!/usr/bin/perluse warnings;use strict;use MySQL::Backup;use Mail::Sender;open my $tmp_sql, '>', "backup.sql";my $mb = new MySQL::Backup('dbname', 'localhost', 'dbuser', 'dbpasswd',

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

Perl 社區並不是所有的東西都發布在 CPAN 上。甚至專門有一個 Module::ThirdParty 模組記錄這些非 CPAN 的 perl 項目列表。其中最有名的應該就屬寫部落格的 Movable Type 和做監控的 SmokePing 了。但是如果個人圖方便又想把 smokeping 打包方便部署使用的時候，就會發現一點小問題：打包成rpm，很多 perl 的相依模組不一定在系統 repo 裡存在；打包成 perl 的模組，smokeping 最常用的幾個 probe 比如

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

文法 建立'引用'僅有兩種方法，使用它也是兩種。 建立引用 建立規則 1 如果你在一個變數前加一個'/'號，你就得到了這個變數的'引用'。 $aref = /@array; # $aref 儲存著指向@array的'引用' $href = /%hash; # $href 儲存著指向%hash的'引用' 當你把'引用'儲存在類似 $aref 或 $href的變數中，你就可以象操作其他標量一樣copy或儲存它。 $xy = $aref;