[Cascavel-pm] Sugestao - Insercao no Banco
Patty Silva
ptfzs em yahoo.com.br
Quinta Maio 25 06:29:26 PDT 2006
-------------------------------------------------------------------------------------------------
Codigo:
my %table = (
"Variavel 1" => "T1r",
"Variavel 2" => "T2r",
"Variavel 3" => "T3r",
);
$dbh = DBI->connect("DBI:mysql:$DBName",$UserName, $password) || die("Erro de Conexao:$DBI:errstr") ;
chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";
for(parse_dir(`ls -ltr`))
{
($arquivo) = @$_;
open(FH, "<$arquivo") or die("Arquivo nao encontrado");
@table = <FH>;
shift @table; # descarta primeira linha
close(FH);
foreach(@table)
{
if ($_ =~ /^\s*VARIAVEL/)
{
if( (s#^\s*VARIAVEL-S##) or (s#^\s*VARIAVEL-B##) )
{
}
else
{
(undef,$variavel,$nome,undef,undef,undef,undef,undef,$data_arquivo,undef,$valor,$var) = split /\s+/, $_;
$data_arquivo =~ s/(\d\d\d\d)(\d\d)(\d\d)_(\d\d)(\d\d)/$1-$2-$3 $4:00/;
if (defined $table{$variavel})
{
$variavel = $table{$variavel};
}
$update = "$variavel=$valor";
$sql="Insert into tabela1(Nome,DataHora) values($nome,$data) on duplicate key update $update";
# $sth = $dbh->prepare($SQL);
# $sth->execute();
# $sth->finish();
}
}
Entao pessoal esta ai!! :) desculpe se anteriormente nao postava o codigo.. daqui pra frente comecarei a postar!! :P
Ajuda os companheiros tb!!
:***
Ola Pessoal :)
Eu again solicitando ajuda..
Bom.. gostaria de uma sugestao de vcs, no caso eu leio linha por linha de um arquivo , armazeno a variavel e seu respectivo valor e faco essa instrucao SQL para cada linha:
"Insert into $tipo(Nome,DataHora) values($nomen,$data) on duplicate key update $update";
sendo o update = $update = "$variavel=$valor";
So que.. para cada linha eu teria uma execucao no Banco, que eu acho que nao eh favoravel...
Como eu poderia fazer isso? poderia identificar para todas linhas com nome=x armazenar as variaveis e inserir.. mas por outro lado.. teria que verificar o campo data tb!! :)
Nao sei se fui clara!!
Mas quem puder me dar um help
Obrigada
---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
--
Igor Sutton Lopes
http://www.izut.com/ _______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
---------------------------------
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060525/f6f9eda5/attachment-0001.html
Mais detalhes sobre a lista de discussão Cascavel-pm