<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>&lt;code&gt;<br>#!/usr/bin/perl -w<br>use strict;<br><br>use Tie::File;<br><br>my @array = (&#39;&#39;);<br><br>tie @array, &#39;Tie::File&#39;, &#39;out&#39; or die(&quot;Error: $!&quot;);<br><br>foreach (@array){<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; next if $_ =~ /^[^(4223)]/;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my @fields = split(/;/, $_);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $query = &quot;insert into tb() values(&#39;$fields[0]&#39;,&#39;$fields[1]&#39;)\n&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print $query;<br>}<br>&lt;/code&gt;<br>
<br></div>