Time of Update: 2017-01-13
在運行Apache的環境安裝mod_perl,執行Perl指令碼。安裝mod_perl 代碼如下複製代碼 # yum -y install mod_perl使用PerlRun模式讓Perl編譯器常駐記憶體 代碼如下複製代碼 # vi /etc/httpd/conf.d/perl.confAlias /perl /var/www<Directory
Time of Update: 2017-01-13
不只是vb.net,C#等微軟的開發軟體可以調用.net framework,據我所知至少有28中我知道的開發語言如何調用.net framework.下面我就給出一段案例,說明使用perl.net來訪問資料庫<%@ Page Language="Perl" %><script runat="server">use namespace "System::Data";use namespace "System::Data::SqlClient";=for
Time of Update: 2017-01-13
Hello World一個簡單的hello world例子: 代碼如下複製代碼 #!/usr/bin/env perluse strict;use warnings;use CGI::Fast;while(my $q = new CGI::Fast){ print $q->header("text/plain"); print "Hello World";}
Time of Update: 2017-01-18
在Perl中有一些專門用於處理列表資料的模組,比如說List::Util模組,該模組包含在標準庫中,能提供各種高效的常見列表處理工具。因其用C語言來實現,速度一般都挺快!【例01】掃描合格某個列表,並取出第一個合格常規做法:複製代碼 代碼如下:use 5.010; my @names = qw(Wendy Jerry Betty Wendy Alice); foreach (@names) {
Time of Update: 2017-01-18
使用signal,能讓你的程式功能更豐富。要在Linux下列出所有的signal, 利用kill -l即可。 下面是我機器上的輸出(後面還有到64的沒列出來):複製代碼 代碼如下:xuyang@xuyang-desktop:/$ kill -l1) SIGHUP 2) SIGINT 3) SIGQUIT 4) SIGILL 5) SIGTRAP6) SIGABRT 7) SIGBUS 8 ) SIGFPE 9) SIGKILL 10) SIGUSR111) SIGSEGV 12) SIGUSR2
Time of Update: 2017-01-18
一、列表列表是包含在括弧裡的一序列的值,可以為任何數值,也可為空白,如:(1, 5.3 , "hello" , 2),空列表:()。註:只含有一個數值的列表(如:(43.2) )與該數值本身(即:43.2 )是不同的,但它們可以互相轉化或賦值。列表例:複製代碼 代碼如下: (17, $var, "a string") (17, 26 << 2) (17, $var1 +
Time of Update: 2017-01-18
chomp與chop都是用於去除字串變數尾部的字元,但它們有各自的區別。chomp函數對變數起作用,而此變數含有字串。如果字串結尾有分行符號,chomp可以去掉它。這基本上就是它能完成的所有功能,如下例:複製代碼 代碼如下:$text="alineoftext\n "; #也可以由<STDIN>輸入chomp($text);
Time of Update: 2017-01-18
一、開啟、關閉檔案 文法為open (filevar, filename),其中filevar為檔案控制代碼,或者說是程式中用來代表某檔案的代號,filename為檔案名稱,其路徑可為相對路徑,亦可為絕對路徑。 open(FILE1,"file1"); open(FILE1,
Time of Update: 2017-01-16
標籤:索引 讀取 cal 格式 com scalar ... scala 數組元素使用 數組一個是儲存標量值的無序列表變數。陣列變數以 @ 開頭。訪問數組元素使用 $ + 變數名稱 +
Time of Update: 2015-04-29
標籤:效能比較 內建命令 Python文法簡單,而且通過縮排的方式來表現階層,代碼非常簡明易懂,對初學者來說,比較容易上手。Perl的模式比對非常強大,同時匹配的符號有很多種,難以閱讀和維護。在文本處理方面,python通過載入re模組來實現模式比對的尋找和替換。而Perl內建就有模式比對功能。note:內建命令和外部命令的區別。通過代碼來直接做比較。python版:#!/usr/bin/pythonimport
Time of Update: 2016-12-09
標籤:excel 中文亂碼 perl 使用CPAN中的Spreadsheet::ParseExcel模組讀取Excel檔案中的內容,當遇到中文亂碼問題時,使用Spreadsheet::ParseExcel::FmtUnicode模組重新編碼,當將中文賦值給變數時,用Encode模組經GB2312解碼即可。use strict; use Spreadshe
Time of Update: 2016-12-06
標籤:div .com 理解 use ror bsp back imp ash 一直學的perl, 有時perl不理解時就用python寫一下,這樣或許perl就理解了這裡參照python寫法,
Time of Update: 2015-11-14
標籤:What?Perl,一種功能豐富的電腦程式語言,運行在超過100種電腦平台上,適用廣泛,從大型主機到可攜式裝置,從快速原型建立到大規模可擴充開發。Why?Perl追求簡潔快速地解決問題,可很方便地進行文本處理、工具整合等操作,因此被廣泛應用在自然語言處理領域,語音辨識的很多開源工具,如HTK、Kaldi等都使用了Perl指令碼。How?參考官網的例子入門,實際應用中遇到問題再通過查Perldoc或搜尋引擎解決,也可模仿現有指令碼。?本系列主要作為線上筆記用途。1.Perl基礎系列之WHAT
Time of Update: 2015-07-25
標籤:檔案測試主要用於查看如檔案是否存在、檔案大小、檔案更新時間等資訊。檔案測試操作符-e 測試檔案是否存在;die "Oops!A file called ‘$filename‘ already exists.\n" if -e $filename;-M 測試檔案是否保持持續的更新,比如測試某個程式的記錄檔是否保持每一周或兩周更新。此處測試的是檔案控制代碼。warn "Config file is looking pretty old!\n" if -M CONFIG>28;
Time of Update: 2015-07-23
標籤:usr/bin/perl Makefile.PL PREFIX=‘/usr/local/git‘ INSTALL_BASE=‘‘ --localedir=‘/usr/local/git/share/locale‘Can‘t locate ExtUtils/MakeMaker.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl
Time of Update: 2015-07-23
標籤:Regex簡單模式:匹配$_中的內容,只需要將模式寫在一對斜線(/)中就可以了。如:#!/usr/bin/env perluse 5.010;$_="yabba dabba doo";if(/abba/){ say "it matched!";}關於元字元和shell中的差不多:.==>任一字元;*==>重複0次及其0次以上;+==>重複一次及一次以上;?==>重複0次或一次;模式分組在Regex中,用圓
Time of Update: 2015-06-13
標籤:由於工作中有個項目需要爬取第三方網站的內容,所以在Linux下使用Perl寫了個簡單的爬蟲。相關工具1. HttpWatch/瀏覽器開發人員工具一般情況下這個工具是用不到的,但是如果你發現要爬取的內容在頁面的HTML源碼裡找不到,如有的頁面是通過AJAX非同步請求資料的,這時候就需要HttpWatch之類的工具來找到實際的HTTP請求的URL了,當然現在很多瀏覽器都有開發人員工具(如Chrome, Firefox等),這樣可以更方便查看所有請求的URL了。2.
Time of Update: 2015-04-24
標籤:perlpsl:perlstandard library,主要研究perl的內建函數perl的模組有內建模組和第三方模組。perldoc perlocal 查看內建模組perldoc module-name 查看模組協助資訊perldoc -m module-name
Time of Update: 2015-01-16
標籤:#!/usr/bin/perl -wuse strict;use File::Spec;local $\ ="\n";#當前模組的每行輸出加入分行符號 my %options;#目錄路徑$options{single_case} = ‘/home/jiangyu/src/pl/Example‘; my @cases; if (-d $options{single_case}) {#判斷目錄是否存在 my @files; my $dh;
Time of Update: 2015-01-16
標籤:perl 字元加法 爆破 #!/usr/bin/perl -wsub add_32to126{ my $word = $_[0]; $last_char_num = ord(substr($word,-1,1))+1; if($last_char_num == 127){ chop($word);