Perl

今天看到了在參數中傳遞引用的一段文章，其中講到了一個問題，自己以前還碰到過，不過最後是通過其他辦法繞過去了。今天看到這個問題可以通過傳遞參數引用來解決。所以打算寫下來。希望可以幫到大家。 我就直接引用這本書中的例子了。 就是如果我們在參數中傳遞兩個數組的時候，會出現一些問題。 sub getarrays{    my(@a,@b) = @_;..} @fruit = qw(apples oranges banana);@veggies = qw(carrot cabbage

在perl中當我們需要建立一個進程的時候，一般都是用比較簡單易用的system，exec，或者``(反單引號），這幾種用法都非常簡單，但是他們不能結合一些作業系統中的管道等高效的東西。所以在perl中還有一種建立進程的方法，就是把進程當做檔案控制代碼那樣使用。open(WHOPROC, "who|"); # open who for

尋找子串：index（）和

Perl類（包）的繼承是通過@ISA數組來實現的。簡單來說，Perl把它看作目錄名的特殊數組，與@INC數組類似（@INC數組是包含引用路徑）。當Perl在當前類（包）中無法找到所需方法時，便會在該數組列出的類中尋找。是否是聽起來還是很抽象。。。。。。我放出個例子，供大家參考。一般我看的比較多的例子，@ISA都會和Exporter配合使用。Arithmetic.pmpackage Arithmetic;use strict;use Exporter;#use

前言        重溫一下perl中單複數的概念：標量代表單數；而列表與數組代表perl 中的複數。         定義：                   列表（list）：指標量的有序集合。-------儲存標量                   數組（array）：儲存列表的變數。--------儲存變數                   以上二者均為有序集合，數組或列表中的每個元素都有相應的整數作為索引，此數字從0開始遞增，每次加1。         

 我發下個人的連結：http://www.wachnew.com 以下是我學perl的時候記錄的一些知識點，方便以後查看,以下代碼是一個程式檔案，可以在perl解析器上成功運行。 #!/usr/bin/perl -w #知識點１：s/匹配模式串/替換串/;# s///替換成功後返回為真，否則為假$_ = "hello world, again..";s/hello/nice/;   #用nice把hello替換掉print "$_/n";s//s(/w+)/ a man's $1/;print

perl的引用類似於C語言的指標，1 關於標量變數的引用：$name = "zhang";$ref = /$name;  #"/"增加此符號表示對標量$name的引用，即$ref指向$name。print $ref;#列印出的值為地址print $$ref; #列印出引用的值，為zhang.  增加的此$號表示引用的對象是個標量，而不是數組。 $another = $ref;  #引時$another又是$name的另外一個引用$ref =

為了比較方便，考慮這樣一個應用：把html頁面中的所有非漢字字元全部去掉。這裡順便告訴大家一個秘訣，只要文本被perl 按正確編碼解釋後，利用/w就可以匹配一個字母、數字、_、漢字，這個特性是不是很方便，所以我們只要用如下兩次Regex就可以去掉所有非漢字字元，包括全形的一些標點(＠＃＄％＜，（）)也能去的很乾淨：$str =~ s/[^w]//g;$str =~ s/[0-9a-zA-Z_]//g;問題在於如何讓perl正確的理解我們的文本，我先給出我們的測試程式如下：#! /usr/bin/

說明：通過讀取"netstat -p tcp"命令的輸出，提取Foreign Address部分的資料，並對同一IP多重串連進行計數。優點：相對於netstat命令的輸出，可以更直觀的發現異常的外部串連IP。                                                                                                                                                  

需求:同事反映伺服器每當下午下班時就出現終端登入難、業務辦理長時間無響應。    經查,升騰終端綁定程式與每個終端都有大量無效串連 （Perl擷取串連原生外部IP資訊），即使，終端離線佔用的資源依然不釋放，下次串連時又重新建立新串連，重複。直至耗盡伺服器可用資源同時CPU佔用率100％    上述，個人凝為升騰程式BUG，聯絡廠家後暫未給出解決方案，臨時編寫這個程式手動回收被過多佔用的資源。優點:批量KILL程式快速回收被佔用的資源。                               

使用xml—writer#!c:/perl/bin/use XML::Writer;use IO;#open file stream .Param is file name.my $output = new IO::File(">output.xml");  #new a output stream.  my $writer = new XML::Writer(OUTPUT => $output)      or die"create fail";    print "file

第一個perl指令碼是同事幫忙寫的。這個功能用JAVA實現後，中途不拋異常退出；用perl後，正常。同事幫忙寫，我自己修改調試通過，竟然對perl有了一定的瞭解。寫下來，備忘，說不定今天是個新的開始。#!/usr/bin/perluse DBI;#串連資料庫，就是這麼方便$dbh = DBI->connect("DBI:mysql:newWap:172.16.58.36", "root","");#perl ioopen (F, "data.txt");open (OUT,

用Open() 函數開啟檔案開啟檔案的常用方法是:open(FH, "< $filename")or die "Couldn't open $filename for reading: $!";open() 函數通常帶有兩個參數，第一個為檔案控制代碼，用於指向開啟的檔案，第二個參數是檔案名稱及模式(檔案的開啟模式)的混合體，如果檔案被成功開啟，open()函數返回true，否則為false。我們用“or”來測試該條件。上述代碼中的模式由小於字元(<)來表示。如果檔案不存在，open(

轉載本站文章請註明，轉載自：扶凱[http://www.php-oa.com]本文連結: http://www.php-oa.com/2011/06/09/perl-web-lwp-cookie-wordpress-auto.html 自動化處理,和互連網上應用最多的都是基於 HTTP 協議的,原來我使用 Perl 處理,一直感覺有點亂,後來發現其實很簡單第一步：簡單了觸一下 LWP::UserAgent 模組的基本方法第二步：在瞭解一下下面這幾個組件就行了HTTP::Request,

也是在另外一個部落格中看到的，不過現在在網上竟然搜不到了，還好我記錄了下來： 如果用Carbide編譯任意工程，都出現類似如下的錯誤：===Build Command = /c abld build WINSCW UDEB -v===C:/WINDOWS/system32/cmd.exe /c abld build WINSCW UDEB -v   make -r  -f

原文發表於網易部落格 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:

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

Expect.pm 模組：主要用來和另外一個server進行互動的，比如ftp，telnet等等。在寫一些監控腳步上，也會經常用到。我所用到的方法很簡單，spawn($command,@params),Forks and execs $command. Returns an Expect object upon success or undef if the fork was unsuccessful or the command could not be found. spawn()

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

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 =>