Sim, agora é com hífen.
Hoje eu acordei cedo, consegui ler bastantes coisas e fazer boa parte do que me propus ontem. Quando eu cansei e resolvi ir ver The Mentalist ou Reaper, a Raquel acordou :-D e então, o máximo que eu vou ver até a babá chegar é o Louie... Uma xícara de café requentado e meia dúzia de rosquinas Mabel, trocar de roupa, e esperar. Claro que pelo menos, é um tempinho de qualidade com minha filhinha...
Compra uma NESPRESSO!!!! é a melhor coisa do mundo!
ResponderExcluirsub display($) {
my($array) = @_;
my $dados = "";
for my $linha ( @$array ) {
for my $coluna ( @$linha ) {
#printf "%10.10s;", $coluna
printf "%s;", $coluna;
$dados = sprintf "%s,", $coluna;
#$dados = $dados . $coluna . ",";
}
print "$papel;$corretora\n";
$dados = $dados . $papel . "," . $corretora;
print "$dados\n";
$dbh->do( "INSERT INTO dados (Data,QTDE_COMPRAS,PM_COMPRAS,QTDE_VENDAS,PM_VENDAS,POS_LIQUIDA,PM_LIQUIDA,PAPEL,CORRETORA) values ($dados)" );
$dados = "";