Re: [請益] 讀檔後找出想要的字串
#!/usr/bin/perl -w
open FH,"input";
while(<FH>){
/(\(.*?\)).*:(.*)/;
print "$1 $2\n";
}
close FH;
※ 引述《RueyJing (瑞)》之銘言：
: 我讀入一個檔案後..
: 樣式如下
: AAAAAA (XXX) AAAAA (BBB) AAAAAA : YYYYYYY
: (ZZZ) CCCCCCCCCCC (DDDD) (EEE) : FFFFFFFF
: ....
: .....
: .....
: 我希望可以每一行的第一個括號內的文字抽出來，和 冒號後的所有文字(含任何符號)
: 再重新整理成以下的格式
: XXX YYYYYYY
: ZZZ FFFFFFFF
: ....
: ...
: 我身邊也只有一本駱馬書..研究它也不到一個月..
: 也許我問的問題笨了點..請大家見諒..
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.160.56.184
推
03/21 14:07, , 1F
03/21 14:07, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
