作者littleshan (我要加入劍道社!)
看板perl
標題Re: [問題] 可以請問一下嗎
時間Wed Jun 16 03:13:34 2004
※ 引述《ausir (凡人)》之銘言：
: 下面是一個程式...目的是把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) {
判斷讀入字串是否含有你說的那個字串
但我想這裡是寫錯了
應該是這樣才對
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";
--
use BigInt
':constant';
eval{
local $SIG{ALRM}=
sub{
die "alarm\n"};
alarm 10;
foreach (
1..
2**
1024){}
alarm 0;
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.244.211
※ 編輯: littleshan 來自: 140.112.244.211 (06/16 03:13)