Perl

標籤：perl最近在實習，看著公司有些指令碼是perl寫，久聞perl處理文本還是很強大的，趁著周末掃了一般這本書~記錄下了~undef 預設未定義字元，perl裡面沒有NULL，defined($x)函數：如果參數為undef返回falseqw(cs phy geo) 類似於 （“cs”, "phy",

標籤：style   os   for   re   c   line       Perl語言編程不安全語法檢查可用下面兩個命令: #!/usr/bin/perl -w    或者: use warnings;    

以下是DNA序列，儲存在window下F：\perl\data.txt裡面：複製代碼 代碼如下:AAAAAAAAAAAAAAGGGGGGGTTTTCCCCCCCC CCCCCGTCGTAGTAAAGTATGCAGTAGCVG CCCCCCCCCCGGGGGGGGAAAAAAAAAAAAAAATTTTTTAT AAACG 下面是程式：複製代碼 代碼如下:#下面的程式是用來計算一段DNA序列中ATGC的數量的#首先定義四種堿基的數量為0$count_A=0;$count_T=0;$count_C=0

一、進程處理函數1、進程啟動函數函數名 eval 調用文法 eval(string) 解說 將string看作Perl語句執行。正確執行後，系統變數$@為空白串，如果有錯誤，$@中為錯誤資訊。 例子 $print = "print (\"hello,world\\n\");";eval ($print); 結果輸出 hello, world 函數名 system 調用文法 system(list) 解說

chomp是用來刪除分行符號. 複製代碼 代碼如下:#!/usr/bin/perl $c="abcde"; chomp($c); print "$c\n"; [root@ak]# perl a.pl abcde chop是用來刪除最後一個字元. 複製代碼 代碼如下:#!/usr/bin/perl $c="abcde"; chop($c); print "$c\n"; [root@ak]# perl a.pl abcdchomp與chop的用法

我的第一個用於生產環境的perl指令碼,雖然不是很優秀,但也邁出了紮實的一步 領導有任務,給一批IP列表,ping每一台機器,如果沒有響應就發郵件通知,通知的郵件需要分開,不能通知一個列表,得一封一封的通知.用到email::send模組,因為需要用到Gmail複製代碼 代碼如下:#!/usr/bin/perl use warnings; use strict; use Email::Send; use Email::Send::Gmail; use

1、time函數：返回從1970年1月1日起累計的秒數 使用：my $t=time(); 2、 localtime函數：擷取本地時區時間 使用：my $t=localtime(time()); 3、gmtime函數： 擷取格林威治時間 使用：my $t=gmtime(time()); 得到格式化時間(以localtime函數為例)： my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());

使用cpan安裝Net::SSH::Perl：cpan>install Net::SSH::Perl期間遇到了一些問題，記錄在此，以備後閱。因為cpan對其它軟體的依賴性，要求軟體版本的不能過低，所以先升級一下這兩個模組:複製代碼 代碼如下:cpan>upgrade Module::Buildcpan>upgrade ExtUtils::InstallMath::BigInt報錯:Math::BigInt: couldn't load specified math lib(s)

1、linux系統一般內建perl可運行程式在：/usr/bin/perl2、perl測試程式複製代碼 代碼如下:#!/usr/bin/perl -wuse warnings;print "Hello, Perl works! ";命名為test.pl在終端下，定位到該目錄，輸入perl test.pl，perl正常工作的話，會顯示輸出Hello, Perl works!3、讓apache2以cgi方式支援perla.

基本用法#初始化%h為空白數組 %h={};#用數組初始化%h為a=>1,b=>2 %h=('a',1,'b',2);#意義同上，只是另一種更形象化的寫法。%h=('a'=>1,'b'=>2);#如果key是字串，可以省略引號。下面這行和上面那行是一樣的%h=(a=>1,b=>2);#用{}來訪問print “$h{a}\n”;#列印 $h{b}='2b'; print “$h{b}\n”; #列印2b#刪除key用delete delete$h{b};

但是，linux系統的常用小工具awk天生對列操作友好，有時直接在perl中調用awk比寫相應的perl指令碼要方便有效多。比如用system插入awk語句：複製代碼 代碼如下:system(gawk '{print $1}' $filename);執行該l語句，你會發現這行會報錯，提示你使用了read-only 的變數$1。那麼，如何處理兩種生態系統下的衝突呢？有一個簡單的解決辦法： 複製代碼 代碼如下:my $i="$1";system(gawk '{print $i}'

Perl use和require用法對比對比（一）說明：這兩個函數都是一個意思,載入和引用Perl的模組,或者是子程式,區別在於Perl use是在當前預設的裡面去尋找,一旦模組不在指定的地區內的化,用Perl use是不可以引入的第一、Perl use引入的名稱不需要尾碼名,而require需要第二、Perl use語句是編譯時間引入的，require是運行時引入的第三，Perl use引入模組的同時，也引入了模組的子模組。而require則不能引入，要在重新聲明Perl use

先來看下our的用法。require 5.006當版本號碼小於 5.006 的時候，會返回失敗，從而導致模組載入失敗。所以它的作用就是保證模組調用環境的 Perl 版本。our 和 my 一樣，都是對變數的聲明，不過 our 聲明的是包全域變數，而 my 聲明的是詞法變數。不過，經過 our 聲明的變數，它會變得像一個詞法變數一樣，其實這也是 our 存在的目的：用來欺騙 strict pragma，使 strict 以為它是一個詞法變數，其實卻不是。有一個簡單的辦法可以理解

在networking方面，最基礎的是BSD socket編程，但往往perl入門時在這個方面，最頭疼的無疑是如何開始，如何Step by step。最好的藥方就是Example，一段完整的可以運行（working）的代碼，通過實踐來感受遠比看枯燥的manual來得深刻。

perl有最好的文本資料處理能力.這是大家都知道的.在perl本身有一個別的軟體沒有的小功能,就是Perl格式.它相當於簡單的命令列報表和圖表輸出.這個需要先聲明格式.建立格式的檔案控制代碼.然後由@,^,<,>,|這樣的字元構成所謂的”報表”來輸出圖表.這樣可以指定出行的外觀.後面接資料項目,最後用write來顯示格式化的內容.範例:輸出紀錄格式輸出象下邊一樣定義：format NAME =FORMLIST.第一部分,聲明.如上.如果省略 NAME，上面的代碼將定義格式輸出

1，定界符 =~ m/there/; =~ s/there/here/; 還有類型的定界符： =~ /there/ =~ m#there#; =~ s#there#here#; =~ m(there); =~ s(there)(here); =~ m{there}; =~ s{there}{here}; =~ m[there]; =~ s[there][here]; =~ m,there,; =~ s,there,here,; =~ m.there.; =~ s.there.here.; =~

1 line perl 今天來說說perl，只有一行的perl程式。 各種程式設計語言中perl是以變態的古靈精怪而聞名的，比如我，就經常寫出自己都看不懂的perl程式來。 比如這篇文檔中的程式，雖然短小，估計一個星期之後我看這就要頭暈了。但這絲毫不影響perl作為 一個功能強大的系統管理工具和系統控制語言的存在和推廣，而且靈活性恰恰是它最大的優勢，你可以 這樣寫，也可以那樣寫，“或者，絕招同途異路。” 1. hello world! ==============================

NULL值的判斷 $t{type1id} = $$pref{dbh}->selectrow_array("SELECT type1id FROM enq1 WHERE id = 3"); if ( $t{type1id} == 0 ) { print "Type1id is NULL\n"; } ==>不是數值項的話,這個語句有問題。數值項專用。 if ( length($t{type1id}) == 0 ) { print "Type1id is NULL\n"; } ==>

一、簡介 模式指在字串中尋找的特定序列的字元，由反斜線包含：/def/即模式def。其用法如結合函數split將字串用某模式分成多個單詞：@array = split(/ /, $line);二、匹配操作符 =~、!~ =~檢驗匹配是否成功：$result = $var =~ /abc/;若在該字串中找到了該模式，則返回非零值，即true，不匹配則返回0，即false。!~則相反。 這兩個操作符適於條件控制中，如： if ($question =~ /please/) {

1.perl中~~為智能匹配，它可以智能地根據符號兩側的運算元來確定操作。如要判斷某個元素是否存在於數組中，不使用智能匹配，程式像這樣：my $x=2;my @array=(1,2,3);my $flag=0;for (@array){if($x==$_){$flag=1;}}if($flag == 1){print "$x is in the array";}else{print "$x is not in the