[PerlChina] 请教一个读文件的问题

[潘建锋]

我现在有个文件类似
struct C {
a=..;
b=..;
c=..;
d=..;
}
struct C {
a=..;
b=..;
c=..;
d=..
}
...
我要读出每个结构的a和c值
我用了
my $condition=0;
while(<FILE>) {
 if (/a=(.+)/) {
  $arr[0] = $1;
  condition = 1;
 } elsif(condition == 1 && /c=(.+)/) {
  $arr[1] = $1
  condition = 0;
  # 往数据库插入@arr
 }
}
这样只能得到第一个struct的数据，然后提示
Use of uninitialized value in pattern match (m//) at ...

<china-pm at pm.org>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20060714/56a4e203/attachment.html