File Perl

  1. Home
  2. Perl
  3. File
  4. Contents of the entire file are printed
#!/usr/bin/perl
open(FILE, "@lines = ;
print @lines;       
print "\nThe file contains ", $#lines + 1," lines of text.\n";
close(FILE);