Perl

因為 Perl 的編譯安裝比較麻煩,難倒很多人.我特意給最新的 Perl 6 打成了 centos 6 上可以直接安裝的 rpm 包.只要給下面三個東西安裝上就好了.  代碼如下複製代碼 rpm -ivh http://repo.php-oa.com/6/RPMS/x86_64/nqp-2014.04-1.0.el6.x86_64.rpmrpm -ivh http://repo.php-oa.com/6/RPMS/x86_64/moarvm-2014.04-1.0.el6.x8

前言    PHP被大量的應用於Web的後台CGI開發，通常是在使用者資料資料之後得出某種結果，但是如果使用者輸入的資料不正確，就會出現問題，比如說某人的生日是"2月30日"！那應該怎麼樣來檢驗暑假是否正確呢？ 在PHP中加入了正則運算式的支援，讓我們可以十分方便的進行資料匹配。2 什麼是Regex：   

本文我們學習如何用Perl對字串或者數字數組進行排序。Perl有個內建函數叫做sort毫無疑問的可以排序一個數組。 其最簡單的形式是傳遞一個數組，它會返回排序後的元素組成的數組。@sorted = sort @original。基於ASCII碼排序複製代碼 代碼如下:#!/usr/bin/perluse strict;use warnings;use 5.010; use Data::Dumper qw(Dumper); my @words = qw(foo bar

其它一些程式設計語言中，有函數ltrim和rtrim分別用於從字串開頭和末尾刪除空格和定位字元。 也有的提供了函數trim來刪除字串兩端的空白字元。Perl裡沒這些函數因為簡單的Regex替換就能實現這個目的（不過我確信CPAN有很多模組實現了這些函數）。事實上這太簡單了以至於成了帕金森瑣碎定理裡的一個顯著主題。左側整理ltrim或者lstrip從字串左側刪除空白字元：複製代碼 代碼如下:$str =~ s/^\s+//;從字串開頭^開始匹配一個或者多個空白字元(\s+)，並將之替換成Null

PPM(Programmer's Package Manager)是ActivePerl內建的一個圖形化管理工具，有了這個工具，要升級，更新，移除Perl的Package都非常方便。只需要輸入ppm 或者 ppm gui就可以開啟圖形介面。畢竟用cpanm來安裝的話，你也必須知道要安裝的模組名，不是很方便，查詢起來也麻煩，要上cpan專門的網頁去查。複製代碼 代碼如下:C:\>ppm  或者 複製代碼 代碼如下:C:\>ppm gui 

工作需要開始學Perl,下載個Window版(5.16)的: 下載連結 http://www.activestate.com/activeperl/downloads安裝好了之後，寫第一個perl程式複製代碼 代碼如下:#!/usr/bin/perl  print "Hello,World!\n"; 運行結果: (很像Python哦)複製代碼 代碼如下:c:\Perl>perl HelloWorld.pl  Hello,World!

#mode operand create truncate#read < #write >  yes yes #append >> yesCase 1: Throw an exception if you cannot open the file:複製代碼 代碼如下:use strict;use warnings; my $filename = 'data.txt';open(my $fh, '<

#!/usr/bin/perl -wuse strict;use File::Spec;local $\ ="\n";#當前模組的每行輸出加入分行符號 my %options;#目錄路徑$options{single_case} = '/home/jiangyu/src/pl/Example'; my @cases; if (-d $options{single_case}) {#判斷目錄是否存在 my @files; my $dh; push(@files,

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

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

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

能夠操控日期和時間對於大多數程式設計語言來說是基本的能力，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;

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

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

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

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

一、列表   列表是包含在括弧裡的一序列的值，可以為任何數值，也可為空白，如：(1, 5.3 , "hello" , 2)，空列表：()。   註：只含有一個數值的列表(如：(43.2) )與該數值本身(即：43.2 )是不同的，但它們可以互相轉化或賦值。   列表例：

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

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