[SP-pm] descubrir o tipo da variavel

Blabos de Blebe blabos at gmail.com
Tue Jul 13 13:53:33 PDT 2010


Nâo cola código aqui não. Usa isso aqui:

http://gist.github.com

E vc não respondeu a nenhuma das minhas perguntas :)


2010/7/13 Lucas Moraes <mineiro em live.be>:
> Oi Gente, Terminei o que eu queria e para mim foi um sucesso, segue o modulo
> abaixo:
>
>
> package
>
> Dados;
>
>
>
> use
>
> strict;
>
> use
>
> warnings;
>
> use
>
> DBI;
>
> use
>
> boolean ':all';
>
> use
>
> Tie::IxHash;
>
> use
>
> Scalar::Quote ':short';
>
>
>
> sub
>
> new {
>
> my $platform = "mysql";
>
> my $database = "perl";
>
> my $host = "localhost";
>
> my $port = "3306";
>
> my $user = "root";
>
> my $pass = "";
>
> my $dsn = "dbi:$platform:$database:$host:$port";
>
> my $connect = DBI->connect($dsn, $user, $pass);
>
> my $this = shift;
>
> my $class = ref($this) || $this;
>
> my $dados = {
>
> conn => $connect,
>
> tabela => shift
>
> };
>
> bless($dados);
>
> return $dados;
>
> }
>
>
>
> sub
>
> Inserir {
>
> my $this = shift;
>
> my %dados = @_;
>
> tie my %campos, "Tie::IxHash";
>
> while(my($indece, $valor) = each(%dados)){
>
> if(isBoolean($valor)){
>
> $campos{$indece} = $valor ? 'TRUE' : 'FALSE';
>
> }
>
> elsif($valor =~ /[ a-zA-Z*.+()"':_=-]+/){
>
> $valor = S($valor);
>
> $campos{$indece} = "$valor";
>
> }
>
> else{
>
> $campos{$indece} = "NULL";
>
> }
>
> }
>
> my @indices = join(', ', keys(%campos));
>
> my @valores = join(', ', values(%campos));
>
> my $sql = "INSERT INTO $this->{tabela} (";
>
> $sql .= " @indices )";
>
> $sql .= " VALUES (@valores)";
>
> my $query = $this->{conn};
>
> my $valor = $query->prepare($sql);
>
> $valor->execute();
>
> print $sql;
>
> }
>
>
>
> 1;
>
>
>
> um exemplo:
>
>
> #!perl
>
>
>
> use
>
> CGI::Carp qw(fatalsToBrowser);
>
> use
>
> strict;
>
> use
>
> warnings;
>
> use
>
> Dados;
>
> use
>
> Tie::IxHash;
>
>
>
> print
>
> "Content-type: text/html\n\n";
>
>
>
> my
>
> $query = Dados->new('NomeDaTabela');
>
> tie my
>
> %carro, "Tie::IxHash";
>
>
>
> %
>
> insert = (
>
> Campo1 => 'Moraes',
>
> Campo2 => 'mineiro em live.be',
>
> Campo3 => 'Lucas'
>
> );
>
>
>
> $query->Inserir(%insert);
>
>
> Obrigado a todos!
>
> Deus é o limite!
>
>
>
> ________________________________
> Al je email accounts in 1 inbox. Het kan in Hotmail.
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>


More information about the SaoPaulo-pm mailing list