新手真心求教，求高人指点

camaro5520

在公司用perl处理Csv文件，需要写入数据库。代码如下：
open(OUTFILE,"3.Csv") || die ("open OUTFILE failed");
my $title = <OUTFILE>;
my @line = <OUTFILE>;       
foreach my $row (@line){
                $row =~ s/[\s]+$//;
                my @array;
                while($row =~ m/(?:^|,)(?:"((?:[^"]|"")*)"|([^",]*))/gx){
                                        if(defined $1){
                                                         $field = $1;       
                                        }else{
                                                        $field = $2;
                                                        $field =~ s/""/"/g;
                                        }
                                        $field = $dbh->quote($field);
                                        $field =~ s/(\&Acirc;)*//g;
                                        push(@array,"$field");
                }
}
会产生“Segmentation fault”错误，文件有100M。因为文件大？还是因为中间有空行？求解惑。

camaro5520

自己先顶下

2gua

你的笑脸，毫不吝惜。

kingwmj

楼主把代码放到代码格式里。

hitsubunnu

参看 DBD::CSV

camaro5520

谢谢天使