Perl e MySQL

Nesse artigo, eu explico como podemos integrar Perl com MySQL, um dos SGBDs mais populares do mundo.

[ Hits: 10.995 ]

Por: Matheus em 05/03/2014 | Blog: http://hc0der.blogspot.com


Affected Rows



Por último, mas não menos importante, vou demonstrar como se pega o número de Affected Rows (campos afetados), algumas consultas como Update e Delete, só retornam o número de valores afetados.

Podemos pegar esse numero de duas maneias, a primeira, é usando a função "rows":

my $cmd = 'update tutorial set mensagem="abcd" where id=1;';
my $query = $con->prepare($cmd);
$query->;execute();

   print "Numeros de linhas afetadas: ".$query->rows."\n";

A segunda é executando a query usando a função "do", ao invés de prepare, e depois execute. A função " do" já executa automaticamente as três etapas vistas anteriormente (prepare, execute e rows) e retorna o número de linhas afetadas pela consulta, exemplo:

my $rows = $con->do('update tutorial set mensagem="abcd" where id=1;');

   print "Numeros de linhas afetadas: $rows\n";

The end

Acho que o tutorial ficou bem completo, por isso, paro de escrever aqui.

Vou deixar os links que eu usei pra aprender.
Espero que tenham lido.

my @referencias = qw(:
);

Página anterior    

Páginas do artigo
   1. Introdução
   2. Conectando-se ao Database / Identificando os erros
   3. Executando querys / Exibindo o resultado de uma query
   4. Affected Rows
Outros artigos deste autor

Shell Script para WEB

Leitura recomendada

Programando uma Intranet com Apache, MySQL e Perl (parte 2)

Programando em Perl (parte 1)

Enviando emails em Perl

Manipulação de sockets em Perl usando o IO::Socket::INET

Gerenciando redes com Perl e SNMP

  
Comentários
[1] Comentário enviado por leo4b em 05/03/2014 - 05:43h

Muito bom!
Você tem alguma dica de material para quem está começando em perl ? Eu so meio fraquinho em programação mas tenho como base shell script que foi aonde me aprofundei mais :/

[2] Comentário enviado por danniel-lara em 05/03/2014 - 10:54h

Parabéns , muito bom mesmo
bem explicado mesmo
estou estudando perl e esse artigo vai me ajudar muito

[3] Comentário enviado por Mmxm_bd em 05/03/2014 - 12:06h


[1] Comentário enviado por leo4b em 05/03/2014 - 05:43h:

Muito bom!
Você tem alguma dica de material para quem está começando em perl ? Eu so meio fraquinho em programação mas tenho como base shell script que foi aonde me aprofundei mais :/


Cara tem um livro muito bom que se chama Programando com Perl , ele é em português e foi escrito pelo Thiago Glauco Sanchez , o livro é muito bom pra quem ta começando :D

[4] Comentário enviado por danniel-lara em 05/03/2014 - 14:13h


[3] Comentário enviado por Mmxm_bd em 05/03/2014 - 12:06h:

Cara tem um livro muito bom que se chama Programando com Perl , ele é em português e foi escrito pelo Thiago Glauco Sanchez , o livro é muito bom pra quem ta começando :D


Esse Livro é muito bom mesmo eu recomento ele , estou lendo esse livre e é muito bom mesmo


[5] Comentário enviado por gamjacoby em 03/07/2014 - 14:08h

Não entendi aonde eu coloco o código:

use DBI;

@drivers = DBI->available_drivers;
print $_."\n" foreach(@drivers);

[6] Comentário enviado por Mmxm_bd em 03/07/2014 - 20:12h


[5] Comentário enviado por gamjacoby em 03/07/2014 - 14:08h:

Não entendi aonde eu coloco o código:

use DBI;

@drivers = DBI->available_drivers;
print $_."\n" foreach(@drivers);


Esse codigo é só um exemplo , serve para identificar os drivers instalados.

[7] Comentário enviado por eddye00 em 05/09/2014 - 09:06h

Excelente artigo. Parabéns!


Contribuir com comentário