[Cascavel-pm] Re: [perlbr] undef em todas as v ariáveis

[Flavio S. Glock]

Gabriel Vieira wrote:
> 
> teste.pl - Arquivo com comandos principais
> $a = "oi";
> sub ola{
> print $conteudo;
> }
> 
> testando.pl - Arquivo que irei exeuctar
> require "teste.pl";
> $conteudo = $a . " lista!";
> &ola;
> 
> Se eu utilizar o my junto ao $conteudo, este não é impresso como deveria.
> O mesmo se eu por junto ao $a;

Isso pode ser escrito assim:

  $a = "oi";
  sub ola{
    my $conteudo = shift;
    print $conteudo;
  }

  # ...

  my $conteudo = $a . " lista!";
  ola ( $conteudo );


- Flavio S. Glock