Perl :: JohnChen

perl install module

2014-03-05 11:41

rpm -Uvh https://download.fedoraproject.org/pub/epel/6/i386/epel-release-6-7.noarch.rpm yum install gcc perl-CPAN perl-Archive-Zip perl-Class-MethodMaker perl-SOAP-Lite perl-XML-SAX yum install perl-XML-NamespaceSupport perl-XML-LibXML perl-Data-Dump uuid-perl libuuid-devel uuid-devel wget...

利用 par 將 perl 程式打包加密

2014-01-09 14:09

我的需求是加密 perl 程式內容，查尋到 PAR(Perl Archive Toolkit) 除了可以加密程式內容，並可以將 perl 需要用到的模組一起打包進來，這可以省下其它主機系統也要用同一支程式時要考慮到是否缺少這個模組或那個模組的麻煩事。作法: 1。先安裝 PAR::Packer 2。編譯 pp -o 編譯後的名稱編譯前的名稱 pp -o cross cross.pl 到這階段可直接執行 ...

array 中的 array &hash

2013-09-11 18:35

[root@occas01 ~]# cat test.pl my @d1 = (24.2, 26.3, 23.4); my @d2 = (23.5, 27.5, 22.6); my @d3 = (25.2, 28.7, 24.8); my @daily = (\@d1, \@d2, \@d3); print $daily[2][1]; [root@occas01 ~]# perl test.pl 28.7 my @array = ({3, 5, 7, 9}, [1, 4, 8,...

read file

2013-08-26 18:10

#!/usr/local/bin/perl -w use strict; open LOG, "/var/log/messages"; # 打開這個日誌檔 while () { # 利用鑽石符號讀入資料 print if (/sudo/); # 符合比對的資料就列印出來 }

open file

2013-08-26 18:07

open File, "foo.txt" or die "開啟檔案失敗: $!"; 在這裡，有幾個地方需要解釋的，首先自然就是die的用法。我們先嘗試開啟foo.txt這個檔案，接著用了一個邏輯運算元'or'，後面接著使用die 這個敘述。根據我們對or運算符的了解，程式會先嘗試開啟檔案"foo.txt"，如果成功開啟，就會傳回1，因此or後面的敘述就會被省略。相反的，如...

|| 小訣竅

2013-08-26 16:07

小訣竅接下來我們來點飯後甜點，也就是 || 算符。其實不只 || 算符，其他的邏輯算符也可以拿來作流程控制的小小螺絲釘。不過首先我自己偏愛使用 || (也是使用機會比較高的)，而且我們只打算來個甜點，這時候顯然不適合大餐了。我們有時候會希望某些變數可以有預設值，例如副常式的參數，或是希望使用者輸入的變數等等。所以你當然可以這樣寫： sub input { my $key = shift; $key = "預設值" unless ($key); print...

三元運算符

2013-08-26 15:22

三元運算符另外也有一種非常類似 if {...} else {...} 的運算符，我們稱為三元運算符。他的寫法也就是像這樣： my ($a, $b) = (42, 22); my $max = ($a > $b) ? $a : $b; print "$max\n"; 首先我們把串列 (42, 22) 指定給變數 $a 跟 $b，接著我們要找到兩個值中較大的一個，於是利用判斷式 ($a > $b) 來檢查兩個數字之間的關係。如果 $a > $b 成立，那麼 $max 就是 $a，否則就是...

switch 語法

2013-08-26 15:13

my $day = ; chomp($day); if ($day eq 'mon') { ... } elsif ($day eq 'tue') { ... } elsif ($day eq 'wed') { ... } elsif ($day eq 'thu') { ... } elsif ($day eq 'fri') { ... } 其實這樣的程式碼也沒甚麼不妥，可是你也許會覺得這樣的寫法有點麻煩。當然，對這些人來說，如果可以把上面這段程式碼利用Switch寫成這樣，那好像看起來更讓人感覺神清氣爽： my $day =...

正規表示式9

2013-08-26 14:05

$string = "門是開著的，燈是關著的" 看起來真是平淡無奇的一個句子。可是如果我們希望讓門關起來，並且打開燈，我們應該怎麼作呢？根據我們剛剛學到的替換，這件事情好像很簡單，我們只要把門跟燈互相對調就好，可是應該怎麼作呢？如果我們這麼寫： $string =~ s/門/燈/; 那整個字串就變成了「燈是開著的，燈是關著的」，那接下來我們要怎麼讓原來「燈」的位置變成「門」呢？所以這種作法似乎行不通，不過既然要交換這兩個字，我們是不是有容易的方法呢？利用暫存變數似乎是個可行的方法，就像這樣： my $string = "門是開著的，燈是關著的"; print...

正規表示式8

2013-08-26 14:03

my $content = "水果對我們很有幫助，所以應該多吃水果"; print $content if ($content =~ s/水果/零食/g); # 把水果全部換成零食吧就像我們在比對時用的修飾字元，我們在這裡也可以把那些修飾字元再拿出來使用。就像這樣： my $content = "I love Perl. I am a perl monger"; print $content if ($content =~...

perl