Shell Programming and Scripting

  use Business::Hours;
  $hours = Business::Hours->new();    
  # Get a Set::IntSpan of all the business hours in the next week.
  # use the default business hours of 9am to 6pm localtime.
  
  my %hours = (
        0 => { Name     => 'Sunday',
               Start    => '08:00',
               End      => '18:00' },

        1 => { Name     => 'Monday',
               Start    => '08:00',
               End      => '18:00' },
        
        2 => { Name     => 'Tuesday',
               Start    => '08:00',
               End      => '18:00' },

        3 => { Name     => 'Wednesday',
               Start    => '08:00',
               End      => '18:00' },

        4 => { Name     => 'Thursday',
               Start    => '08:00',
               End      => '18:00' },
        
        5 => { Name     => 'Friday',
               Start    => '08:00',
               End      => '18:00' },

        6 => { Name     => 'Saturday',
               Start    => '08:00',
               End      => '18:00' },
        ,
    );  


print $hours->for_timespan( Start => time(), End => time()+(86400*7) );
  
  
  print $hours->{$0};

print $hours->for_timespan(%hours);

http://search.cpan.org/dist/Business-Hours/lib/Business/Hours.pm#___top

#!/usr/bin/perl -w
    
use strict;
use Date::Parse;
my $datetime1="2007-12-31 16:50:00";
my $datetime2="2008-1-1 04:24:00";

my $epoch1 = str2time($datetime1);
my $epoch2 = str2time($datetime2);
#print "$epoch1, $epoch2\n";

use Business::Hours;
my $hours = Business::Hours->new();    

my %hours = (
      0 => { Name     => 'Sunday',
             Start    => '08:00',
             End      => '18:00' },

      1 => { Name     => 'Monday',
             Start    => '08:00',
             End      => '18:00' },
      
      2 => { Name     => 'Tuesday',
             Start    => '08:00',
             End      => '18:00' },

      3 => { Name     => 'Wednesday',
             Start    => '08:00',
             End      => '18:00' },

      4 => { Name     => 'Thursday',
             Start    => '08:00',
             End      => '18:00' },
      
      5 => { Name     => 'Friday',
             Start    => '08:00',
             End      => '18:00' },

      6 => { Name     => 'Saturday',
             Start    => '08:00',
             End      => '18:00' },
      ,
  );  

my $diffsec = $hours->between($epoch1,$epoch2);
my $diffmin = $diffsec/60;

printf("Diff is %2.2f min\n", $diffmin);

$ ./test.pl 
Diff is 70.00 min

use Business::Hours;
my $datetime1="2013-05-15 12:00";
my $datetime2="2013-05-17 15:00";
my $epoch1 = str2time($datetime1);
my $epoch2 = str2time($datetime2);
my $hours = Business::Hours->new();    
my $diffsec = $hours->between($epoch1,$epoch2);
my $str= strftime("\%H:\%M:\%S", gmtime($diffsec));

print "Hours format : $str ";
print "\n";

prints the exact output : Hours format : 23:00:01


But 

use Business::Hours;
my $datetime1="2013-05-15 12:00";
my $datetime2="2013-05-17 16:00";
my $epoch1 = str2time($datetime1);
my $epoch2 = str2time($datetime2);

my $hours = Business::Hours->new();    
my $diffsec = $hours->between($epoch1,$epoch2);
my $str= strftime("\%H:\%M:\%S", gmtime($diffsec));

print "Hours format : $str ";
print "\n";

prints the wrong output  :   Hours format : 00:00:01 (wrong output, should print 25:00:00 )

my $hours = int ($diffsec / 3600);
$diffsec = $diffsec % 3600;
my $minutes = int ($diffsec / 60);
$diffsec = $diffsec % 60;
my $seconds = $diffsec;
print "$hours:$minutes:$seconds\n";