Tests whether the file is empty before opening it for writing. : file test « File « Perl






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"); 
   } 
} 

   
    
    
    
  








Related examples in the same category

1.'-B filehandle': True if file is binary.
2.'-S filehandle': True if file is a socket (uppercase S).
3.'-T filehandle': True if file is an ASCII text file.
4.'-d filehandle': True if file is a directory.
5.'-e filehandle': True if file exists.
6.'-f filehandle': True if file is a normal file.
7.'-l filehandle': True if file is a symbolic link.
8.'-p filehandle': True if file is a named pipe (FIFO).
9.'-s filehandle': Returns size if file exists and has nonzero size.
10.'-w filehandle': True if filehandle is writable.
11.'-x filehandle': True if filehandle is executable.
12.'-z filehandle': True if file exists and its size is 0.
13.is the file a executable file?
14.is the file a plain file?
15.is the file a readable file?
16.is the file a writable file?
17.Test for file attributes
18.Tests for read permission on a file.
19.File test operators
20.File testing script
21.File-Test Operator Syntax
22.File-test operators that check information returned by stat.
23.File-test operators that test for permissions.
24.File Tests
25.File Tests for Age
26.File Tests for Execution
27.File Tests for Existence and Size
28.File Tests for Privileges
29.File Tests for Type
30.File Tests for Unix File Handle Types
31.File Test Operators[a]
32.Contents of the current directory
33.Get file modified/accessed time
34.Get the size of a file
35.Some -X File Tests
36.does file exist?