作者peterjack (peterjack)
看板perl
标题Re: [问题] 可以请问一下吗
时间Thu Jul 15 14:49:25 2004
※ 引述《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