creaktive · March 11, 2011 19:51
diff --git a/CSVEntrePipeEDBMS.pod b/CSVEntrePipeEDBMS.pod
diff --git a/dbd-csv.pl b/dbd-csv.pl
 #!/usr/bin/perl
 use strict;
 use utf8;
 use warnings 'all';

 use open ':locale';

 use DBI;

 my $dbh = DBI->connect('dbi:CSV:', undef, undef, {
    f_encoding  => 'utf8',
    csv_tables  => {
        llcb    => { file => '7marco2011.csv' },
        estados => { file => 'estados.csv' },
    },
    RaiseError  => 1,
    PrintError  => 1,
 }) or die "Erro com DBI/DBD::CSV: " . $DBI::errstr;

 my $sth = $dbh->prepare(<<SQL_QUERY);
    SELECT cidade, estados.estado AS cidade_uf
    FROM llcb
    JOIN estados
        ON llcb.estado = estados.uf
    WHERE
        llcb.estado = 'SP'
        AND (latitude   > -23.80)
        AND (latitude   < -23.20)
        AND (longitude  > -47.10)
        AND (longitude  < -46.10)
    ORDER BY cidade
 SQL_QUERY

 $sth->execute;
 while (my $row = $sth->fetchrow_arrayref) {
    printf("%s, %s\n", @{$row});
 }
 $sth->finish;
 $dbh->disconnect;
diff --git a/estados.csv b/estados.csv
diff --git a/text-csv.pl b/text-csv.pl
 #!/usr/bin/perl
 use strict;
 use utf8;
 use warnings 'all';

 use open ':locale';

 use Data::Dumper;
 use Text::CSV;

 # Não é necessário definir EOL quando só vamos *ler* o CSV,
 # pois o valor de $/ será usado automaticamente.
 # Já para gravação, precisa definir (não sei se é bug).
 my $csv = new Text::CSV({ eol => "\n" })
    or die "Erro com Text::CSV: " . Text::CSV->error_diag;

 # Assume que a codificação do arquivo é UTF-8.
 open my $fh, '<:utf8', '7marco2011.csv';

 # Pega a primeira linha do CSV e extrai os nomes das colunas.
 $csv->column_names($csv->getline($fh));

 # Pega todas as outras linhas e retorna para cada um HashRef
 # aonde as chaves são os nomes das colunas.
 while (my $row = $csv->getline_hr($fh)) {
    ($row->{codigo}) = ($row->{link} =~ m{\bcodmun=([0-9]+)\b}i);
    print STDERR Dumper $row;
    $csv->print(\*STDOUT, [ map { $row->{$_} // '' } qw(codigo cidade estado) ]);
 }
 $csv->eof or $csv->error_diag;
 close $fh;
diff --git a/tie-handle-csv.pl b/tie-handle-csv.pl
 #!/usr/bin/perl
 use strict;
 use utf8;
 use warnings 'all';

 use open ':locale';

 use Data::Dumper;
 use Tie::Handle::CSV;

 my $csv = new Tie::Handle::CSV(
    file        => '7marco2011.csv',
    header      => 1,
    key_case    => 'lower',
    open_mode   => '<:utf8',
 );

 while (my $row = <$csv>) {
    $row->{link} =~ s/^.*=//;
    print STDERR Dumper $row;
    print $row . "\n";
 }

 close $csv;
	#!/usr/bin/perl
	use strict;
	use utf8;
	use warnings 'all';

	use open ':locale';

	use DBI;

	my $dbh = DBI->connect('dbi:CSV:', undef, undef, {
	f_encoding => 'utf8',
	csv_tables => {
	llcb => { file => '7marco2011.csv' },
	estados => { file => 'estados.csv' },
	},
	RaiseError => 1,
	PrintError => 1,
	}) or die "Erro com DBI/DBD::CSV: " . $DBI::errstr;

	my $sth = $dbh->prepare(<<SQL_QUERY);
	SELECT cidade, estados.estado AS cidade_uf
	FROM llcb
	JOIN estados
	ON llcb.estado = estados.uf
	WHERE
	llcb.estado = 'SP'
	AND (latitude > -23.80)
	AND (latitude < -23.20)
	AND (longitude > -47.10)
	AND (longitude < -46.10)
	ORDER BY cidade
	SQL_QUERY

	$sth->execute;
	while (my $row = $sth->fetchrow_arrayref) {
	printf("%s, %s\n", @{$row});
	}
	$sth->finish;
	$dbh->disconnect;
	estado	uf
	Alagoas	AL
	Amapá	AP
	Amazonas	AM
	Bahia	BA
	Ceará	CE
	Distrito Federal	DF
	Espírito Santo	ES
	Goiás	GO
	Maranhão	MA
	Mato Grosso do Sul	MS
	Mato Grosso	MT
	Minas Gerais	MG
	Paraná	PR
	Paraíba	PB
	Pará	PA
	Pernambuco	PE
	Piauí	PI
	Rio Grande do Norte	RN
	Rio Grande do Sul	RS
	Rio de Janeiro	RJ
	Rondônia	RO
	Roraima	RR
	Santa Catarina	SC
	Sergipe	SE
	São Paulo	SP
	Tocantins	TO