does file exist? : file test « File « Perl

1. Perl
2. File
3. file test

does file exist?

    


#!/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( " executable" ) if ( -x $file );
         print( " readable" ) if ( -r $file );  
         print( " writable" ) if ( -w $file );  
         print( "\n" );
         print( "It is ", -s $file, " bytes.\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