topic Re: Check time in Operating System - HP-UX

Check time

Trenta Angelo — Mon, 27 May 2002 12:31:10 GMT

Hi all,

I???ve a problem,
With this command: ls ???ltr events/e*/* |awk ???NR==1 [print $8]???

I find the oldest file in a directory.

This file is removed from time to time,
And I need to know if It is becoming is older than 20 minutes
I can compare time stamp with current date(date command)

But I don???t know thow to create script to understand
If this file is older than 20 minutes.

Regards, Angelo

Re: Check time

Peter Kloetgen — Mon, 27 May 2002 12:52:48 GMT

Hi Trenta,

all you need is a reference file which you need to compare with your found file.

man touch

touch reference_time filename

With this command you make a file with a reference time. Use this file with find command to check the age.

Allways stay on the bright side of life!

Peter

Re: Check time

Carlos Fernandez Riera — Mon, 27 May 2002 13:16:26 GMT

See this thread:

http://forums.itrc.hp.com/cm/QuestionAnswer/1,,0x1ac191ccb36bd611abdb0090277a778c,00.html

Re: Check time

James Beamish-White — Mon, 27 May 2002 13:20:09 GMT

Hi Angelo,

Well, you can get the similar date from from date '+%H:%m'. Try splitting the hour and minute and using expr to figure out if the difference is less than 20.

Cheers,
James

Re: Check time

Paula J Frazer-Campbell — Mon, 27 May 2002 13:20:32 GMT

Hi

Using your command:-

#!/bin/sh
# File Watcher
# Log file /tmp/fwatcher
fdate=`ls ???ltr events/e*/* |awk ???NR==1 [print $8]???`
date >>/tmp/fwatcher
echo $fdate >>/tmp/fwatcher
mailx -s "File Watcher log" (Your email address)

Cron it to run when you require and monitor the log file.

Quick, easy and mailed to your desktop.

Paula

Re: Check time

Chris Wilshaw — Mon, 27 May 2002 14:11:29 GMT

This is an extract from a perl program I use for the same sort of thing;

------------------------------------------

#!/usr/contrib/bin/perl

$now = time;

foreach $filename (@ARGV) {

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat $filename;

$age = ($now - $mtime) / 60 ;

if ( $age > 20 ) {
printf ("WARNING: %s is %d minutes old\n", $filename, $age);
}

}

---------------------------------------

All you do is run the script, with the file(s) you want the age of as parameters

eg: how_old.sh

Where is the name of the file that you've already obtained.

Re: Check time

H.Merijn Brand (procura — Mon, 27 May 2002 15:29:22 GMT

Chris, please check if you are /realy/ using /usr/contib/bin/perl, which is likely to be a *very* outdated perl version 4.036

Check if you've also got /opt/perl/bin/perl, which should be version 5.6.1

--8<---
#!/opt/perl/bin/perl -w

use strict;
my $now = time;

foreach my $filename (@ARGV) {
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat $filename;

$age = ($now - $mtime) / 60 ;

if ($age > 20) {
print "WARNING: $filename is $age minutes old\n";
}
}
-->8---

how_old.sh would be a very misleading name for a perl script. Please us .pl as extension, so others will still know what to expect.

eg: how_old.pl

There have been many more threads that look like this one, and the perl solution could be made much more flexible if you use the standard module File::Find.

The age of a file can also (and much easier) be determined with the -M and -A operators (age of the file since the start of the script measured in (fractions of) days

-M $file > 4 and die;