[Cascavel-pm] Passando valores

[diogo86 em gmail.com]

Passe como parâmetro.

Na definição:

sub funcao {
    my ( $id ) = @_;

    // ...
}

Para utilizar:

my $id = 1;
my $nome = funcao( $id );


2010/7/17 Ricardo Stock <ricardostock em bol.com.br>:
>     Bom dia a todos da lista....
> Minha duvida seria como passar valores..
>
> Veja, posso fazer isto
> require "funcao.pl"
> my $nomel=funcao1();
> print $nome;
>
> onde eu pego a variavel de retorno da funao no arquivo externo, mas se eu
> quiser fazer o caminho inverso
>
> Ex. (apenas exemplo)
>
> Arquivo externo;
> funcao.pl
>
> funcao1 {
> $sth=$dbh->("select nome from tabela where id='$id'");
> $sth->execute() | | dei $DBI::errstr;
> $nome=$sth->fetchrow_array;
> $sth->finish();
> return $nome;
> }
>
> Arquivo principal
>
> main.pl
> .......
> $id=1;
>
> como passar o valor de $id para funcao.pl, sei que tenho que passar o valor
> antes de imprimir o retorno
>
> com passar $id
> para depois ter o retorno
> my $nome=funcaoq();
>
> print $nome;
>
> desculpe se a duvida parece simples, mas quero aprender a fazer isto.
>
>
>
>
> Ricardo Stock
> ricardostock em bol.com.br
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>