File Perl

  1. Home
  2. Perl
  3. File
  4. Reads an entire input file into an array
#!/usr/local/bin/perl 
unless (open(MYFILE, "file1")) { 
   die ("cannot open input file file1\n"); 
} 
@input = ; 
print (@input);