[Cascavel-pm] Res: expressao regular

[Thomas Britis]

Falta o ;
$data = do { local $/; <$file>; };


Patty Silva wrote:
> Qual a diferenca em colocar
> 
> open(FILE,"<$filename).....
> 
> de
> 
> open my $file,"<",$filename
> 
> 
> e quando eu faco:
> 
> open my $file, $filename or die $!;
> $data .= do { local $/; <$file>; }
> close $file;
> 
> 
> 
> da erro de sintaxe:
> syntax error at test.pl line 27, near "close"
> 
> Obrigada ;)
> 
> 
> ----- Mensagem original ----
> De: Nelson Ferraz <nferraz em gmail.com>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quarta-feira, 23 de Janeiro de 2008 2:07:14
> Assunto: Re: [Cascavel-pm] expressao regular
> 
>  > Argh!!! O trecho do while(), acima, é feio. Alguém pode por favor
>  > escrever um bom leitor de arquivos inteiros para a Patty?
>  >
>  > eu uso:
>  >
>  > my $data;
>  > while( my $filename = glob( q{*.teste} ) ){
>  >    open my $file, $filename
>  >      and do { local $/ = undef; $data .= <$file>; }
>  >      and close $file
>  >      or die $!;
>  > }
> 
> open and do and close or die ???
> 
> Eu prefiro o tradicional...
> 
> open my $file, $filename or die $!;
> $data .= do { local $/; <$file>; }
> close $file;
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org <mailto:Cascavel-pm em pm.org>
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
> <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA