<div dir="ltr">Como ninguém disse nada, achei melhor mudar um pouco. Fiz umas buscas no cpan e encontrei algumas coisas interessantes e escolhi essa.<br><br>Arquivo semelhante:<br><br>$cat out<br>
cabecalho<br>
42231xx;c2;c3;c4<br>
42232xx;c2;c3;c4<br>
42233xx;c2;c3;c4<br>
42234xx;c2;c3;c4<br>
42235xx;c2;c3;c4<br>
42236xx;c2;c3;c4<br>
42237xx;c2;c3;c4<br>
42238xx;c2;c3;c4<br>
;<br>
<br><code><br>#!/usr/bin/perl -w<br>use strict;<br><br>use Tie::File;<br><br>my @array = ('');<br><br>tie @array, 'Tie::File', 'out' or die("Error: $!");<br><br>foreach (@array){<br>
next if $_ =~ /^[^(4223)]/;<br> my @fields = split(/;/, $_);<br> my $query = "insert into tb() values('$fields[0]','$fields[1]')\n";<br> print $query;<br>}<br></code><br>
<br></div>