Time of Update: 2017-01-18
perl用的最多的地方就算是檔案處理了,下面我就總結了一下perl檔案操作的一些東西,並且有具體的例子,通過下面的例子,加強我們對perl檔案操作的理解。刪除檔案使用unlinke函數,比如unlink $file, unlink $file1, $file2, $file3開啟檔案使用三參數的形式開啟檔案,這樣非常便於區分模式和檔案名稱,perl 5.6之後的版本都支援這種方式。複製代碼 代碼如下:#Open the 'txt' file for readingopen FH, '<',
Time of Update: 2017-01-18
一、首先說下perl如何擷取複製代碼 代碼如下:#!/usr/bin/perl -wuse POSIX qw(strftime);my $day = strftime("%Y%m%d", localtime(time - 24*3600));#擷取昨天的日期 二、在Linux中對man date -d 參數說的比擬籠統,以下樣本進一步解釋:# -d, --date=STRING display time described by STRING, not `now'[root@Gman root]
Time of Update: 2017-01-18
1.從基礎開始 不像java,Perl不需要“main”方法作為進入點。要運行一個簡單的Perl程式如下: 複製代碼 代碼如下:# comment starts with "#" # the name is hello.pl print "Hello Perl!";只需執行:perl hello.pl2. 日期類型 在Perl中的日期類型是非常簡單,它有3種類型:標量,數組和Hash。 標是一個單值,它基本上可以是任何其他比數組或雜湊。 數組是一個數組,可以包含不同類型的元素,如整數,字串。
Time of Update: 2017-01-18
感謝AKA及作者。 Perl 中的RegexRegex的三種形式 Regex中的常用模式 Regex的 8 大原則 Regex是 Perl 語言的一大特色,也是 Perl 程式中的一點痛點,不過如果大家能夠很好的掌握他,就可以輕易地用Regex來完成字串處理的任務,當然在 CGI 程式設計中就更能得心應手了。下面我們列出一些Regex書寫時的一些基本文法規則。9.1 Regex的三種形式首先我們應該知道 Perl
Time of Update: 2017-01-18
perl中our的用法require 5.006當版本號碼小於 5.006 的時候,會返回失敗,從而導致模組載入失敗。所以它的作用就是保證模組調用環境的 Perl 版本。our 和 my 一樣,都是對變數的聲明,不過 our 聲明的是包全域變數,而 my 聲明的是詞法變數。不過,經過 our 聲明的變數,它會變得像一個詞法變數一樣,其實這也是 our 存在的目的:用來欺騙 strict pragma,使 strict 以為它是一個詞法變數,其實卻不是。有一個簡單的辦法可以理解
Time of Update: 2017-01-18
由於業務需要,要查詢客戶的ip地址,將部分地區的客戶過濾出來,開始想到使用ip資料庫,發現讀取純真資料庫的難度對我來說有些大,而我目前的時間要求比較緊迫,通過在群裡詢問,感謝黑影子和扶凱的幫忙,推薦了IP::QQWry::Decoded這個模組,該模組是專門用來讀取qqwry純真資料庫的,用起來非常簡單。複製代碼 代碼如下:#!/usr/bin/perluse IP::QQWry::Decoded;use Encode;use utf8;binmode(STDIN,
Time of Update: 2017-01-18
原始代碼 代碼出處:http://www.perlmonks.org/index.pl?node_id=384100 #!/usr/bin/perl -w use strict; my$f= $[;my
Time of Update: 2017-01-18
方法一(不使用模組,by agonyr)複製代碼 代碼如下:#!/usr/bin/perl -wuse strict;my @seq = ( "A", "T", "C", "G" );my $length = 10000;undef my %hash;$hash{"A"} = int( $length * 0.3 );$hash{"C"} = int( $length * 0.3 );$hash{"G"} = int( $length * 0.2 );$hash{"T"} = int(
Time of Update: 2017-01-18
下面是一個例子:複製代碼 代碼如下: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
Time of Update: 2017-01-18
之前總不重視自己的部落格,上回一丟才心疼,現在重視起來,決定定期備份sql。寫個小指令碼如下:複製代碼 代碼如下:#!/usr/bin/perluse warnings;use strict;use MySQL::Backup;use Mail::Sender;open my $tmp_sql, '>', "backup.sql";my $mb = new MySQL::Backup('dbname', 'localhost', 'dbuser', 'dbpasswd',
Time of Update: 2017-01-18
Perl 社區並不是所有的東西都發布在 CPAN 上。甚至專門有一個 Module::ThirdParty 模組記錄這些非 CPAN 的 perl 項目列表。其中最有名的應該就屬寫部落格的 Movable Type 和做監控的 SmokePing 了。但是如果個人圖方便又想把 smokeping 打包方便部署使用的時候,就會發現一點小問題:打包成rpm,很多 perl 的相依模組不一定在系統 repo 裡存在;打包成 perl 的模組,smokeping 最常用的幾個 probe 比如
Time of Update: 2017-01-18
一開始打算用perldoc看Apache2::Request模組,結果在運行時出現如下錯誤:複製代碼 代碼如下:Error in tempfile() using /tmp/XXXXXXXXXX:parent directory (./) isnot writable at /usr/lib/perl5/5.8.8/Pod/Perldoc.pm line
Time of Update: 2017-01-18
一、進程處理函數1、進程啟動函數函數名 eval 調用文法 eval(string) 解說 將string看作Perl語句執行。正確執行後,系統變數$@為空白串,如果有錯誤,$@中為錯誤資訊。 例子 $print = "print (\"hello,world\\n\");";eval ($print); 結果輸出 hello, world 函數名 system 調用文法 system(list) 解說
Time of Update: 2017-01-18
文法 建立'引用'僅有兩種方法,使用它也是兩種。 建立引用 建立規則 1 如果你在一個變數前加一個'/'號,你就得到了這個變數的'引用'。 $aref = /@array; # $aref 儲存著指向@array的'引用' $href = /%hash; &
Time of Update: 2017-01-18
本文和大家重點討論一下Perl雜湊表的概念,Perl語言和其他程式設計語言各有各的特點,這裡和大家分享一下Perl雜湊表的概念,其實Perl雜湊表是一種結構。Perl雜湊表Perl雜湊表是一種結構。key/value.訪問Perl雜湊表元素$Perl雜湊表{$some_key}當給Perl雜湊表選擇名字時,最好這樣思考:Perl雜湊表元素的名字和key之間可以用for來串連。如thefamily_nameforfredisflintstone.要引用整個Perl雜湊表,使用百分比符號(%)作為首
Time of Update: 2017-01-18
複製代碼 代碼如下:#!/bin/perluse strict; use warnings; my %movies; my $film; my %reverse_result; my $director; my @data; %movies = ( 'The Shining' =>
Time of Update: 2017-01-18
File::Basename 模組用來析取檔案路徑中的目錄,檔案名稱以及尾碼。 本文為大家介紹的這個例子,實現了擷取/home/topgkw中所有檔案尾碼,其中目錄返回空值。 此模組的詳細用法,可以通過perldoc File::Basename命令查看,建議大家經常使用perldoc參閱相關模組的詳細介紹,比網上搜尋來的資料強多了。 例子: 注意: 1)、如果使用了 print start_html,則會輸出類似如下的內容: <!DOCTYPE html PUBLIC "-//W3C//
Time of Update: 2017-01-18
即使開啟了strict和warnings選項也無妨,下面代碼並無錯誤和警告。複製代碼 代碼如下:#!/usr/bin/perluse strict;use warnings;sub test { $a = 1; $b = 2; print $a, "\n"; print $b,
Time of Update: 2017-01-18
本應用程式設計的幾個基本理念是:工具箱再利用:儘可能利用已有的工具;簡化運行步驟;不引入過多的商務邏輯,滿足的需求越簡單越好。所以,我們定義了本應用程式依賴於以下幾個工具的運行:ActivePerl-5.8.4.810-MSWin32-x86Upload.plUpload.config我們將主要的執行邏輯都放在Perl源檔案Upload.pl中了,設定檔為Upload.config。這個perl檔案將執行的任務是,
Time of Update: 2017-01-18
perl + fastcgi + nginx搭建nginx + fastcgi是php下最流行的一套環境了,那perl會不會也有fastcgi呢,當然有,今天來搭建下nginx下perl的fastcgi.效能方面也不亞於php,但是現在web程式php的流行程度perl無法比擬了,效能再好也枉然,但是部分小功能可以考慮使用perl的fastcgi來搞定.進入正題.1.