[Cascavel-pm] Res: expressao regular
Thomas Britis
thomas em tcnet.com.br
Quinta Janeiro 24 03:55:16 PST 2008
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
Mais detalhes sobre a lista de discussão Cascavel-pm