Perl

use strict;use Cwd;use strict 'subs';use Win32::OLE qw(in);use Win32::OLE::Variant;$Win32::OLE::Warn = 3;         # die on errors...my@files=("1.xls","2.xls","3.xls","4.xls","5.xls","6.xls"); foreach my$file (@files){ &EditExcel($file); alarm (15

原文網址：http://hi.baidu.com/0soul/blog/item/91098701f5051880e850cd4b.html原文：http://www.perl.com/pub/a/2002/08/20/perlandlwp.html著作權資訊有點多，其它的我寫在最後。我覺得這個Perl的LWP文檔挺不錯的，所以就轉過來，方便隨時查閱，呵呵。下面是轉載內容：**************************************************************

流程安裝解譯器/編譯器-》測試源碼可行性-》製作表徵圖-》編譯器-》加殼所需工具Perl解譯器：activeperlPDK開發包：ActiveState Perl Dev KitICON表徵圖編輯器：http://demonalex.3322.org/download/development/pic2icon.rar北鬥加殼工具：http://demonalex.3322.org/download/development/Nspack3.7.rar測試時使用的工具PEID殼查看工具：http:/

Perl語言中Perl方法的概念你是否瞭解，這裡向大家簡單介紹一下，Perl類的Perl方法只不過是一個Perl子程式而已，也即通常所說的成員函數。Perl方法一、Perl方法簡介Perl類的Perl方法只不過是一個Perl子程式而已，也即通常所說的成員函數。Perl方法定義不提供任何特殊文法，但規定Perl方法的第一個參數為對象或其被引用的包。Perl有兩種Perl方法：靜態Perl方法和虛Perl方法。靜態Perl方法第一個參數為類名，虛Perl方法第一個參數為對象的引用。Perl方法處理第

需求：取檔案1中的一行，和檔案2中所有的資料進行比較，有相同的儲存起來，否則刪除。複製代碼 代碼如下:#!/usr/bin/perl#use strict;open(FILE1,"C:/Perl/BX/BX-Users.txt");open(FILE2,"C:/Perl/BX/BX-Book-Ratings.txt");open(result1,">C:/perl/BX/BX-Users_result.txt");my $i=0;my $j=0;while((my $bxUser=<

參考《Perl語言入門》的一個Regex簡單測試程式： 1 #!/usr/bin/perl 2 use warnings; 3 use strict; 4 5 my $pattern=$ARGV[0]; 6 if(not $pattern){ 7 print "Usage: ./ret.pl PATTERN\n"; 8 exit; 9 }10 print "The pattern is m{$pattern}.\n";11 print "Ctrl + D to exit.\n"

Perl中四種基礎資料型別 (Elementary Data Type)（就我目前所知）：標量、數組、列表、雜湊。標量應該是Perl中的原子資料結構，對程式員來說不能再分解了，類似C語言中的int、double。對於標量，我有以下看法：“標量”這個名字很奇怪，有一種很“物理”、很“數學”的感覺，而且讓初學者以為一定還有個叫“向量”的資料類型。而實際上，標量就是一種普通的資料類型（有數學概念，跟物理沒有什麼關係），Perl中沒有叫做“向量”或者“向量”的基礎資料型別 (Elementary

. 任何單字元的萬用字元(\n除外)* 匹配前面的內容零次或多次。+ 匹配前面的內容一次或多次。？匹配前面的內容零次或一次。  非貪婪符號。() 模式分組\1 反向(重複)引用圓括弧中匹配的文字。| 或(擇一匹配)[] 字元集。Eg: [a-zA-Z], [abcxyz]^ 脫字元 表示這些字元除外。只在字元集中使用。\d 數字\w 單詞字元 (數字,字母和底線) [a-zA-Z0-9_]\s 空白字元 (相當於[\f\t\n\r])\D 非數字\W 非單詞\S 非空白{} 字元出現次數。Eg:

由於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

2> /dev/null perl中調用外部命令或外部程式的時候，$a=`cmd`;偶爾會出現該程式會有錯誤輸出的情況。如果我們不希望這些錯誤輸出影響perl的輸出結果，或者不希望程式啟動並執行時候還時不時冒出一些錯誤資訊，那麼我們可以在調用命令的時候把錯誤輸出屏蔽掉。$a=`cmd 2>/dev/null`; 關於/dev/null檔案的詳細介紹，參見另一篇博文【linux】/dev/null與/dev/zero詳解

這是 ABC Perl Programming 之後的第二部分。名稱改成現在這樣是因為一本書，叫做 Higher Order Perl 。這本書的作者提到很多 Perl 的程式員在用 Perl 寫 C 的程式。這是一件很不幸的事情。當然了，所謂高手可以用任何方法做任何事情。但是，既然是在學習一個語言，至少要有三分樣吧。下面是 Higher-Order Perl 這本書前言的第一段。A well-known saying in the programming racket is that a

原文發表在網易部落格 2010-11-04 21:18:43 開始學習perl了,得多做題啊.(讓我對perl感興趣的是小羊駝書,呃這個就是羊駝了,不過怎麼感覺跟網路上某個神獸很像啊.)2.1-2.3 計算圓半徑計算#!perl -w $PI=3.141592654; print "ENTER the semidiameter:"; $semidiameter = <STDIN> ; chomp($semidiameter); if

原文發表於網易部落格 2010-11-16 13:39:42 learning perl第5章的練習題有點意料之外，雖然第5章講的是基本輸入輸出，但是實現習題時，還是花了我一段時間用來去前面幾個章節回顧了一下。呵呵，把數組知識也用進去了。第1題： 1: #!perl -w 2: #tac 3: use strict; 4: use 5.10.1; 5: my @result; 6: #@ARGV=qw(test1.txt test2.txt); 7:

Perl概覽Perl最早由Larry Wall開發，是一種“膠水”語言，例如將上一個程式的輸出做簡單處理，轉換為下一個程式的輸入。第一版Perl發佈於1987年12月18日，然後一直穩步升級，直到Perl 5. Perl 5是一個大升級，包含了一些對於Perl 4舊有文法的改進。該書寫作之時的Perl版本是5.10.1。Perl仍在不斷升級中，下一個大版本是Perl 6，Perl

Perl中文/unicode/utf8/GB2312編碼之間的轉換是一件很讓人頭疼的事情，我總結了以下主要的轉換方法，供大家瞭解參考。# author: jiangyujieuse utf8;use Encode;use URI::Escape;$/ = "/n";#從unicode得到utf8編碼$str = '%u6536';$str =~ s//%u([0-9a-fA-F]{4})/pack("U",hex($1))/eg;$str = encode( "utf8", $str

很多時候，我們希望對原有檔案的內容進行一定的修改，linux雖然有sed這個強大的文本編輯命令，但是他只能產生新檔案或列印到screen上(或許sed也具有修改原檔案的功能，小的才疏學淺，尚不知道，煩請大家告訴我)，但在perl裡卻有這麼一個命令$^I例子：#!/usr/bin/perluse strict;$^I="";while(<>){        s/^rate.*/rate=0/;        s/^testMode.*/testMode=0/;       

最近，一直在苦苦尋找一個最適合自己的bug追蹤系統。我自己平時寫的一些小工具，有一些bug需要追蹤管理一下，用記事本顯得格式太隨意了，不好管理。試了很多有名的工具，如Bugzilla，Mantis，感覺都太厚重了，團隊用倒是蠻合適的。後來想著用XML定義一個日誌資料庫，一個Bug開一個檔案，這樣可以詳細記錄Bug的內容及解決過程、方法等。再寫一個前端，用來管理組織這些XML檔案。但我個人的bug量不多，更多的時候，是隨手寫一點想法，這種XML嚴謹的組織方式，並沒有讓我覺得更輕鬆。嘗試著用Emac

Programming Perl (1180 pages).pdf  Teach Yourself Cgi Programming With Perl  Perl Cookbook, 2nd Ed (2003) TeamLiB good.chm  Network Programming with Perl  Advanced Perl Programming 2nd(O'Reil 2005).chm   Perl Hacks   Higher-Order Perl--A

最近在用Perl來做工作的時候，運行到一個地方，需要我輸入一個裝置名稱，以判斷接下來應該做的步驟。每次運行到這裡，我都是手動輸入很長的裝置名稱，比如說ciscocontenteng，每次這樣輸入，不僅累死人，還很容易出錯。這種情況下，可以用Term::Complete這個module來實現用tab鍵自動補全。用法非常簡單，看代碼就差不多能理解了：use warnings; use strict;use Term::Complete;my @completion_list = (“atest”,”

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->#! /usr/bin/perl -w$line = <STDIN>;chomp($line);if($line =~ /(^[a-zA-Z1-9]{1}\w*(\-{0,1}\w{1})*(\.{0,1}\w{1})*[a-zA-Z1-9]{1,}@([a-zA-Z1-9]{1,}\-*\