Get file modified/accessed time : file test « File « Perl






Get file modified/accessed time

    

#!/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:" );
         my @time = timeconv( -A $file );          
         print( "Last accessed at $time[0] days, ","$time[1] hours, $time[2] minutes ","and $time[3] seconds.\n" );
         @time = timeconv( -M $file );             
         print( "Last modified at $time[0] days, ","$time[1] hours, $time[2] minutes, ","and $time[3] seconds ago.\n" );
      }
      elsif ( -d $file ) {   
         print( "$file is a directory!\n" );
      }
   }
   else {
      print( "$file doesn't exist.\n" );
   }

   print( "\n" );
}

sub timeconv
{
   my $time = shift();
   my $days = int( $time );
   $time = ( $time - $days ) * 24;
   my $hours = int( $time );
   $time = ( $time - $hours ) * 60;
   my $minutes = int( $time );
   $time = ( $time - $minutes ) * 60;
   my $seconds = int( $time );
   return ( $days, $hours, $minutes, $seconds );
}

   
    
    
    
  








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.Tests whether the file is empty before opening it for writing.
20.File test operators
21.File testing script
22.File-Test Operator Syntax
23.File-test operators that check information returned by stat.
24.File-test operators that test for permissions.
25.File Tests
26.File Tests for Age
27.File Tests for Execution
28.File Tests for Existence and Size
29.File Tests for Privileges
30.File Tests for Type
31.File Tests for Unix File Handle Types
32.File Test Operators[a]
33.Contents of the current directory
34.Get the size of a file
35.Some -X File Tests
36.does file exist?