作者david220 (连做梦都在微笑)
看板perl
标题Re: [问题] 一个应该算简单的问题
时间Sat Mar 10 01:29:19 2007
※ 引述《Yaowei (成就你的大事)》之铭言：
: 假设我有一个档案内容如下：
: synaptodendritic B-protein
: domains I-protein
: Job B-protein
: kinases B-protein
: 5′ B-protein
: stem-loop I-protein
: domain I-protein
: ----------------------------------------
: 上面都是以\t(tab键)作为间隔
: 其判断规则是B-protein结尾一定是开头
: 然後若其後有出现I-protein结尾的话则一直取出直到遇到B-protein为止
: 若只有单独的B-protein结尾而後面没有I-protein，则只取出B-Protein前那个字即可
: 然後我想取得 synaptodendritic domains，Job，kinases，5′ stem-loop domain
: 请问要怎麽写呢？感谢大家=\ =
$out = "";
while (<DATA>) {
if (/(.*)\tB-protein/) {
print $out.'，' if ($out ne "");
$out = $1;
} elsif (/(.*)\tI-protein/) {
$out .= ' '.$1;
}
}
print $out.$/ if ($out ne "");
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.29.131
1F：推 Yaowei:超级感谢 我改一改之後就可以了^^感恩感恩 03/10 14:30