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" 

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

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

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

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

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