Perl

perl風格的變數替換有更好的可讀性，普通的javascript編程中+號很多，讓人眼花繚亂。好訊息，我們可以用Regex來協助實現編程風格的轉換。下面的例子中規定${}內的字串是變數名，定義varReplace原型函數實現變數替換：String.prototype.varReplace = function(){ var pttrn = /\${(\w+)}/g; return this.replace(pttrn,function(a,b){return

1. 條件控制語句if(條件運算式){#語句}else{#語句}given…when結構形式為：given (標量)when()  { }when()  { }when()  { }when()  { }given語句的用法為：#!/usr/bin/perl -w use 5.010001; my $m=<STDIN>; given ($m) { when (/[0-9]/) {print "it is a

適用於 Mac OS X 的 XAMPP 是 Mac OS X 上最簡單，最實用，也最完整的網路伺服器解決方案。該發行版包括整合了最新的 MySQL、PHP（4+5），和 Perl 的 Apache 2 伺服器。它以 Mac OS X 安裝包的方式發布，包含所有必須的檔案，無需下載其它東西。如果您是一位有經驗的網路開發人員，或者是需要運行伺服器、建立的動態網頁或使用資料庫的 Mac 愛好者，這就是您要找的東西！該版本需要 Mac OS X 10.4 (Intel&PPC)

長期以來，Perl以其對常規運算式的固有支援，一直是非常流行的文本處理工具。在這篇入門性文章中，我們將帶領你簡單瞭解如何在你自己的程式中使用常規運算式，實現更加強大的文本搜尋和替代功能。我們首先瞭解最簡單的常規運算式：匹配。如果在字串中找到相匹配的模式，匹配操作就返回真值。因此下面的運算式：$string =~

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

Perl利用函數rand()和srand()為隨機數（更確切的說是"偽隨機數"）字串的產生提供了基本的工具。這些函數不是利用加密來提供安 全性的，所以不要利用它們為你金融資訊的加密。但是，如果你需要為你的下一個遊戲或者動態Web網站的新特性設計一個簡單的隨機數產生器，那麼 rand()和srand()可能就是你所需要的。函數rand()是真正的隨機數產生器，而srand()會設定供rand()使用的隨機數種子。函數rand()會返回一個處於0和你所指定的數

為何使用引用？在perl4中，hash表中的value欄位只能是scalar，而不能是list，這對於有些情況是很不方便的，比如有下面的資料：Chicago, USAFrankfurt, GermanyBerlin, GermanyWashington, USAHelsinki, FinlandNew York, USA我們想要按國家將城市分類，每個國家後面對應城市列表，如果用perl4來做，必須將城市列表組合成字串才行，如果用perl5就可以用引用來做，有了引用，就可以構造複雜的hash結構，

my $para = @_ 這是標量上下文，$para得到的是@_中元素的個數。 my ($para) = @_ 這是列表上下文，$para得到的是@_中的元素值。 具體是什麼上下文是由等號左邊的變數類型決定的，等號左邊是標量，則是標量上下文，等號左邊是列表，則是列表上下文。 強制指定標量上下文 使用scalar函數 複製代碼 代碼如下: my @a = (1..10) ; print @a ;#列印1-10 print scalar @a ;

這裡為大家舉二個小例子，供朋友們學習參考。對任何的函數記錄函數啟動並執行時間。複製代碼 代碼如下:#!/usr/bin/perluse warnings;use strict;no strict "refs";sub testLogToStd{print "Test stdout : \n";open LOG,"> 2.txt";select LOG;print "just a test\n";#recover STDOUTselect STDOUT;print "just a test2

該模組用perl的數組代表一個檔案，檔案的每一行對應數組的一個元素，第一行為元素0，第二回為1，...  檔案本身實際並不載入到記憶體，對數組元素的操作立刻作用到檔案裡。最大的方便是可以任意指定處理開頭結尾的某幾行。基本用法：複製代碼 代碼如下:use Tie::File;tie @array, 'Tie::File', filename or die ...;$array[13] = 'blah'; # line 13 of the file is now 'blah'print $

用Open() 函數開啟檔案開啟檔案的常用方法是:複製代碼 代碼如下:open(FH, "< $filename")or die "Couldn't open $filename for reading: $!";open()

1. 一般使用：@nowtime=localtime();#($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();注意：$mon+1，$year+1900;$now_string = localtime;  # e.g., "Thu Oct 13 04:54:34

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

刪除檔案使用unlinke函數，比如unlink $file， unlink $file1, $file2, $file3開啟檔案使用三參數的形式開啟檔案，這樣非常便於區分模式和檔案名稱，perl 5.6之後的版本都支援這種方式。複製代碼 代碼如下:#Open the 'txt' file for readingopen FH, '<', "$file_name.txt" or die "Error:$!\n";#Open the 'txt' file for writing.

用Open() 函數開啟檔案開啟檔案的常用方法是:複製代碼 代碼如下:open(FH, "< $filename")    or die "Couldn't open $filename for reading: $!"; open()

在shell下提到終端的顏色的時候不得不提到幾個提示符變數：PS1：預設提示符，也就是遠程登上系統之後，開啟終端，我們天天見到的那個熟悉的提示符；[root@vps ~]$echo $PS1[\u@\h \W]$PS2：就是我們命令一行寫不完在我們命令列下我們打上”\”，另起一行所顯示的那個；[root@vps ~]$echo “hello” \> “world”hello world[root@vps ~]$echo $PS1[\u@\h

經常會遇到下載的檔案或電子書，名字中間都包含了一些網址資訊，實際使用中由於名字太長不方便，下面的指令碼使用Regex來對目錄下的所有檔案重新命名：例如：修改前：[雲棲社區]Mac OS X for Unix Geeks[www.jb51.net].mobi修改後：Mac OS X for Unix Geeks.mobipython代碼如下:複製代碼 代碼如下:import osimport redef rename_dir(dir,regex,f):  if not

首先來看看 POSIX 風格Regex的兩個主要函數： ereg 函數：（Regex匹配） 格式：int ereg ( string pattern, string string [, array ®s] ) 注意：使用 Perl 相容Regex文法的 preg_match() 函數通常是比 ereg() 更快的替代方案。（一般的話還是使用 preg_match() ，比較好勒~~） 以區分大小寫方式在 string 中尋找與給定的Regex pattern 所匹配的子串。如果找到與

perl substr()函數例子，substr()函數執行個體代碼 - 返回EXPR的子字串，起始是為字串內的位移量OFFSET。文法：substr EXPR, OFFSET, LEN, REPLACEMENTsubstr EXPR, OFFSET, LENsubstr EXPR,

標籤：簡潔   規範   family   而且   等等   程式員   mil   運算式   mic    最近我都在一些論壇和交流社區學習，發現很多人對perl有很大的偏見。