File::Touch - update access and modification timestamps, creating nonexistent files where necessary.
use File::Touch; @file_list = ('one.txt','../two.doc'); $count = touch(@file_list); use File::Touch; $reference_file = '/etc/passwd'; $touch_obj = File::Touch->new( reference => $reference_file, no_create => 1 ); @file_list = ('one.txt','../two.doc'); $count = $touch_obj->touch(@file_list);
Here's a list of arguments that can be used with the object-oriented contruction:
If nonzero, change only the access time of files. Default is zero.
If nonzero, change only the modification time of files. Default is zero.
If nonzero, do not create new files. Default is zero.
If defined, use timestamps from this file instead of current time. Default is undefined.
If defined, use this time (in epoch seconds) instead of current time for access time.
If defined, use this time (in epoch seconds) instead of current time for modification time.
use File::Touch; my @files = ('one','two','three'); my $count = touch(@files); print "$count files updated\n";
use File::Touch; my @files = ('one','two','three'); my $day = 24*60*60; my $time = time() + 30 * $day; my $ref = File::Touch->new( atime_only => 1, time => $time ); my $count = $ref->touch(@files); print "$count files updated\n";
use File::Touch; my @files = ('one','two','three'); my $day = 24*60*60; my $time = time() - 30 * $day; my $ref = File::Touch->new( mtime => $time, no_create => 1 ); my $count = $ref->touch(@files); print "$count files updated\n";
Nigel Wetters Gourlay (nwetters@cpan.org)
Copyright (c) 2001,2007,2009 Nigel Wetters Gourlay. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
To install File::Touch, copy and paste the appropriate command in to your terminal.
cpanm
cpanm File::Touch
CPAN shell
perl -MCPAN -e shell install File::Touch
For more information on module installation, please visit the detailed CPAN module installation guide.