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

[islue]

while () {
  next unless $_;
}
从你的描述看，加这么一行应该ok了

在06-7-14，潘建锋 <panjianfeng1979 at gmail.com> 写道：
>
> 我现在有个文件类似
> 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>
>
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20060714/b3a439f1/attachment.html