Perl e MySQL

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

[ Hits: 14.659 ]

Por: Perfil removido em 05/03/2014


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

Novidades do Kernel 2.6.35

Instalação de VMWare Server 1.8 em Debian Etch sem segredo

Fontes com filtros LCD no Arch Linux

Instalando o Gnome-2.20.3 no Slackware 12 usando o Gslapt

Instalação de um servidor de mensagens instantâneas Openfire na sua rede com clientes Microsoft Windows e cliente Jabber Exodus

Leitura recomendada

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

Enviando notificações do Nagios para o MSN

Programando em Perl (parte 1)

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

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 removido 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 removido 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 removido em 05/09/2014 - 09:06h

Excelente artigo. Parabéns!


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts