Hi
I'd like to know if is it possible to find files given a certain modification date (say, 01-05-2006, that's 1st of May 2006)
I can calculate the days backward:
find / -ctime 23
but I wish to search by exact modification day
Thanks (5 Replies)
Hi,
I tried making a shell script which recursively search in a given directory for all files *.txt and then search and replace some text and after that
save each file as $filename.dynamips.txt
I would like to get this done with sed. I tried but couldn't get it to work.
BTW this is not... (1 Reply)
Inspite of my best efforts, eclipse 3.5 seems to continue to misbehave and insert tab characters in my source code.
How do I write a script execute from emacs to search all my files for tab characters and conveniently position me on the line of code that has the offending tab?
Here are my... (7 Replies)
Using either vim or awk or sed
If I wish to to search for an unknown pattern - lets say 1B2495 or 1Q2345
so Search pattern : 1
and replace the 1 with 2 to print out :
2B2495 or 2Q2345
what are the possible commands.
Struggling here - help would be appreciated. (5 Replies)
I would like to export the 5th line from every file within a directory. I am using GNU sed because we have no Unix or Linux environment. I used the following statement:
sed -s -n 5p c:\directory\*.*
but I only get the 5th line from one of the files in the directory. I am desperate for a... (1 Reply)
grep pattern filename
To search for the pattern in all files in the current directory and the sub-directories recursively, what needs to be substituted in filename? (1 Reply)
i have a file named keyword.csv(contains around 8k records) which contains a no. of columns.
The 5th column contains all the keywords.
I want to recursively search these keywords in all .pl files(around 1k) and display the filename....Afterthat i will use the filename and some of the column from... (3 Replies)
Hi there,
I am using AIX and trying to search and replace a string with another string in multiple files in different directories.
I wanted to search replace in steps so I don't change all of the instance anywhere in the server at once, minimizing impact.
STEP 1:
--------
I first searched... (5 Replies)
I love the -newerct flag for the Cygwin find command on windows.
Can I use "/usr/bin/find . -newerct '3 hours ago'" to conditionally copy a directory tree so that only the files in the directory tree that are younger than 3 hours are copied to my destination directory such that the directory... (4 Replies)
Discussion started by: siegfried
4 Replies
LEARN ABOUT DEBIAN
file::touch
Touch(3pm) User Contributed Perl Documentation Touch(3pm)NAME
File::Touch - update access and modification timestamps, creating nonexistent files where necessary.
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.
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
";
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
";
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
";
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.
perl v5.10.0 2009-07-25 Touch(3pm)