[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