Perl

Perl插入sqlserver資料庫方法比較分類： Python/Ruby1. 本文對三種插入資料庫方法比較。a) 迴圈執行$sth->execute();並且自行控制$dbh->commit();b) $sth->bind_param_array()與$sth->execute_array()c) 利用sqlserver提供的bulkinsert與直接insert比較 2. 代碼如下:點擊(此處)摺疊或開啟use strict;use warnings;use DBI;

一、幾個問題1.找出不包含"abc"的字串  測試案例1==>abc(不符合)  測試案例2==>xabc(不符合)  測試案例3==>abcy(不符合)  測試案例4==>xabcy(不符合)  測試案例5==>xxxx xabcy(不符合)  測試案例6==>xxx abcy dabc(不符合)  測試案例7==>abcy(不符合)  測試案例8==>xyz(符合)  2.截出指定位置(第2列)字串，該字串不包含"abc" 

使用Perl做Web開發，Debug調試資訊輸出，還是比較噁心的。它不像PHP可以直接echo到頁面中，或者Eclipse直接斷點調試。Perl只能將你需要調式顯示的資訊，輸出到標準錯誤中，並通過查看記錄檔來查閱資訊。下面我以Apache為Web伺服器為例，來Debug。print STDERR "This is my error data.";你所print的資訊，會輸出到apache的錯誤記錄檔當中。預設的錯誤記錄檔是在apache/logs/error.log中，看看是否已經在裡面了：）

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

前言：        定義：單複數概念----標量即單個事物，perl 用標量（perl 中最簡單的一種資料類型）來稱呼單件事物。 對大部分的標量來說，要麼是數字，要麼是由字元組成的串（perl 中不存在單個字元的概念，一個字串整體就是單個事物）。        關聯：而標量之間又可以使用操作符（比如加法或字串串連）來關聯，產生的結果也是一個標量。        來源和去處：標量可以儲存在標量變數裡，也可以從檔案和裝置讀取（或寫入這些位置）。1.數字       

前言        重溫一下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程式快速回收被佔用的資源。                               

檔案：whox.pl；功能：列出誰在系統上,如有同一使用者多次登入分組顯示；說明：列使用者登入次數,使用的虛擬終端號及對應的IP；優點：相對於”who -x”顯示出的資訊更加直觀。                                                           #!/usr/bin/perl -wuse strict;#################################################### 檔案:whox.pl#

使用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

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

前幾天在看Ultimate_ToolBox的原始碼，從codeproject上down下來一編譯，一堆錯誤，發現是由於編譯器無法識別ISO-8859-1編碼，誤讀有關字元造成的，所以立即著手準備轉換程式源檔案編碼，google了一把，也下了兩個小軟體，但是都沒有批量轉換功能，而有這功能的又不支援從ISO-8859-1到UTF-8的轉換，於是想到從前在FreeBSD下UTF-8和GB2312互相轉換的函數的iconv庫，我知道iconv不但是一個程式庫，而且有一個同名的應用程式能夠將檔案在兩種編碼

在控制台輸入perldoc perldebug即可如何得到如何調試perl程式的文檔。其中重要的命令如下：p expr      Same as "print {$DB::OUT} expr" in the current package. In                particular, because this is just Perl's own "print"                function, this means that nested data