看板 Perl 關於我們 聯絡資訊
# 完全依照你給的測資跟output $_ = qq~<font color = "red"><B>E2F-1</B></font> can also <font color = "blue"><B>induce</B></font> <font color = "green"><B>p73</B></font> via a p53-independent apoptotic pathway.~; 1 while s/<[^>]+>[^<]*<\/[^>]+>//; print; -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.114.71.152 ※ 編輯: LiloHuang 來自: 140.114.71.152 (08/18 11:39)
david220:s/<[^>]+><B>[^<]+<\/B><\/font>//go; 08/19 19:59
david220:請問這樣會比較快嗎? 08/19 19:59
LiloHuang:這樣會比較快 但是這樣就變成special case了~ 08/19 21:37
david220:喔,也是啦 08/20 12:13
collin2315:多謝樓上兩位的解答^^ 08/21 00:20