可能会搜索的鱼

<br />一直以来都使用Text::CSV_XS操作CSV文件<br />a, 读取：<br />while(<FH>) {<br />  my $status = $csv->parse($_);<br />  my @columns = $csv->fields();<br />  ...<br />}<br /> <br />b, 写入：<br />my $status = $csv->combine(@columns);<br />if ($status) {<br />  my $line =