Вывести содержимое файла на экран

Категория: Perl
2011-08-27 18:25:23
code: #perl
  1. #!/usr/bin/perl -w
  2.  
  3. for my $fileName(@ARGV)
  4. {
  5.     unless(open my $file, '<', $fileName)
  6.     {
  7.         warn "Невозможно открыть файл «$fileName»: $!\n";
  8.         next;
  9.     }
  10.     print while <$file>;
  11.     close $file or warn "Невозможно закрыть файл «$fileName»: $!\n";
  12. }
Поделиться:

Похожие статьи:

теги: файл, новички, вывод