【正文】 素 ? foreach (a){}缺省循環(huán)變量為 $_ 循環(huán)控制 ? last：退出循環(huán) ? next：進入下一循環(huán) ? redo：重新執(zhí)行本次循環(huán) ? goto：跳轉(zhuǎn) ? continue{statement} 單行條件語句與循環(huán)語句 ? print $a if $a==0。一般未賦值就使用時 $result = $undefined + 2。 ($a1,undef,undef,$d1)=split(/:/, $s)。 ?this is $var? 變量初值 ? 未創(chuàng)建時狀態(tài)為 undef，到達文件尾也為 undef ? 說明變量為未定義： undef $a。 print “this is $var”。 ? 第一行： !/usr/bin/perl 由什么程序執(zhí)行以下的內(nèi)容 ? 注釋：＃ ? 輸入： ? 輸出： print ? $a：變量，無需指定數(shù)據(jù)類型 perl的四種變量 ? Scalar： 標量 ，以 $開始，后面以字母或 _開頭，再后面可以是字母或數(shù)字 ? array：數(shù)組，列表，以 ＠ 開頭 ? Hash： 哈希，散列，以 %開頭 ? 文件 ： 大寫 字母 ? 區(qū)分大小寫， $Var, $VAR, $var ? 內(nèi)置變量 $/， $等 字符串變量 ? 由雙引號或單引號標識的一組字符組成。 $a=。PERL在生物信息學中的應用 主講：吳茂英 生物信息學與生物統(tǒng)計學系 上海交通大學 主要 內(nèi)容 ? PERL簡介 ? PERL腳本的編寫 ? PERL變量 ? Perl語法 ? PERL與正則表達式 ? PERL示例 PERL釋義 Practical Extraction and Report Language 實用摘錄和報告語言，但它其實不是縮寫 Larry Wall， Perl的歷史 Perl的環(huán)境準備 ? Unix：大多數(shù)內(nèi)置 ? 一些軟件也內(nèi)置 perl，比如apache/oracle ? Windows： Perl的工具 編輯工具： notepad， vi IDE： Komodo， Perl Dev Kit CGI： Top perl studio， Perl builder,perl edit， perlwiz， Mod_perl Perl的功能 ? 腳本語言，解釋執(zhí)行 ， 無需編譯 ? 具有編譯語言如 c、 Java的功能，又有 shell腳本的方便 ? 無數(shù)據(jù)類型區(qū)分，適于不太復雜的程序 ? 適于不要求速度，不在乎內(nèi)存 CPU等系統(tǒng)資源的任務 ? 強大的字符串處理功能 ? 靈活或復雜的正則表達式 ? 大多數(shù)平臺支持，除了專用模塊，可在不同平臺運行 Perl的應用 ? Web編程： CGI， XML處理 ? 系統(tǒng)管理 ? 網(wǎng)絡編程（安全腳本） . ? 數(shù)據(jù)庫管理 ? 圖像處理 ? 其他眾多的領域。 一個示例 !/usr/bin/perl Print “This is my first perl program\n”。 Print $a。 ? 最少 0個字符 （ “”為空串 ） ，最多可以占滿內(nèi)存，末尾不含 null(‘\0’) ? “$,string” = $str + “ing” != $string ? 記住一些常用的轉(zhuǎn)義字符 ? print “the \$var is $var.” ? 注意單引號的用法：不替換、不轉(zhuǎn)義 $var=“str”。 ”this is str” print ?this is $var?。 ? 用在條件判斷中： if(undef $a) ? 代替不關(guān)心的變量： $s=“ a:b:c:d。 ? 如果有 undef變量又不知在哪，可加 w參數(shù)進行提示 !/usr/bin/perl w ? 創(chuàng)建后狀態(tài)為 defined 一般用在條件判斷中 if(defined $a) ? 整數(shù)初值為 0，字符串初值為空串””。 相關(guān)函數(shù) ? length()：字符串長度 ? uc, lc, ucfirst, lcfirst：改變大小寫函數(shù) ? substr, index, pos：字符串函數(shù) ? sin等三角函數(shù) ? rand(), srand()：隨機發(fā)生函數(shù) $lastchar = chop($str) 截去最后一個字符 $result = chomp($str) 截去末尾的行分隔符（通常為 ”\n”），行分隔符由 $/定義 控制結(jié)構(gòu) ? if(condition1){} elsif(condition2){}else{} ? unless(){} ? until(){} ? do{} until() ? while(){} ? do {} while () ? for(。 ? print $a unless($a==0)。 ? print $a until ($a==0) ? 用 ||， amp。的條件語句： $a==0amp。print $a。 ? die函數(shù)：在控制臺標準錯誤輸出信息后退出程序。 ? $!：內(nèi)部變量 ， 包含錯誤代碼。 列表 ——數(shù)組的形式 ? 形式 ： (1,”a”, $a, $x+1)，其元素可以是數(shù)字、字符串、變量、表達式 ? 空列表 ()，單元素列表 (2)不同于標量 2 ? qw(1 $a str) ? ()可以用其他符號表示，如 ? 元素可以是數(shù)值、變量、不帶引號的字符串，中間用空格分開 范圍表示的列表 ..：范圍運算符，每次增加 1，如 1..3 ? (1..6)=(1,2,3,4,5,6) ? (1,2..5,6)=(1,2,3,4,5,6) ? (3..3)=(3) ? (..)=(,) ? (..)=() ? (“aa”..”ad”)=(“aa”,”ab”,”ac”,”ad”) ? $month=(’01’..’31’) ? ($a,$a+3)=(3,4,5,6) if $a=3 數(shù)組 ——列表的存儲 ? a=(1,2,3)，不同于 $a，初始值為 () ? 元素形式： $a[0]表示第一個元素，索引從 0開始，$a[1]表示倒數(shù)第一個元素 ? 數(shù)組的賦值： ? a=(1,2,3,4)。 ? b=(2,3)。 ? a=。 ? 超出數(shù)組大小的元素賦值： $a[5]=6。 數(shù)組的讀出