Perl

注意：串連時候使用SID指定的database，所以沒有在串連中指定database.#!/usr/bin/perluse strict;use warnings;use DBI;my $db_name="geneva_admin";my $db_passwd="geneva_admin";my $dbh=DBI->connect("dbi:Oracle:","$db_name","$db_passwd") or die "Can't connect to oracle database:

ssh limit perl指令碼主要作用：1.限制一個ssh使用者的最大登入數為n，n可自訂。2.支援白名單，如root、test登入不受限制。如果一個ssh使用者的最大登入數超過指定數字，則後登入的會把先前登入的踢掉，以此達到控制登入數的目的。該指令碼需要主機支援perl，如果沒有，可yum安裝。指令碼源碼：#!/usr/bin/perl -wuse strict;#white listmy @ALLOW_USERS = qw{ test root lulu1};#the

指令碼功能：通過ICMP Ping或TCP/SYN探測指定的網域名稱，探測前檢測網域名稱是否有效。file: check.host.pl#!/usr/bin/perluse strict;use Net::Ping;use Net::DNS;use Time::HiRes qw();$| = 1;my $DEFAULT_TIMEOUT = 2;my $PING_TIMEOUT = 2;my $DNS_TIMEOUT = 3;### 查詢網域名稱是否有效sub queryDomain { my

原始代碼 代碼出處：http://www.perlmonks.org/index.pl?node_id=384100 #!/usr/bin/perl -w    use strict;         my$f=           $[;my   

下面是一個例子：複製代碼 代碼如下:use strict;#這裡是兩個數組my @i =('1','2','3');my @j =('a','b','c');#在進行處理之前，我們把他們先列印出來，看一看他們的樣子print "In main program before calling subroutine:i="."@i\n";print "In main program before calling

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

Perl 社區並不是所有的東西都發布在 CPAN 上。甚至專門有一個 Module::ThirdParty 模組記錄這些非 CPAN 的 perl 項目列表。其中最有名的應該就屬寫部落格的 Movable Type 和做監控的 SmokePing 了。但是如果個人圖方便又想把 smokeping 打包方便部署使用的時候，就會發現一點小問題：打包成rpm，很多 perl 的相依模組不一定在系統 repo 裡存在；打包成 perl 的模組，smokeping 最常用的幾個 probe 比如

複製代碼 代碼如下:#!/bin/perluse strict;  use warnings;  my %movies;  my $film;  my %reverse_result;  my $director;  my @data;  %movies =  (    'The Shining'       =>

即使開啟了strict和warnings選項也無妨，下面代碼並無錯誤和警告。複製代碼 代碼如下:#!/usr/bin/perluse strict;use warnings;sub test {    $a = 1;    $b = 2;    print $a, "\n";    print $b,

1、去除一個數組中的重複元素：使用grep函數程式碼片段： 代碼:複製代碼 代碼如下:my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 ); my %count; my @uniq_times = grep { ++$count{ $_ } < 2; } @array;使用轉換hash程式碼片段： 代碼:複製代碼 代碼如下:my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );

cpanm是安裝Perl模組的最方便的方法。自動下載安裝依賴包。使用CPAN shell或下載源碼包安裝模組，遇到大量依賴關係，非常頭痛。下面就是一例：安裝MongoDB模組複製代碼 代碼如下:# perl Makefile.PL Warning: prerequisite Class::Method::Modifiers 0 not found.Warning: prerequisite Data::Types 0 not found.Warning: prerequisite

程式調用遠端服務，為了確保可用性最好在使用前進行健康檢測，將異常的服務排除。複製代碼 代碼如下:#!/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 + fastcgi + nginx搭建nginx + fastcgi是php下最流行的一套環境了，那perl會不會也有fastcgi呢，當然有，今天來搭建下nginx下perl的fastcgi.效能方面也不亞於php，但是現在web程式php的流行程度perl無法比擬了，效能再好也枉然，但是部分小功能可以考慮使用perl的fastcgi來搞定.進入正題.1.

學習記錄一下複製代碼 代碼如下:#!/usr/bin/perl -w use strict; print '@a @b @c @d 的值都為1 2 3',"\n"; my @a = (1..3); pop(@a); print "\@a的值為@a,pop拿掉數組最右邊的值\n"; my @b = (1..3); push(@b,'4'); print "\@b的值為@b,push添加一個值到數組的最右邊。\n"; my @c = (1..3); shift@c; print "\@c的值為@c,

pop 操作將數組的最後一個元素取出並返回： @array=5..9; $fred=pop(@array); #$fred 得到 9，@array 現在為（5，6，7，8） $barney=pop@array; #$barneygets8,@array 現在為（5,6,7） pop@array; #@array 現在為（5，6）(7 被丟棄了) 最後一個例子中，pop 使用在"inavoidcontext"，也就是說沒有存放其傳回值的地方。這樣使用 pop 是合法的。 如果數組為空白，那

按照要求進行的排序：複製代碼 代碼如下:#!/bin/perl@number=qw/5 10 15 3 2 4 8 6 /;  my @descending =sort {$a<=>$b} @number;#這裡$a=5,$b=10,因為$a在前，perl得到的結果是小數在前，也就是升序排列  print "@descending\n"; 結果如下：F:\>perl\a.pl  2 3 4 5 6 8 10 15  F:\>

1.

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

一 CGI.pm中的方法（routines）調用1. CGI.pm實現了兩種使用方法，分別是物件導向的方式和傳統的perlmodule方法的方式。物件導向的方式：複製代碼 代碼如下:#!/usr/local/bin/perl -wuse CGI;   # load CGI routines$q = CGI->new;             

預設的Perl調試器就是perl解譯器本身，另外還有圖形介面的調試器。由於在開發程式時一般都使用telnet訪問伺服器，因此本文主要為大家介紹下預設的命令列調試器的用法。用-d命令列選項啟動Perl解譯器，例如：perl-dtest.pl即進入Perl調試器的互動介面。調試命令列表：（所有命令都在調試提示符下頂格輸入，命令大小寫有關）h：顯示調試器的協助資訊。|h：以分頁形式顯示調試器的協助資訊。hh：顯示一個壓縮的協助資訊。h調試命令：顯示某個調試命令的協助。Perl調試器用法中p運算式：顯示