[Cascavel-pm] Manipulação de arquivo

Luis Campos de Carvalho monsieur_champs em yahoo.com.br
Terça Fevereiro 1 05:21:05 PST 2005


Rafael Szarblewski wrote:
> Pessoal,
> 
>   Alguém sabe me dizer como eu faço para imprimir um arquivo na tela?
> 
> Olhem o que estou fazendo:
> 
> opendir(DIR,"/home/isla/html/arquivos") || warn "Diretório Inexistente\n";
> while (my $file = readdir(DIR)) {
>  if ( $file !~ /^\.+/ && $file =~ \.doc$/ ) {
>   open(ARQ, $file) || die "Não pode abrir o arquivo!\n";
>   print ARQ "$file\n";
>   close(ARQ);
>  }
> }
> closedir(DIR);
> 
> Eu quero ler um diretório, dentro desse diretório existem arquivos .doc, eu
> quero abrir cada um e resgatar o conteúdo que existe dentro.
> 

   Bom, eu acho que você pode usar globbing para fazer isso com mais 
simplicidade...

   while( <"$directory/*.doc"> ){
     # $_ contém o nome de um arquivo .doc
     open DOC, $_
       or die;
     # sua rotina de impressao aqui...
     close DOC or die;
   }

   Putamplexos e divirta-se!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  Luis Campos de Carvalho is BSc in Comp Science,
  PerlMonk [SiteDocClan], Sao Paulo PM Leader,
  Unix Sys Admin && Certified Oracle DBA
  http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=



Mais detalhes sobre a lista de discussão Cascavel-pm