Perl

Regex。所謂Regex，是由斜杠圈起的一組字元集合。它們可用於在文本中匹配指定模 式，並進行相應替換操作。一直以來，Perl 都因為其優秀的模式比對機制而聞名於世。表2-2 一些Regex元字元元字元表達含義^匹配行首$ 匹配行尾a.c 匹配一個a，後面任意單個字元，再後面是一個c 的情況[abc] 匹配a 或者b 或者c 的情況[^abc] 匹配字元既不是a 又不是b 也不是c 的情況[0-9] 匹配位於0 到9 之間的單個數字ab*c匹配一個a 後面跟0 到多個b，最後是一個c

以下Function Compute某年份是否為閏年#!/usr/bin/perl$my_year = 2000;if ( is_leap_year( $my_year ) ){ # Call function with an argument print "$my_year is a leap year\n";}else{ print "$my_year is not a leap year";}sub is_leap_year { # Function definition

1、讀取某檔案，如果該檔案不存在，則報錯，並提示出錯原因open (DB, "/home/ellie/myfile") or die "Can't open file: $!\n"; 運行後提示：Can't open file: No such file or director 2、讀寫檔案的方法：open(FH, "<filename"); # Opens "filename" for reading.讀 # The <

緣由最近反過頭來看Perl，一方面是我的客戶廠家用Perl開發了很多東西，另一方面在瞭解過程中，又複習了Perl語言，並且有了一些心得。記錄下來，供大家參考。我在做一個小程式，就是解析一個文字檔，將其中的內容進行處理，並儲存在另一個檔案。背景知識1. Perl的對象化編程實現請參考閱讀：O'Reilly - Advanced Perl Programming.pdf - 第7章 [Object-Oriented Programming]2.

著作權聲明：可以任意轉載，轉載時請務必以超連結形式標明文章原始出處和作者資訊及本聲明http://www.chedong.com/tech/indent_tools.html關鍵詞：pretty print indent perltidy pydent astyle htmltidy source code beautifier內容摘要：寫本文的目的無非是2個：如果前任程式員縮排非常不整齊的代碼非常影響現任維護者的代碼閱讀速度。

[root@lang Packages]# rpm -qa|grep sambasamba-winbind-3.2.4-0.22.fc10.i386samba-common-3.2.4-0.22.fc10.i386samba-client-3.2.4-0.22.fc10.i386[root@lang Packages]# rpm -qa|grep smblibsmbios-2.0.1-2.fc10.1.i386libsmbclient-3.2.4-0.22.fc10.i386gvfs-smb-1

結 構含 義\n換行\r斷行符號\t水平置表符\f換頁符\b退格\v垂直置表符\a響鈴\eEsc\007任一八進位ASCII值(這裡007表示bell)\x7f任一十六進位ASCII值\cC任一“控制”字元\\反斜線\"雙引號\l下一字母小寫\L以後所有字母小寫直到\E\u下一字母大寫\U以後所有字母大寫直到\E\E結束\L和\U

一些常用模組的簡單描述 http://www.perldoc.com/perl5.6/pod/perlmodlib.html在perl 中使用模組： 模組的：http://www.cpan.org/modules/01modules.index.html 安裝模組： 1. perl Makefile.PL 2. make 3. make test 4. make install 也可以用如下命令安裝模組(已知的適用的系統redhat 9.0，其他的我不知道，請大家試試看 。 perl

原 名：Brian's Guide to Solving Any Perl Problem 中 文: Brian 的 Perl 問題之萬能指南 作 者：brian d foy 原 文：http://www252.pair.com/comdog/brian's_guide.pod 發 表：2004-07-20 翻 譯：klaus 審 校：qiang 出 處：中國 Perl協會 FPC - PerlChina.org 閱讀這份指南並保持明智的頭腦 我的調試哲學 我相信三件事情： 這不是個人問題

Making References References can be created in several ways.By using the backslash operator on a variable, subroutine, or value. (This works much like the & (address-of) operator in C.) This typically creates another reference to a variable,

有三種：system，exec，``(反引號).1. system：執行完命令後，繼續執行perl script；輸出到STDOUT。2. exec：一執行這條命令，perl就退出了；輸出到STDOUT。3.（my $output =） ``：執行完命令後，繼續執行perl script；返回命令的輸出到$output。即便是只是這樣寫：``，雖然沒有variable接收返回，perl還是儘力嘗試傳回值回來。不建議不接收傳回值的使用方式。

           由於CME極有個性，終於開掉她，忽然發現CMO的工作有太多還沒有做，Version Controlling, Change Management,Auto Release, Configuration Status Announce. 當務之急，Key Area List , find out that ,Auto Release is important thing.           1.首先解決整體的設計：          

對標量或常量的處理一，目標與結果存貯：      預設操作的目標內容是在預設變理$_裡，操作結果也會存貯在$_裡，如果操作成功$1,$2,$3,$@變數也會儲存相關的部分結果內容     a,輸入（目標）       一種是$_,如： $_ = "teststring"; m/\*x[g]+/g;  $result = $_;      一種是=~串連輸入 如   $inputstring = "teststirng"; $inputstring=~ m/\*x[g]+/g;  $result

   在此過程中遇到幾個問題：一， 首先遇到perl 指令碼直接在命令列中執行，一切正常，可以從版本管理軟體中checkin ,checkout,也可以進行源碼自動編譯，也可以把執行檔案通過InstallShield 進行打包，再產生ISO，再上傳至Release的FTP正確的位置，也可以自動群發 Release Notes

   今天拾建了 Web 系列環境，apache + perl, 進行了cgi 掛接，測試一切良好，但忽然遇到幾個問題。就是網頁的對公司的所有項目的列舉找不到starteam的命令列支援，只好去找 starteam的SDK,一個C++  的API,沒有問題，可以解決，但又要以CGI方式掛解到網站上，不爽，就找到了Java介面，幾分鐘搞定，找到一個server類，可以全部搞定。        但最後的測試發現一個問題，就是perl指令碼在命令列下執行完全正常，但放到

由於linux上處理word和ppt比較麻煩，而且有檔案格式專利的問題，所以以下操作全部在Windows下面進行。首先需要安裝Microsoft Save as PDF附加元件，官方：http://www.microsoft.com/zh-cn/download/details.aspx?id=7安裝成功後可以手工將文檔另存新檔pdf。需要引用“Win32::OLE”模組use Win32::OLE;use Win32::OLE::Const 'Microsoft Word';use Win32

寫在前面.非常非常感謝 Superor 拿出自己的時間，為中國的 Perl 界做出了第一個中文視頻教程，象別的語言都有很好的教程。Perl 的相比起來還是少.看視頻，在入門時還是相當方便的，就象電影來看就好了。我基本 Superor 老師每出一集我都看了。希望大家也認真看看。記的，學習時要多寫,只能看明白,只有 5% 是你的，練習都做一做,就有 30% 是你的啦。其它的如果能根據教程，自己寫出自己要的程式，才 80% 是你的.再次感謝 Superor 老師.更新到 46 集 

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

經常要講一個檔案分割成許多小檔案，如果每次判斷後要進行“開啟檔案控制代碼—》寫入資料—》關閉檔案控制代碼”，這樣重複的開啟、關閉檔案控制代碼是很耗時間的。進程經常會處於“S”睡眠狀態。如果同時開啟多個檔案，再判斷要寫入哪個檔案，則可以節省CPU等待的時間。for my $i (0..99){  $o="OUT".$i;  open $o,">test.$i" or die $!;  print $o "test";  close

方法一： 5.8版本 使用Switch包 use Switch;        switch ($val) {            case 1          { print "number 1" }            case "a"        { print "string a" }            case [1..10,42] { print "number in list" }            case (@array)   { print "number