[Cascavel-pm] Res: expressao regular

[Patty Silva]

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
http://mail.pm.org/mailman/listinfo/cascavel-pm






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/18eeed9f/attachment.html