#!/usr/bin/perl
#
# File stats written by detour@metalshell.com
#
# Example of file testing.
#
# -o $file    true if owned by EUID
# -e $file    exists
# -z $file    zero file
# -s $file    non-zero file, returns size
# -r $file    readable     
# -w $file    writeable
# -x $file    executable
# -f $file    plain file
# -d $file    directory
# -l $file    symbolic link
# -p $file    named pipe or FIFO
# -S $file    socket
# -b $file    block special file
# -c $file    character special file
# -T $file    text file
# -B $file    binary file
# -u $file    setuid
# -g $file    setgid
# -k $file    sticky
# -t $file    true if opened to a tty
# -M $file    age in days since modified
# -A $file    age in days since last accessed
# -C $file    age in days since inode changed
#
# http://www.metalshell.com
#
 
 
unless($ARGV[0]) {
  die "Usage: $0 filename\n";
}
 
 
print "File info for: $ARGV[0]\n";
print "---------------------------\n";
 
if (-f $ARGV[0]) { 
  print "File: Yes.\n";
} else {
  print "File: No.\n";
}
 
if (-d $ARGV[0]) {
  print "Directory: Yes.\n";
} else {
  print "Directory: No.\n";
}
 
if (-r $ARGV[0]) {
  print "Readable: Yes.\n";
} else {
  print "Reabable: No.\n";
}
 
if (-w $ARGV[0]) {
  print "Writable: Yes.\n";
} else {
  print "Writable: No. \n";
}
 
printf "Last modified: %f days ago\n", -M $ARGV[0];