nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

How to get duration between two system time

retesh

Hi All,

I am writing a perl script in which I need to get duration passed between two system time instances.

example: Lets take two system time:
Time 1: Sun Jun 3 01:24:09 2007
Time 2: Thu Jun 7 09:17:52 2007

Now how do I get time diference between these two instances in terms of number of days.

I have checked packages under the perl\lib directory such as DateTime.pm and Duration.pm file but could not figure out how to do so.

Please guide me people.

Find more posts tagged with

Comments

Migrateduser

See perl doc Date::Manip module information.

kaalraa

Hi All,

I am writing a perl script in which I need to get duration passed between two system time instances.

example: Lets take two system time:
Time 1: Sun Jun 3 01:24:09 2007
Time 2: Thu Jun 7 09:17:52 2007

Now how do I get time diference between these two instances in terms of number of days.

I have checked packages under the perl\lib directory such as DateTime.pm and Duration.pm file but could not figure out how to do so.

Please guide me people.

You have to change the datetime format in a epoch format, so that those can be manipulated.

nipper

You have to change the datetime format in a epoch format, so that those can be manipulated.

No he does not.

from perldoc Date::Manip

4. The amount of time between two dates.

$date1 = ParseDate($string1);
$date2 = ParseDate($string2);
$delta = DateCalc($date1,$date2,\$err);
=> 0:0:WK Smiley Very Happy

D:HH:MM

S the weeks, days, hours, minutes,
and seconds between the two
$delta = DateCalc($date1,$date2,\$err,1);
=> YY:MM:WK Smiley Very Happy

D:HH:MM

S the years, months, etc. between
the two

Read the documentation below for an explanation of the
difference.

retesh

Thanks a lot people for responding.I really acknowledge your efforts.

My problem still remains the same.

Perl Version: previously we were using version 5.6.1 built for MSWin32-x86-muti-thread.

Yesterday i installed another perl version from ActiveState.com: version 5.8.8 built for MSWin32-x86-muti-thread.

Unfortunately both these versions lacks packages: Date::Manip, Time::Interval, Time::Zone package. So i culd not use methods supported by these packages.

I have even gone through these useful files: DateTime.pm, Date.pm, Duration.pm but could not figure out how to get time interval passed between two system times in terms of days.

Friends if you get some time then please do similar time interval calculation at your end then tell me how to do so.
Please tell me which version of perl you use.

Also please send me the required packages or files or rather tell me where from can i download a perl version which has entire list of packages supported by perl.

-Thanks again everyone
Retesh

Sailesh

Unfortunately both these versions lacks packages: Date::Manip, Time::Interval, Time::Zone package. So i culd not use methods supported by these packages.

Why not download the module from net.

retesh

Hi Sailesh,
I have downloaded latest perl version as i had already mentioned but could not get the above mentioned packages in it.

Adam Stoller

Hi Sailesh,
I have downloaded latest perl version as i had already mentioned but could not get the above mentioned packages in it.

The non-core modules (or packages as you seem to want to call them) are downloaded using a utility which comes with the Perl you downloaded.

If you're using ActiveState - you can generally use the ppm utility.
If you're using iwperl - you can generally use the cpan utility

I suggest you look at the documentation for whichever you have - I'm more familiar with the latter than the former - but I think the instructions are somewhat similar:

% cpan
[color=brown]...
cpan> install Date::Manip
...
cpan> quit
%[/color]

Alternatively, you go to http://search.cpan.org, find the module you want, download it, unpack it, and "build" it yourself - the cpan and ppm utilities are generally easier though.

ISCBorisB

Thanks a lot people for responding.I really acknowledge your efforts.

My problem still remains the same.

Perl Version: previously we were using version 5.6.1 built for MSWin32-x86-muti-thread.

Yesterday i installed another perl version from ActiveState.com: version 5.8.8 built for MSWin32-x86-muti-thread.

Unfortunately both these versions lacks packages: Date::Manip, Time::Interval, Time::Zone package. So i culd not use methods supported by these packages.

I have even gone through these useful files: DateTime.pm, Date.pm, Duration.pm but could not figure out how to get time interval passed between two system times in terms of days.

Friends if you get some time then please do similar time interval calculation at your end then tell me how to do so.
Please tell me which version of perl you use.

Also please send me the required packages or files or rather tell me where from can i download a perl version which has entire list of packages supported by perl.

-Thanks again everyone
Retesh

Oh well, it would have been easier with Date::Manip. Still, in the absence of it you can do what you need in few lines of
code by converting your date/times in Epoch seconds (as proposed before).

Therefore the question: What is the source of your formatted time? In other words, where did you get your "Sun Jun 3 01:24:09 2007"
string from? It is certainly possible to convert it but it may be easier to start from the beginning. Whatever is your source it is
usually possible to format into more "parsing friendly" format like 2007/06/03 01:24:09. It may also be possible to use
Epoch seconds directly so that you do not need any parsing at all later on.

retesh

Thanks again people for showing your keen interest in this thread.

I have now downloaded Date::Manip module. But before downloading it I found another way to solve this problem:

-------------------------------------------------------------------------
open (DEB,"G:\\tmp\\$file");
my $lmd = localtime( (stat DEB)[9] );
print"\nLast Modified Date of $file : $lmd\n";
my ($sec1,$min1,$hour1,$mday1,$mon1,$year1,$wday1,$yday1,$isdst1) = localtime( (stat DEBUG)[9] );
print "second:$sec1\tminutes:$min1\tHour:$hour1\n";
print "Month Day:$mday1\tMonth:$mon1\tYear:$year1\n";
print "Week day:$wday1\tYear day:$yday1\tisdst:$isdst1\n";
close DEB;
-------------------------------------------------------------------------

This way I got year day from last modified date of $files which represents all the log files within a folder. I manipulated it to my purpose.

Now I face problem in deleting log files.

I am writing in my code: unlink($file);
$file represents file path. eg:$file="G:\tmp\wft_generate_teamsite_1811"

but the log files dosent get deleted doing this. Please tell me the way to get around this. The way to delete a single file from a folder.

I know we could use delete command to remove a list of files. but how to do what i intend to execute??

Depending on you guys again.

-Thanks
Retesh

Adam Stoller

[...]Now I face problem in deleting log files.

I am writing in my code: unlink($file);
$file represents file path. eg:$file="G:\tmp\wft_generate_teamsite_1811"

but the log files dosent get deleted doing this. Please tell me the way to get around this. The way to delete a single file from a folder.

I know we could use delete command to remove a list of files. but how to do what i intend to execute??

Depending on you guys again.

-Thanks
Retesh

First of all - if your code literally has:

...
my $file = "G:\tmp\wft_generate_teamsite_1811";
unlink($file);
...

it will fail. You either need to:

@old_files

@old_files)

retesh

Hi ghoti,

Thanks for reminding me the use of \\ to represent a backslash. It was a stupid mistake of mine.

Now both below mentioned code portion delete a single log file:
############################################
my $nf=q(G:\\tmp\\wft_generate_teamsite_1846.log);
unlink($nf);
############################################

############################################
my $nf="G:\\tmp\\wft_generate_teamsite_1847.log";
unlink($nf);
############################################

Actual Problem: when i retrieve each log file from a list of log files and then unlink it then it doesnt get deleted.

I have written a perl script to get list of all log files within a folder then only those files gets deleted who fall under a certain condition.

I try to explain this by writing few portion of the code:

####################################################
#@lockCmd represent list of all log files inside a folder

foreach $brtmp(@lockCmd) {
chomp($brtmp);
my $fl = $brtmp;
print FILE "\nFile in log folder : $fl\n";
&checkFile($fl);
}
####Sub routine to delete only those files which falls under the specied condition####

sub checkFile(){
my $log = shift;
if (condition fulfilled) {
my $dl = $log;
$dl =~ s/\\/\\\\/g;
print FILE "\nDeleting $dl\n";
if (unlink($dl) == 0) {
print FILE "File deleted successfully.";
} else {
print FILE "File was not deleted.";
}
}
}
####################################################

Now output of this code is:

--------------------------------------------------------------------------
Deleting G:\\tmp\\wft_generate_teamsite_1853.log
File deleted successfully.
--------------------------------------------------------------------------

But the log file represented by $dl still exsist in its folder.

I am clueless people. Please suggest me something.

Adam Stoller

[...]
Actual Problem: when i retrieve each log file from a list of log files and then unlink it then it doesnt get deleted.

I have written a perl script to get list of all log files within a folder then only those files gets deleted who fall under a certain condition.

I try to explain this by writing few portion of the code:
####################################################
#@lockCmd represent list of all log files inside a folder

foreach $brtmp(@lockCmd) {
chomp($brtmp);
my $fl = $brtmp;
print FILE "\nFile in log folder : $fl\n";
&checkFile($fl);
}
####Sub routine to delete only those files which falls under the specied condition####

sub checkFile(){
my $log = shift;
if (condition fulfilled) {
my $dl = $log;
$dl =~ s/\\/\\\\/g;
print FILE "\nDeleting $dl\n";
if (unlink($dl) == 0) {
print FILE "File deleted successfully.";
} else {
print FILE "File was not deleted.";
}
}
}
####################################################

Now output of this code is:

--------------------------------------------------------------------------
Deleting G:\\tmp\\wft_generate_teamsite_1853.log
File deleted successfully.
--------------------------------------------------------------------------

But the log file represented by $dl still exsist in its folder.

I am clueless people. Please suggest me something.

Your logic is incorrect in the above - try either:

if (unlink($dl) != 0) {
    print FILE "File $dl deleted successfully.";
} else {
    print FILE "File $dl was not deleted. ($!)";
}

unlink($dl) || warn("File $dl was not deleted ($!)\n");

Capture.PNG

retesh

Ok agreed.
But major concern here was to delete single log files inside the loop.

I have changed my code a bit. Now I am accumulating all the log files in an array after performing the condition check.
Then I am deleting the entire array by issuing: unlink(@arr);

so as of now my problem has been resolved but the logical question remains unanswered. Why this didnt worked: (unlink($dl);

so as of now my problem has been resolved but the logical question remains unanswered. Why this didnt worked: (unlink($dl);

It's not so much a *logical* question as simply bugs in your code.

Command $dl =~ s/\\/\\\\/g; creates an invalid Path, subsequent unlink returns the number of files successfully
deleted ( in your case, zero ) and you triumphantly print "File deleted successfully".

Adam Stoller

It's not so much a *logical* question as simply bugs in your code.

Command $dl =~ s/\\/\\\\/g; creates an invalid Path, subsequent unlink returns the number of files successfully
deleted ( in your case, zero ) and you triumphantly print "File deleted successfully".

Heh - I completely missed that - I'm so used to seeing people write

... =~ s/\\/\/\//g;

instead of the cleaner

... =~ tr|\\|/|;

that I overlooked it. Good eyes!