[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