[SP-pm] lendo emails para inserir em um banco algumas informações
Neilson P. Lima
neilsonlima at gmail.com
Tue Jul 22 09:00:27 PDT 2008
Como ninguém disse nada, achei melhor mudar um pouco. Fiz umas buscas no
cpan e encontrei algumas coisas interessantes e escolhi essa.
Arquivo semelhante:
$cat out
cabecalho
42231xx;c2;c3;c4
42232xx;c2;c3;c4
42233xx;c2;c3;c4
42234xx;c2;c3;c4
42235xx;c2;c3;c4
42236xx;c2;c3;c4
42237xx;c2;c3;c4
42238xx;c2;c3;c4
;
<code>
#!/usr/bin/perl -w
use strict;
use Tie::File;
my @array = ('');
tie @array, 'Tie::File', 'out' or die("Error: $!");
foreach (@array){
next if $_ =~ /^[^(4223)]/;
my @fields = split(/;/, $_);
my $query = "insert into tb() values('$fields[0]','$fields[1]')\n";
print $query;
}
</code>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20080722/ac8684a0/attachment.html>
More information about the SaoPaulo-pm
mailing list