Mega Code Archive

 

Categories / Perl / File

 

Is the file a executable 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( " executable" ) if ( -x $file );       }       elsif ( -d $file ) {            print( "$file is a directory!\n" );       }    }    else {       print( "$file doesn't exist.\n" );    }    print( "\n" ); }