文本处理问题

原帖由 badegg3 于 2008-8-27 10:50 发表
###input txt
inout  [2:0]  a ;
input  b, c, d, e,
          f, g, h, i,
          l,m,k,n;
output  w,z, x, y;
#####output txt
"IN" b;
"IN" c;
"IN" d;
"IN" e;
"IN" f;
"IN" g;
"IN" h;
...

下面是一个坛友的回答：
undef $/;
open FI,"input.txt" or die "cant open input.txt";
my $str = <FI>;
if ( $str =~ m#^\s*input\s+(.*?);#sm ) {
        my @par = split /[,\s]*/,$1;
        print "IN $_;\n" foreach @par;
}


希望得到更多的正确回答

没看懂需求

这种问题，拿本初级教材看一会就能自己解决了
看来我这个回答都不应该给你

这个不能这样说，每个人都有不同的做法，无论谁的做法只要正确，都比读书来的强，读书是要用的，高手的做法就是精简而准确，感谢你的回答，但是这个只是个小例子，实际的文本什么都可能遇到，永远不要认为你最能，相信如果有10种回答，你至少可以学到你不知道的。

orz... 拜服一下。张嘴要答案还要得理直气壮冠冕堂皇。

合着您还是为了我们着想啊？