[Cascavel-pm] Manipulação de arquivo
Rafael Szarblewski
rafasz em ibestvip.com.br
Quinta Janeiro 27 09:29:53 PST 2005
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.
Desde já agradeço!
Um abraço,
Rafael Szarblewski
Perl Developer
Mais detalhes sobre a lista de discussão Cascavel-pm