eu faco da seguinte maneira:

----------------------------------------------------------------------------------------------------------------
#!/usr/bin/perl
# Nome do Arquivo conecta_db.pl
# (c) Alex Eduardo Chiaranda

use Msql;
$conexao = Msql->connect("servidor");
$conexao->selectdb("nome_da_base");

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
   ($name,$value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
    $form{$name} = $value;
}

#inserir na tabela o que vem do form
$conexao->query("insert into tabela (campo1,campo2) values 
('$form{campo1}','$form{campo2}')");

#consultar na tabela e jogar os valores no vetor saida,$saida[0],$saida[1] ...
$consulta = $conexao->query("select * from tabela");
@saida = $consulta->fetchrow;

#update na tabela
$conexao->query("update tabela set campo1 = $form{campo1} where campo2 = 
'$form{campo2}'");

----------------------------------------------------------------------------------------------------------------

tenho uma mini apostila de msql na minha pagina
http://www.eep.br/~aechiara/msql.html

espero ter ajudado
t+
[]s

/"\
\ /
 X   ASCII RIBBON CAMPAIGN - AGAINST HTML MAIL
/ \  CAMPANHA DA FITA ASCII - CONTRA MAIL EM HTML

      Linux ... a nice place to live
*******************************************
* Alex Eduardo Chiaranda                  *
* mail: [EMAIL PROTECTED]                   *
*       [EMAIL PROTECTED]          *
*       [EMAIL PROTECTED]                   *
* Pagina => http://www.eep.br/~aechiara   *
* ICQ => UIN 13070511                     *
* 4o Ano de Ciencia da Computacao         * 
* Escola de Engenharia de Piracicaba      *
* Piracicaba - SP                         *
*******************************************

On Fri, 17 Mar 2000, Felipe wrote:

> A a� pessoal... 
> 
> Olha s�, quero criar um programa de busca ( + ou - = ao do cade ), e eu quero usar 
>um banco de dados para armazenar os dados. Onde eu hospedo a minha p�gina � um 
>servidor em UNIX e ele fornecem MSQL, mas eu tenho que pagar para isso. � por esse 
>motivo � que eu n�o posso ficar testando v�rios bancos de dados.
> E eu gostaria da opini�o de vcs, o msql trabalha bem com PERL?
> 
> Eu vi isso em um exemplo:
>   use Msql;
> O que significa?
> E isso??
>   use Mysql;
> S�o a mesma coisa...????
> 
> Eu preciso de algo a mais, tipo algo que facilite???
> 
> Algu�m tem um tutorial do comandos do msql, usando ele em PERL???
> 
> Valeu a todos...
> 
> Felipe.....
> 
> 

http://www.mrweb.com.br/perl/
�������������
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
�������������

Responder a