Perl

        有的時候我們會需要處理到檔案的一些屬性，比如說唯讀、隱藏之類的，我這裡大概說下在WIN32下如何取得和修改檔案的屬性。     需要： use Win32::File;   然後使用如下方法：   my $set;#取得檔案的屬性   Win32::File::GetAttributes($name, $set);#設定檔案的屬性   Win32::File::SetAttributes($name, ARCHIVE);在perldoc裡，可供設定的屬性如下：ARCHIVE

轉自：http://www.williamlong.info/archives/460.html文將對目前最常用的四種動態網頁語言Perl（Practical Extraction and Report Language）、PHP（Hypertext Preprocessor）、ASP（Active Server Pages）、JSP（JavaServer Pages）進行一些技術性的比較。　　Perl　　Perl（Practical Extraction and Report

一、Regex的三種形式首先我們應該知道 Perl 程式中，Regex有三種存在形式，他們分別是：匹配：m/<regexp>;/ （還可以簡寫為 /<regexp>;/ ，略去 m）替換：s/<pattern>;/<replacement>;/轉化：tr/<pattern>;/<replacemnt>;/這三種形式一般都和 =~ 或 !~ 搭配使用（其中 "=~" 表示相匹配，在整條語句中讀作 does，"!~"

############################################################ 功能：取目前時間# 參數：無# 傳回值： 按照YYYYMMDDHHMMSS的格式返回時間###########################################################sub get_time{ my( $sec, $min, $hour, $day, $month, $year ) = localtime( time()

本文只實現編譯，調用WCF還沒有成功(調用伺服器數位憑證，而不做認證！)1：安裝ActivePerl （最新ActivePerl-5.12.2.1203）http://www.activestate.com/activeperl/downloads/2：安裝opensslhttp://www.openssl.org/source/（建議安裝穩定的openssl-0.9.8r，最新版是openssl-1.0.0d，而之前openssl-1.0.0c不穩定）3:MASM

(defun python-shell()  "make a python shell"  (interactive)  (switch-to-buffer (make-comint "python" "python" nil "-i")))(defun groovy-shell()  "make a groovy shell"  (interactive)  (switch-to-buffer (make-comint "groovy" "groovysh" nil)))(defun perl

 Perl是一種深受世界各地開發人員喜愛的實用摘要和報表語言，雖然它是在Unix上誕生和發展起來的，但在Windows編程領域也已經佔有一席之地。 　 一、概述　　 在ActiveState等公司的領導之下，從1995年中期開始Perl開始了穩定地發展，不僅增加了標準的Perl功能，而且增加了許多面向Windows的功能，比如OLE和COM整合等。　　

gb2312轉Utf8的方法： use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8", decode("gb2312", $str)); Utf8轉gb2312的方法： use Encode; my $str = "utf8中文"; $str_cnsoftware = encode("gb2312", decode("utf-8", $str);或用use Encode; Encode::from_to($octets,

1.解析xml 用到兩個包： # use moduleuse XML::Simple;use Data::Dumper;  過程： # create object$xml = new XML::Simple;#解析$data = $xml->XMLin（xml檔案名稱）；#取值my $value=$data->{節點名字}如果有子節點則為 my $value=$data->{節點名字}->{子節點名字}； 2.解析json 用到的perl包use JSON;use

本文來自csdn lidp http://blog.csdn.net/perfectpdl,轉載註明出處，謝謝。我建了一個 Freeswitch 核心研究 交流群， 45211986， 歡迎加入, 另外，提供基於SIP的通訊伺服器及用戶端解決方案,承接 sip/ims 視頻用戶端開發，支援接入sip軟交換,ims核心網，支援 語音，視頻，即時通訊功能，視頻格式支援 h263,h264，mpeg4

我建了一個 Freeswitch 核心研究 交流群， 45211986， 歡迎加入, 另外，提供基於SIP的通訊伺服器及用戶端解決方案, 承接 sip/ims 視頻用戶端開發，支援接入sip軟交換,ims核心網，支援 語音，視頻，即時通訊功能，視頻格式支援 h263,h264，mpeg4 軟編軟解，提供硬體編解碼介面對接，提供伺服器，有興趣請聯絡我。freeswtich支援 lua, perl, php等指令碼語言編寫dialplan, 類似asterisk

近期本人閑來沒事做了一個程式自動從一些BT網站上抓取資料並且自動發帖到我自己的論壇上，試用了幾個月效果比較好，現在公布原始碼供perl愛好者參考，我的qq是2637663歡迎廣大perl愛好者一起溝通交流。分幾個程式組成readcokie.pl 擷取要上傳主機的cookie一次擷取永久在主機儲存fatie.pl         抓取源主機資料並自動發帖到目標主機history.log   儲存抓取過的資料user.txt    

#!/usr/bin/perl open dl ,"list" || die "open error$!";%hash;while(<dl>){ #print $_; my ($a,$b,$c,$d) = split('_',$_); my ($d,$e) = split (//./,$c); $hash{$_}=$d;#做成一個Hash key是檔案名稱字 value是時間戳記。}foreach my $key ( sort

有一大堆日誌，需要按裝置統計一下各個裝置中日誌記錄中返回碼的個數。裝置名稱字可以根據檔案名稱字獲得， 日誌記錄是有一定格式的。第七個欄位是 返回碼。分別shell和perl實現了，Perl不熟，網上拼了個代碼。  use Text::ParseWords;use Data::Dumper;my $result;my %table;$argv_len = @ARGV;if($argv_len == 0){ print "it need filename/n";

一般的Web網站來說，都包括很多服務和應用，我們沒法即時知道系統運行是否正常，特別是晚上的時候，如果伺服器宕機或應用掛掉了，都會影響業務和使用者訪問，這時候一套對系統監控的錯設就必須得當。目前有很多軟體應的監控通知和警示服務，有收費的也有免費的，大家都可以選擇。　　我們就嘗試自己來實現一個服務監控和警示通知的程式，這樣能夠使用很小的代價，同樣讓我們的服務高可用性和高可靠性。　　【監控原理】　　遠程服務　　對於遠程機器來說，我們可以有一台監控伺服器，或者隨便找一台比較不容宕機的伺服器來作為監控伺服

()分組例：($fruit,$color)=/(.*)/sis/s(.*)/;每個加括弧的值都是列表的傳回值  =~這個運算子並不進行賦值，它只是取出右邊的運算子，並使它對左邊的變數進行操作$field =~ s/^/s+|/s+$//g;-去掉行頭行尾的空格 //i不區分大小寫next if ($Var=~ /^AbC/i); $1,$2,$3...當將括弧用於perl的Regex時，由每個帶括弧的運算式進行匹配的目標字串將記錄在$1,$2,$3...中如，/(/d{3})-(/d{4})-(

轉自： http://bbs.chinaunix.net/thread-1191868-1-1.html#讓你的perl代碼看起來更像perl代碼，而不是像C或者BASIC代碼，最好的辦法就是去瞭解perl的內建變數。perl可以通過這些內建變數可以控製程序運行時的諸多方面。本文中，我們一起領略一下眾多內建變數在檔案的輸入輸出控制上的出色表現。行計數我決定寫這篇文章的一個原因就是，當我發現很多人都不知道“$.”內建變數的存在，這的確讓我很吃驚。我依然能看到很多人是這樣寫代碼的：代碼    my

#!/usr/bin/perluse warnings;use strict;my$flag=0;my$a;while(<DATA>){    if(/^>/)    {        $flag = 1;        $a = 0;    }    if($flag )    {        print $_;        $a++;    }    if($a == 3)    {        $flag = 0;   

參考網頁：http://man.ddvip.com/web/perl/perl1.htm#==========================================================#變數前面加$;#8進位以0打頭;16進位以0x打頭;$value1 = 047;$value2 = 0xFF;#==========================================================#===============================

 #=====================================================陣列變數以字元"@"打頭@array = (1, 2, 3);@var = (11, 27.1 , "a string");#===================================================== #=====================================================數組間拷貝@result =