File Perl

  1. Home
  2. Perl
  3. File
  4. Uses die when testing for a successful file open operation
#!/usr/local/bin/perl 
unless (open(MYFILE, "file1")) { 
   die ("cannot open input file file1\n"); 
} 
# if the program gets this far, the file was opened successfully 
$line = ; 
while ($line ne "") { 
   print ($line); 
   $line = ; 
}