作者cutecpu (可爱中央处理器)
看板Perl
标题Re: [请益] 读档後找出想要的字串
时间Fri Mar 20 08:11:00 2009
#!/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
1F：推 RueyJing:谢谢了..我试过了..超好用的.. 03/21 14:07