Perl

perl 1;　　上面的過濾規則表示刪除帶上面所列出的副檔名的郵件且通知寄件者郵件被刪除，接收其它所有的郵件。我也更改/usr/local/bin/mimedefang.pl檔案以致不要保留郵件附件在/var/spool/MIMEDefang目錄中，該檔案有詳細的自我解釋，請編輯該檔案去掉保留一份被刪除郵件附件在硬碟上的部分。　　f.

適用於 Mac OS X 的 XAMPP 是 Mac OS X 上最簡單，最實用，也最完整的網路伺服器解決方案。該發行版包括整合了最新的 MySQL、PHP（4+5），和 Perl 的 Apache 2 伺服器。它以 Mac OS X 安裝包的方式發布，包含所有必須的檔案，無需下載其它東西。如果您是一位有經驗的網路開發人員，或者是需要運行伺服器、建立的動態網頁或使用資料庫的 Mac 愛好者，這就是您要找的東西！該版本需要 Mac OS X 10.4 (Intel&PPC)

使用了兩個不同的函數，在執行效率上checkmd5sum.pl 比checkmd5sum_find.pl要更快。   1.checkmd5sum.pl #!/usr/bin/perl # # File: checkmd5sum.pl # Author: amxku.net # Date: 2008-12- ...兩個使用了不同的函數，在執行效率上checkmd5sum.pl 比checkmd5sum_find.pl要更快。1.checkmd5sum.pl

程式檔案：test.pl複製代碼 代碼如下:#!/bin/perl# filename：test.pluse strict;  use warnings;  #隨便找一個比較好識別的序列  my $DNA="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n";  my $i;  my $mutant;  srand(time|$$); 

在perl中srand（）提供供rand()使用的隨機數種子，rand（）產生隨機數產生器。如果在第一次調用rand()之前沒有調用srand()，那麼系統會為你自動調用srand()。使用同種子相同的數調用srand()會導致相同的隨機數序列被產生。舉例如下：複製代碼 代碼如下:srand(26);  $number1=rand(100);  print "$number1\n";  srand(26); 

一、算術操作符 ：+(加)、-(減)、*(乘)、/(除)、**(乘冪)、%(取餘)、-(單目負)  (1)乘冪的基數不能為負，如 (-5) ** 2.5 # error；  (2)乘冪結果不能超出電腦表示的限制，如10 ** 999999 # error  (3)取餘的運算元如不是整數，四捨五入成整數後運算；運算子右側不能為零  (4)單目負可用於變數： - $y ; # 等效於 $y * -1二、整數比較操作符

Perl的文法相對來說有點晦澀，主要是一些內建變數和函數處理得相當精巧，而過於精緻的東西理解起來就有點費力。相對於Shell，Perl在很多方面更加強大高效，比如Hash(關聯陣列)就非常好用，如果要將不同主機發出來的警示資訊發送到不同的責任人，在shell中要做非常多的if或者case判斷，修改起來也非常費力，而使用關聯陣列，則可以輕鬆實現該功能，代碼簡潔，配置方便，一個字，爽。

複製代碼 代碼如下:#!/bin/perluse strict;  use warnings;  #定義變數  my $count;  my $input;  my $number;  my $sentence;  my $story;  #定義四個數組  #定義了人物數組  my @nouns=  (     'Dad', 

主要是利用尋找/proc目錄下的相關檔案進行尋找.#!/usr/bin/perl use strict;use warnings;#usage: process_grep.pl ProcessNameexit( main(@ARGV) ); sub main { my $Phash; my $ProcessName = shift; my $PROC_DIR = "/proc"; chdir $PROC_DIR; my @pids = glob "[0-9]*"; for my

perl用的最多的地方就算是檔案處理了，下面我就總結了一下perl檔案操作的一些東西，並且有具體的例子，通過下面的例子，加強我們對perl檔案操作的理解。刪除檔案使用unlinke函數，比如unlink $file， unlink $file1, $file2, $file3開啟檔案使用三參數的形式開啟檔案，這樣非常便於區分模式和檔案名稱，perl 5.6之後的版本都支援這種方式。複製代碼 代碼如下:#Open the 'txt' file for readingopen FH, '<',

複製代碼 代碼如下:my $ip = "192.168.0.1|192.168.0.2|192.168.0.1";if ( $ip =~ /    ^    (?:        ((?:\d{1,3}\.){3}\d{1,3})        (?=    

程式調用遠端服務，為了確保可用性最好在使用前進行健康檢測，將異常的服務排除。複製代碼 代碼如下:#!/usr/bin/perl#use strict;use IO::Socket;my @servers;$servers[0]=['180.153.100.93',2222];$servers[1]=['180.153.100.93',22];$servers[2]=['180.153.100.93',80];my $i=0;my $interval=3;my

有時候我們在部署指令碼的時候，我們想知道，我們的程式執行的怎麼樣了，想得到執行的結果，這樣我們也能放心很多是吧，那麼在程式執行成功或失敗的時候能夠給我沒發個郵件很是很不錯的。其實利用perl發郵件的方法有很多種，包括你在cpan上搜尋mail關鍵字是一大堆，經過實踐，MIME：：Lite用來發郵件還是很合適的，最不可思議的是它可以幫你輕鬆的發送帶有附件的郵件哦。下面我們就以MIME：：Lite發郵件為例：在cpan上面有關於它的詳細的用法（http://search.cpan.org/~rjbs

這裡首先介紹下nali的這個開源小程式，項目地址：http://code.google.com/p/qqwry/以下介紹來自項目的負責人的網站的陳述：複製代碼 代碼如下:下載nali-0.2.tar.gz – 2011-09-11發布(下載連結一，下載連結二)nali-0.1.tar.gz – 2009-08-16發布說明nali，名字取自中文“哪裡”的拼音。nali包含一組命令列程式，其主要功能就是把一些網路工具的輸出的IP字串，附加上地理位置資訊(使用 純真資料庫QQWry.Dat)。例如2

Perl的特殊符號@       數組                          $x{}   x名字前面是貨幣符號($),後面是花括弧({}),則其為

方法一、手工安裝的步驟　 從CPAN下載了DBI模組1.13版的壓縮檔DBI-1.13.tar.gz，假設放在/usr/local/src/下。　 cd　/usr/local/src　 解壓縮這個檔案：　 tar　xvzf　DBI-1.13.tar.gz　 這時會建立一個DBI-1.13的目錄。　 cd　DBI-1.13　產生makefile：　 perl　Makefile.PL　 建立模組　 make　 測試模組　 make　test　

如何用Perl指令碼作業系統環境變數呢？想必很多朋友馬上就會想到Perl中提供的$ENV這個特殊的雜湊變數，對，在$ENV中完全可以擷取到一些系統變數。怎麼擷取呢？比如想要知道Path這個系統內容變數的內容，我們可以通過$ENV{'Path'}

用Open() 函數開啟檔案開啟檔案的常用方法是:複製代碼 代碼如下:open(FH, "< $filename")or die "Couldn't open $filename for reading: $!";open()

有時遇到各行或各列的長度不一致時就麻煩了，雖然可以在R裡面把檔案按最長的行(列)填充，但是不便，所以想起用perl去實現一個。由逗號分隔的不定長度的文字檔, 現要實現行列轉置, 即由複製代碼 代碼如下:1,2,3,4,5,6,7,8,9,10,11,12,13,轉換為：1,7,10,2,8,11,3,9,12,4,  ,13,5,  ,    ,6,  ,    ,以下是完整的代碼，供大家參考。複製代碼

標籤：簡潔   規範   family   而且   等等   程式員   mil   運算式   mic    最近我都在一些論壇和交流社區學習，發現很多人對perl有很大的偏見。