6 replies to this topic

[Iron-Maiden]

Oi pessoas.rs!!!!

Eu visito a alguns anos já o fórum de cgi. mais ele sempre ta paradão.coitado dele!
Sempre tive muitas dúvidas.e ainda as tenho!

Queria pedir um tutorial de Perl/Mysql, como o q exist no fórum de php!

Seria bem legal!

tipo: inserir,editar,excluir,visualizar....etc !!


Ah.se conectar ao Bd e afins !

Não sei se alg vai ter paciência de fazer.mais q seria show, seria!!!

Fica aqui meu pedido!!

To afim de me aprofundar mais do perl...!!!

Se alg tiver alguma opinião sobre, post aqui pra discutirmos!

abraço a todos, Luis

ps: ñ sei se é aqui q se posta, caso, desculpe!

[prix]

Bom aqui nao eh bem um forum para fazer pedidos de tutoriais nao era mais para que os usuarios criarem e adicionarem aqui tutoriais. mas ai vai:

Acho que esses 2 arquivos abaixo não precisam de introdução neh ?

$database = 'nome_do_banco_de_dados';
$db_host  = 'endereço_do_host_do_mysql';
$db_admin = 'nome_do_usuario_que_se_conecta_ao_banco_de_dados';
$db_senha = 'a_senha_do_usuario_acima_dito';

use DBI;
require 'db.pl';
sub conectar {
$dbh = DBI->connect("DBI:mysql:database=$database;host=$db_host","$db_admin","$db_senha")
|| die print('Não foi possivel abrir a conexão.');
}

sub desconectar {
$dbh->disconnect || die print('Não foi possivel terminar a conexão.');
}

[prix]

------ Adicionar

#!/usr/bin/perl

require 'lib.pl';

print "Content-Type: text/html\n\n";

$nome = 'Jaum da roça';

&conectar;
$sth = $dbh->prepare(q{
       INSERT INTO usuarios (nome) VALUES
});
$ref = $sth->execute($nome) || die print('Não foi possivel adicionar o usuário.');
&desconectar;

if ($ref == 1) {
print "usuario adicionado com sucesso";
} else {
print "não foi possivel adicionar o usuario";
}

------ Alterar

#!/usr/bin/perl

require 'lib.pl';

print "Content-Type: text/html\n\n";

$id = '00000001';
$nome_novo = 'Jaum da roça';

&conectar;
$sth = $dbh->prepare(q{
        UPDATE usuarios SET nome = ? WHERE id = ? LIMIT 1
});
$ref = $sth->execute($nome_novo,$id) || die print('Não foi possivel alterar o usuário.');
&desconectar;

if ($ref == 1) {
print "usuario alterado com sucesso";
} else {
print "não foi possivel alterar o usuario";
}

------ Ler

#!/usr/bin/perl

require 'lib.pl';

print "Content-Type: text/html\n\n";

$id = '00000001';

&conectar;
$sth = $dbh->prepare(q{
       SELECT nome FROM usuarios WHERE id = ?
});
$sth->execute($id) || die print('Não foi possivel conectar ao banco de dados para listar o usuario.');
$ref     = $sth->fetch;
$nome    = $ref->[0];
$sth->finish;

if ($nome ne '') {
print "$nome";
} else {
print "Usuario não existe ou id incorreta.";
}

print "<br><br><br>Ou<br><br><br>";

$sth = $dbh->prepare(q{
       SELECT nome FROM usuarios ORDER BY id DESC
});
$sth->execute || die print('Não foi possivel conectar ao banco de dados para listar o usuario.');
$conta = 0;
while($ref = $sth->fetchrow_hashref()){
print "$ref->{'nome'}";
$conta++;}
if ($conta == 0) { print "Sem usuarios"; }
&desconectar;

------ Apagar

#!/usr/bin/perl

require 'lib.pl';

print "Content-Type: text/html\n\n";

$id = '00000001';

&conectar;
$sth = $dbh->prepare(q{
        DELETE FROM usuarios WHERE id = ?
});
$ref = $sth->execute($id) || die print('Não foi possivel apagar o usuário.');
&desconectar;

if ($ref == 1) {
print "usuario apagado com sucesso";
} else {
print "não foi possivel apagar o usuario";
}

Edição feita por: prix, 11/09/2005, 23:01.

[Iron-Maiden]

Aew Prix, Brigadão aewwwwwww !

Agora vai começar a surgir as dúvidas...hehe!!


Eu vou criar uma tabela, tipo:

nome
email
telefone
data
------------------------------------------
como faço pra adicionar informações nesses campos da tabela via Form?

eu notei estas seguintes linhas:

INSERT INTO usuarios (nome) VALUES (?)

Dai eu fiz isto:

INSERT INTO usuarios (nome) (email) (telefone) (data) VALUES (?)

Tambem notei a presença da variavel

$nome = 'Jaum da roça';

Pra q serve ela?

Valewwwwww, Luis

[prix]

$sth = $dbh->prepare(q{
INSERT INTO usuarios (nome,email,cachorrinho,mulher) VALUES (?, ?, ?, ?)
});

sempre que criar uma tabela, adicione um campo a mais e sempre no 1 campo coloque o nome de id ou codigo ou algo do genero.

crie o primeiro campo como INT 5, unsigned zerofill, auto increment, primary key.

pois assim para todos os novos usuarios cadastrados uma nova ID sera gerada. e ela sera considera primaria.

-----------

nome, serva para voce adicionar o nome neh ?? como voce cria ou adiciona algo novo se nao tiver as informações para adicionar ??

$ref = $sth->execute($nome) || die print('Não foi possivel adicionar o usuário.');

no caso acima voce colocaria:

$ref = $sth->execute($nome,$email,$cachorrinho,$mulher) || die print('Não foi possivel adicionar o usuário.');

Edição feita por: prix, 24/09/2005, 14:34.

[bioinformata]

oooOOOO Prix muiiiiiiito, muiiiiiiiiiiiiiito obrigadooooo MESMOOOOOO

vc não tem noção do quanto me ajudou!!!

desejo muito suce$$o pra vc!!!!

Obrigado

[Miguceamma]

Cialis Generico PreРÑЧo Cialis 20mg Filmtabletten 8 Stuck Forum Acheter Viagra Doctissimo viagra Sildenafil Bull 100 Secure Ordering Provera Order
Viagra Farmacia Barcelona Le Viagra Est Il Rembourse En France viagra online prescription Cealisbuy Sicher Viagra Kaufen