Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
executable file 204 lines (136 sloc) 3.149 kB
#!/usr/bin/env perl
=head1 NAME
ago - Show how long ago files/directories were modified
=cut
=head1 SYNOPSIS
General Options:
--help Show the help information for this script.
--verbose Show useful debugging information.
--seconds Show age in seconds only.
=cut
=head1 ABOUT
This utility shows how long ago the given file, or files, were modified.
Although it is possible to see this easily via `stat`, or even `ls`, this
utility shows the age in a more readable fashion. For example:
=for example begin
$ ago /etc/passwd
/etc/passwd 15 weeks ago
=for example end
An arbitrary number of files, sockets, or directories may be specified upon
the command-line.
=cut
=head1 AUTHOR
Steve
--
http://www.steve.org.uk/
=cut
=head1 LICENSE
Copyright (c) 2013 by Steve Kemp. All rights reserved.
This script is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
The LICENSE file contains the full text of the license.
=cut
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
#
# Get the options, either defaults or from the command line.
#
my %config = parsedOptions();
#
# Ensure we had files.
#
if ( !scalar @ARGV )
{
print "usage $0 file1 file2 .. fileN\n";
exit(0);
}
#
# Get the current day
#
my $NOW = time;
#
# Process each file
#
while ( my $file = shift )
{
showAge($file);
}
=begin doc
Show the age of the given file.
=end doc
=cut
sub showAge
{
my ($file) = (@_);
#
# Get the mtime
#
my $mtime = ( stat($file) )[9];
if ( !defined($mtime) )
{
printf STDERR "Failed to stat $file - $!\n";
return;
}
#
# Calculate age in seconds
#
my $age = $NOW - $mtime;
#
# Show the file + seconds, or the human-friendly version, as appropriate
#
if ( $config{ 'seconds' } )
{
print $file . " " . $age . "\n";
}
else
{
print $file . " " . duration($age) . "\n";
}
}
=begin doc
Convert a duration, in seconds, into a human-readable time-ago.
=end doc
=cut
sub duration
{
my ($seconds) = (@_);
if ( $seconds < 60 )
{
# less than a minute
return ("Just now");
}
if ( $seconds <= ( 60 * 60 ) )
{
# less than an hour
return ( int( $seconds / 60 ) . " minutes ago" );
}
if ( $seconds <= ( 60 * 60 * 24 ) )
{
# less than a day
return ( int( $seconds / ( 60 * 60 ) ) . " hours ago" );
}
if ( $seconds <= ( 60 * 60 * 24 * 7 ) )
{
# less than a week
return ( int( $seconds / ( 60 * 60 * 24 ) ) . " days ago" );
}
# fall-back weeks ago
return ( int( $seconds / ( 60 * 60 * 24 * 7 ) ) . " weeks ago" );
}
=begin doc
Parse the options and return suitable values.
=end doc
=cut
sub parsedOptions
{
my %vars;
exit
if (
!GetOptions( "help" => \$vars{ 'help' },
"verbose" => \$vars{ 'verbose' },
"seconds" => \$vars{ 'seconds' } ) );
pod2usage(1) if ( $vars{ 'help' } );
return (%vars);
}
Jump to Line
Something went wrong with that request. Please try again.