File Perl

  1. Home
  2. Perl
  3. File
  4. Tests whether the file is empty before opening it for writing
#!/usr/local/bin/perl 
if (-e "outfile") { 
   if (!(-w "outfile")) { 
      die ("Missing write permission for outfile.\n"); 
   } 
   if (!(-z "outfile")) { 
      die ("File outfile is non-empty.\n"); 
   } 
}