[Cascavel-pm] Manipulação de arquivo

[Rafael Szarblewski]

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