is the file a writable file? : file test « File « Perl

1. Perl
2. File
3. file test

is the file a writable file?

    


#!/usr/bin/perl


use strict;
use warnings;

foreach my $file ( @ARGV ) {
   print( "Checking $file: " );

   if ( -e $file ) {        
      print( "$file exists!\n" );
      if ( -f $file ) {     
         print( "The file $file is:" );
         print( " writable" ) if ( -w $file );    
         print( "\n" );
      }
      elsif ( -d $file ) {   # is it a directory?
         print( "$file is a directory!\n" );
      }
   }
   else {
      print( "$file doesn't exist.\n" );
   }

   print( "\n" );
}

   
    
    
    
  

Related examples in the same category