GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages


Manual Reference Pages  -  FILE::TOUCH (3)

.ds Aq ’

NAME

File::Touch - update file access and modification times, optionally creating files if needed

CONTENTS

SYNOPSIS



 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);



DESCRIPTION

Here’s a list of arguments that can be used with the object-oriented contruction:
atime_only => [0|1] If nonzero, change only the access time of files. Default is zero.
mtime_only => [0|1] If nonzero, change only the modification time of files. Default is zero.
no_create => [0|1] If nonzero, do not create new files. Default is zero.
reference => $reference_file If defined, use timestamps from this file instead of current time. Default is undefined.
time => $time If defined, then this value will be used for both access time and modification time, whichever of those are set. This time is overridden by the atime and mtime arguments, if you use them.
atime => $time If defined, use this time (in epoch seconds) instead of current time for access time.
mtime => $time If defined, use this time (in epoch seconds) instead of current time for modification time.

Examples

    Update access and modification times, creating nonexistent files



 use File::Touch;
 my @files = (one,two,three);
 my $count = touch(@files);
 print "$count files updated\n";



    Set access time forward, leave modification time unchanged



 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";



    Set modification time back, update access time, do not create nonexistent files



 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";



REPOSITORY

<https://github.com/neilb/File-Touch>

AUTHOR

Nigel Wetters Gourlay (nwetters@cpan.org)

COPYRIGHT

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.
Search for    or go to Top of page |  Section 3 |  Main Index


perl v5.20.3 FILE::TOUCH (3) 2015-10-24

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with manServer 1.07.