http://www.perlmonks.org?node_id=871983


in reply to Re: Date and time difference
in thread Date and time difference

Hours will be like 24 hours.
yes for 24 hours i want that to be '00' only and the day should be next day.
currently we don't have right to install any modules from cpan. we can use only input modules in perl.

Replies are listed 'Best First'.
Re^3: Date and time difference
by mjscott2702 (Pilgrim) on Nov 17, 2010 at 12:41 UTC
    Well, if you can't install any CPAN modules, you could use a module that comes bundled with perl, namely POSIX. The below example code shows how to create a calendar time for December 12, 1995, at 10:30 am: 

    $time_t = POSIX::mktime( 0, 30, 10, 12, 11, 95 );
print "Date = ", POSIX::ctime($time_t);

    [download]

    Presumably you could create 2 calendar times and subtract one from the other using difftime, which will give you the difference in seconds - format as required for display.

    UPDATE (small example):

    use strict;
use warnings;
use POSIX qw(mktime difftime ctime);

my $previous = '10111623';
my $current = '10111705';

my $time1 = mktime( 0, 0, $4, $3, $2 - 1, $1 + 100 ) if $previous =~ m
+/(\d\d)(\d\d)(\d\d)(\d\d)/;
my $time2 = mktime( 0, 0, $4, $3, $2 - 1, $1 + 100 ) if $current =~ m/
+(\d\d)(\d\d)(\d\d)(\d\d)/;

printf("%s - %s = %d seconds\n", ctime($time2), ctime($time1), difftim
+e($time2, $time1));

    [download]

    Output:

    Wed Nov 17 05:00:00 2010 - Tue Nov 16 23:00:00 2010 = 21600 seconds
[reply]
[d/l]
[select]
Re^3: Date and time difference
by JavaFan (Canon) on Nov 17, 2010 at 12:34 UTC
    currently we don't have right to install any modules from cpan. we can use only input modules in perl.
    That's a (silly) political problem not for us to solve. Besides, you can always copy the code from the module and put it in your code (assuming you have the right to install that - if they're consistent, you shouldn't be allowed to install/run your code, it not being part of "perl").
[reply]
Re^3: Date and time difference
by Anonymous Monk on Nov 18, 2010 at 12:10 UTC
[reply]

In Section Seekers of Perl Wisdom