谁能用perl做出来这个？

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

11^# forlorngenius 发表于 2008-08-27 13:32

最近文本处理的帖子好像多起来了。

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

12^# 不死草发表于 2008-08-27 14:05

恩，那最好不过，有代码贴出来的话偶也可以小小参与一下！~

HorseJia

UID: 12559
帖子: 188
积分: 432
在线时间: 2 天

13^# HorseJia 发表于 2008-08-27 15:10

QUOTE:

原帖由 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;
}

badegg3

UID: 31138
帖子: 152
积分: 349
在线时间: 1 天 7 小时

14^# badegg3 发表于 2008-08-27 15:11

没人会做啊，真是的，还是吝啬赐教。

waker

UID: 6071
帖子: 49
积分: 112
在线时间: 3 小时

15^# waker 发表于 2008-08-27 15:24

echo '###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;
"IN" i;
"IN" l;
"IN" m;
"IN" k;
"IN" n;'

用的着perl么？