Perl

現在做的一個項目，剛剛完成了所有組件的編譯連結，運行也沒問題。但是每次運行看效果都得雙擊六個程式（四個視窗程序和二個命令列程式）。就想著能不能做一個批處理一次運行了。先想到的是bat指令碼，但因為有兩個命令列程式，且都是那種死迴圈不退出的那種，這造成在bat中開了第一個時卡住不運行第二個。在網上找了一下關於如何讓其後台啟動並執行資料，都是關於VB方面的。後來想PERL對於這種應該是小菜一碟吧，先在網上找,找到1 system("Client.exe

Learning Perl 4ED Reading Notes Chapter2 Scalar Data 1. Numbers. 所有的資料（int，float）在Perl內部都是double類型。當然，有的時候Perl在內部也會使用integer來表示int，因為這樣可以 提高程式的運行速度，但是這些邏輯對於程式員來說都是invisible的，所以，我們完全可以不用關心。 2. Floating-Point and Integer Literals. For example: 1.25 25

第4章：列表與數組列表()：空列表，當做條件判斷時為false兩個非空列表示例：("Hello ", "world", "\n") (123, 456, 789)同一列表中可以容納不同類型的元素Perl中的列表只有一維。(3, 8, 5, 15)、((3, 8), (5, 15))和(3, (8, 5), 15)都等於(3, 8, 5, 15)qw//可以用來聲明字串數組：qw/hello world good bye/等於('hello', 'world', 'good', 'bye').

第6章：子過程/函數聲明：subfunction_name;定義：subfunction_name {...}函數調用同C：example_subroutine();或example_subroutine;example_subroutine('Perl is', 'my favorite', $language);或example_subroutine 'Perl is', 'my favorite',

第11章：引用引用一律聲明為標量類型（即$開頭的命名變數），使用\運算子取引用對引用變數的修改等同於對引用指向實際資料的修改取變數引用：my $scalar_r = \$scalar;取列表的引用：my $array_r = \@array;取雜湊的引用：my $hash_r = \%hash; 通過引用解決列表無法嵌套的問題： my @array1 = (10, 20, 30, 40, 50);my @array2 = ( 1, 2, \@array1, 3,

Perl Memcached的用戶端序列化對象採用的是Storable模組的nfreeze方法，而這個方法又調用了c擴充的do_store方法；還原序列化使用的是Storable模組的thaw方法，而這個方法又是調用的c擴充的do_retrieve方法。而在PHP中，進行的卻是serialize和unserialize操作。造成了無法正常讀取的結果。Perl儲存一個('a',

英文原版見http://www.masonbook.com/。簡介Mason是一個強大的，可以將Perl嵌入文本的模板引擎。它提供了許多特性，協助你使用可重用的組件建立動態Web網站。除此之外，它還提供了很多的其他特性：可以建立標準的、可重用的，像header、footer，或者菜單這樣的組件。你只需要在一個地方進行改變。完整的Web請求的參數處理。內建緩衝，使用者可採用cache介面訪問。整合mod_perl以提供更快的速度和更好的彈性。從一個組件的小段到整個網站，都支援內容過濾。《使用Mas

 最近打算寫一個c/s形式的socket 監控指令碼。在網上找到了一個執行個體。由於以前很少接觸socket,訊號等東西，所以在寫之前，先瞭解一下他們。下面是關於訊號的一些基礎知識： pid > 0：發送給進程ID為pid的進程 pid == 0：發送給與自己同組，並且自己有許可權向其發送的進程 pid < -1：發送給進程組ID為-pid的進程，並且自己有許可權向其發送的進程 pid == -1：所有自己有許可權向其發送訊號的進程 （繼續補充中）

use strict;use warnings;#數值比較大小和字串比較大小 my $str1="1 -the first str"; my $str2="1 - the second str"; if($str1==$str2) {    print "numerically equal\n"; } if($str1 eq $str2) {    print "stringwise equal\n" ; } print "a.b"."haha" 有用的測試範例： use strict;use 

使用Regex分兩步走: 先去掉前面的: $a=~s/^ +//; 在去掉後面的: $a=~s/ +$//; 一步就可以： s/(^s+|s+$)//g; 刪除字串末尾的換行：chomp函數通常會刪除變數裡包含的字串尾部的分行符號。它是chop函數的一個略微安全些的版本，因為它對沒有分行符號的字串沒有影響。更準確地說，它根據瞭解$/的當前值刪除字串終止符，而不只是最後一個字元。和chop不同，chomp返回刪除的字元數量。   完！

Perl實現HTML2TXT中文轉換use HTML::TreeBuilder;use HTML::FormatText; open OUTPUT,">output.txt";$file = "C:/test.html";$tree = HTML::TreeBuilder->new->parse_file("$file"); $formatter = HTML::FormatText->new(leftmargin => 3, rightmargin =>

perl是一門非常強大的文本處理語言，之前在寫perl指令碼時，基本上就用Notepad++和print解決了代碼編輯和調試的問題。Notepad++作為編輯器其實是一個相當不錯的選擇了，對perl的代碼高亮做得相當漂亮，喜歡的話還能自己擴充；但是對於調試這一塊，雖然也用這種土辦法寫出上千行的能工作的指令碼，但老是用print查看結果總不是個辦法。 研究了一下，發現兩個不錯的工具： Komodo

一，危險性產生的原因 1, Web程式上手容易，簡單培訓就可以寫，寫出來的程式自然水平參差不齊。 2，好多人沒有安全意識，你和他談“SQL 注入”，根本不知道是什麼概念。 3，好多HTTP Scaner的出現，一下子就會自動掃描大批的網站。 4，相信使用者的輸入，比如又一個name的inputbox，就單純的以為使用者只是會輸入login. 二，File System Problem 1, ../的問題，比如

1 shell echo 命令會自動加入分行符號2. $?接受exit 傳回值3.變數等於`執行指令碼` ，變數擷取的值為指令碼最後向STDOUT輸出的值例子如下1. perl 調用shell1.sh中的內容#!/usr/bin/shecho `date`;exit 1;test.pl中的內容  1   use strict;   2 use warnings;                                                                    

代碼：需要顯式地定義變數且初始化。例如optionX。如果沒有定義變數且顯式初始化，且沒有在命令列指定選項，則選項對應的變數將為未定義。 #!/bin/perl-5.8.3/bin/perl$use warnings;$use strict;$use Data::Dumper;$use Getopt::Long;$use Pod::Usage;$our $g_opts;our $optionX=''; #if not defined in command line, it will be emp

 一 安裝perl模組到非自訂目錄 How do I get MakeMaker and Module::Build to install to the same place?Module::Build, as of 0.28, supports two ways to install to the same location as MakeMaker.1) Use INSTALL_BASE / --install_baseMakeMaker (as of 6.31) and

假如我有一個子過程，定義如下：sub test_sub { print "test";}我又有一個變數：$test = "test_sub";這個 $test 的值剛好就是上面子過程的名稱。既然我通過 $test 知道了這個子過程名稱，我可以通過 $test 達到調用這個子過程的目的嗎？也就是說，我讓使用者從命令列裡輸入一個子過程的名稱，然後就可以根據這個名稱來調用相對應的子過程。方法一，直接根據使用者輸入的子過程名來調用該子過程。完整的例子代碼如下：use warnings;no

最近用 Perl 寫了不少自動化測試載入器，用到了一些模組，有幾個覺得挺好的，記錄下來，以後說不定還有需要用到呢。Smart::CommentsSmart comments 提供了一個調試與追蹤代碼的簡單方法，可以列印一個變數值，也可以追蹤、顯示一個迴圈的進度等。最巧妙的是，當你完成了程式的編寫，不需要這些調試代碼的時候，只需要注釋掉use Smart::Comments;

1) 如何在一個字串中尋找某個字元出現的次數？原文出處：http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q4.24.html如果你想在一個字串中尋找字元(X)出現的次數，你可以用tr///這個函數、配合下面的方法來實現：$string = “ThisXlineXhasXsomeXx’sXinXit”:$count = ($string =~ tr/X//);print “There are $count Xs in the string”;2)

#最近做東西老用到處理時間的問題，索性寫幾個函數。#!/usr/bin/perl -w#===============================================================================# Copyright (c) 2009, # All rights reserved.# 摘 要 ：一些常用的時間處理函數# 作 者 ：2009-12-15 xingwang# 版 本 ：0.01#==================