I can not say that i am new to perl but today i learned something new, i wanted to know age (last time file got modified) of file so i initially thought of using find -mtime command but when i googled it, i found perl solution for the same
this gives when my file was last modified... can someone explain me what is this "-M" doing ??
I tried googling it but frankly i didnt know what to search for .
Also if you could give me link which explains this stuff then that will be more useful for me ..
Hi,
I want to know my file is 1 hr 30 min old or not,
If 1 hr 30 min old I will do some tasks in that file.. other wise I will wait to 1 hr 30 min and then do the tasks.. how to do it in Unix script? any idea? (3 Replies)
I can write a script to use ps and interigate the output, but is there a command that works similar to the find command for files where I can request a list of all the running processes over 1 day old ?
thanks! (8 Replies)
KSH:
Please lt me know how to find the age of a file in minutes(Based on last modified time).
ie, if the file was modified 15 Minutes ago, the output should be 15 (1 Reply)
I am trying to figure out how to look at only the following directory...
/lcl/prd/data/dc003p/dump
And search it for any files that have a .arc extension and are older then 24 hours.
I have never done anything like this and have no idea where to start. I want to make sure it does not... (10 Replies)
Hi all,
I'm using SunOS.
need to find age of the file in terms of seconds. The file
name with its path will be given to the script as input.
Any kinda help will be appreciated.
Thanks in advance (7 Replies)
I am using AIX 6.1 and would like to use a one line command to determine the age of a file in days. I would like to look at a specific file.
I would like to use the command to run on a remote server (AIX 6.1) to return the age of a specific file in days. So if the file is 42 days old I would... (2 Replies)
Hello all,
Below is scripts to find the file following by:
30 days <- How many total file space within 30 days and not quantity
90 days
120 days
1 year
From here also I can get data space to put on PIE Chart. Following this scripts can I do some enhance from this scripts like do... (1 Reply)
hi,
i am working on a shell script where i have 2 files & i need to check age of those files. one file should be of the same day and other shoudn't be more then 20 days old.
how could i acheive this? please help!!!! (10 Replies)
Hi All..
Is there any easy way to find out how many days older is file?
for ex. fileA 20 days
fileB 10 days
I am currently on AIX, and there is no STAT command available in this environment. What are my options?
Thanks
Abhijeet R (1 Reply)
Discussion started by: freakabhi
1 Replies
LEARN ABOUT DEBIAN
file::find::rule::extending
File::Find::Rule::Extending(3pm) User Contributed Perl Documentation File::Find::Rule::Extending(3pm)NAME
File::Find::Rule::Extending - the mini-guide to extending File::Find::Rule
SYNOPSIS
package File::Find::Rule::Random;
use strict;
# take useful things from File::Find::Rule
use base 'File::Find::Rule';
# and force our crack into the main namespace
sub File::Find::Rule::random () {
my $self = shift()->_force_object;
$self->exec( sub { rand > 0.5 } );
}
1;
DESCRIPTION
File::Find::Rule went down so well with the buying public that everyone wanted to add extra features. With the 0.07 release this became a
possibility, using the following conventions.
Declare your package
package File::Find::Rule::Random;
use strict;
Inherit methods from File::Find::Rule
# take useful things from File::Find::Rule
use base 'File::Find::Rule';
Force your madness into the main package
# and force our crack into the main namespace
sub File::Find::Rule::random () {
my $self = shift()->_force_object;
$self->exec( sub { rand > 0.5 } );
}
Yes, we're being very cavalier here and defining things into the main File::Find::Rule namespace. This is due to lack of imaginiation on
my part - I simply can't find a way for the functional and oo interface to work without doing this or some kind of inheritance, and
inheritance stops you using two File::Find::Rule::Foo modules together.
For this reason try and pick distinct names for your extensions. If this becomes a problem then I may institute a semi-official registry
of taken names.
Taking no arguments.
Note the null prototype on random. This is a cheat for the procedural interface to know that your sub takes no arguments, and so allows
this to happen:
find( random => in => '.' );
If you hadn't declared "random" with a null prototype it would have consumed "in" as a parameter to it, then got all confused as it doesn't
know about a '.' rule.
AUTHOR
Richard Clamp <richardc@unixbeard.net>
COPYRIGHT
Copyright (C) 2002 Richard Clamp. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
File::Find::Rule
File::Find::Rule::MMagic was the first extension module, so maybe check that out.
perl v5.12.4 2011-09-19 File::Find::Rule::Extending(3pm)