Re: [問題] 可以請問一下嗎
※ 引述《seagal (基因寶寶)》之銘言：
: ※ 引述《ausir (凡人)》之銘言：
: : 抱歉...
: : 我有用顏色的地方出了一點差錯...
: : 不只是判讀字串那一行@@...sorry...
: : 還有接下來幾行...
1.open IN, "< ex1.txt" or die "cant op";
2.while(<IN>){
3.: : if ($_=~/(EC 3.4.11.2)/i){
4.: : $EC_num=$1;
5.: : $EC_num=~/EC\s(.+)/;
6.: : $EC=$1;
7.}
: : 可否再看一下呢@@...感激不盡...
: 我知道這是一個有關酵素的程式
============================================
從第一行解釋給你聽..
1. open ex1.txt withe file handle IN;
2. 從IN中第一行開始讀取到最後一行
3. 假如$_該行有符合EC 3.4.11.2不分大小的字串,()的目的在將符合的結果存入
BUFFER,也就市$1
4. 將EC 3.4.11.2指給$EC_num
5. $EC_num去比對=~ /pattern/ \s表示符合空白,(.+)表示1各以上的任意單一字元
並存入PERL預設的buffer $1
6. $EC=$1,也就市將3.4.11.2指給$EC
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 211.74.100.116
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 5 之 5 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
