File Perl

  1. Home
  2. Perl
  3. File
  4. Tests for read permission on a file
#!/usr/local/bin/perl 
unless (open(MYFILE, "file1")) { 
   if (!(-e "file1")) { 
      die ("File file1 does not exist.\n"); 
   } elsif (!(-r "file1")) { 
      die ("You are not allowed to read file1.\n"); 
   } else { 
      die ("File1 cannot be opened\n"); 
   } 
}