[Cascavel-pm] expressao regular

[Nilson Santos Figueiredo Junior]

2008/1/22 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
> 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 $!;
> }

Sinceramente, o seu glob() é muito mais feio que o dela.

Mas enfim, parem de reinventar a roda:

  use File::Slurp qw/slurp/;
  my $data = slurp('filename');

É mais legível *e* ainda ganharia de vocês se fosse uma competição de golf. ;-)

-Nilson Santos F. Jr.