Jump to content


Photo

Pedido De Tutorial


  • Faça o login para participar
6 replies to this topic

#1 Iron-Maiden

Iron-Maiden

    12 Horas

  • Usuários
  • 231 posts
  • Sexo:Não informado

Posted 11/09/2005, 22:26

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 !! (y)


Ah.se conectar ao Bd e afins !

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

Fica aqui meu pedido!! :P

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

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

abraço a todos, Luis ;)

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

#2 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 11/09/2005, 22:48

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.');
}


print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#3 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 11/09/2005, 22:49

------ 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.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#4 Iron-Maiden

Iron-Maiden

    12 Horas

  • Usuários
  • 231 posts
  • Sexo:Não informado

Posted 11/09/2005, 23:13

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

#5 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 12/09/2005, 09:23

$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.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#6 bioinformata

bioinformata

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Não informado

Posted 12/09/2007, 04:06

oooOOOO Prix muiiiiiiito, muiiiiiiiiiiiiiito obrigadooooo MESMOOOOOO

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

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

Obrigado :lol:

#7 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 29/10/2017, 02:12

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




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq