[Cascavel-pm] expressao regular

[Nelson Ferraz]

> 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;