作者ausir (凡人)
看板perl
标题[问题] 可以请问一下吗
时间Wed Jun 16 02:39:54 2004
下面是一个程式...目的是把ex1.txt的内容修改...
是将EC 3.4.11.2这个字串改成超连结...
可是小弟看不懂蓝色那里是什麽意思@@...
可以麻烦各位大大帮我看看吗....
感激不尽...
#!/usr/bin/perl -w
open(IN,"ex1.txt") || die "cannod open input file for reading";
open(OUT,">>ex3.htm") || die "cannot open output file";
print OUT "<html><body>";
print OUT "<pre>";
while(<IN>) {
if ($_=~/(EC 3.4.11.2)/i) {
$EC_num=$1;
$EC_num=~/EC\s(.+)/;
$EC=$1;
$insert="<a href=
http://www.genome.ad.jp/dbget-bin/www_bfind_sub?dbkey=e
nzyme&mode=bfind&max_hit=1000&keywords=$EC>"."protein enzyme"."</a>";
$_=~s/$EC_num/$insert/i;
}
print OUT $_;
}
print OUT "</pre>";
print OUT "</html></body>";
close(OUT) || die "cannot close output file";
close(IN) || die "cannot close input file: ex1.txt";
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.129.62.125
※ 编辑: ausir 来自: 140.129.62.125 (06/16 08:29)