Sponsored Content
Top Forums Shell Programming and Scripting Perl : unable to frame code with Business:Hours module with example Post 302822697 by rajamadhavan on Tuesday 18th of June 2013 05:13:11 AM
Old 06-18-2013
Code:
#!/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);

Code:
$ ./test.pl 
Diff is 70.00 min

This User Gave Thanks to rajamadhavan For This Post:
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Replace Perl Module name in all Perl scripts

I want to replace a Perl module name in all my Perl Scripts in the cgi-bin directory. How is it possible? I have the following statement in my scripts use myUtil; I want to change it to use myUtil777; Regards, Rahul (2 Replies)
Discussion started by: rahulrathod
2 Replies

2. Solaris

Unable to load module

Hey guys i got this error in my messages: warning : mod_load: cannot load module sbd - I dont know anything about this. - How do i verify if there is a module sbd - What are the reasons modules cant be loaded (1 Reply)
Discussion started by: sbn
1 Replies

3. Solaris

unable to detect new cpu/memory module

Hi all, I just add in new cpu/memory module into SFV480 and unable to see new module on slot B. I already try many way like only 1 new module and swap the both module and boot up but still unable to see it. If I only install the module into slot B, then the server is unbootable at all. I... (1 Reply)
Discussion started by: mailbox80
1 Replies

4. OS X (Apple)

Unable to install Perl module via CPAN

Hi, I am trying to install Unicode::String from the cpan shell, and here is what I get: Checking if your kit is complete... Looks good Writing Makefile for Unicode::String cp String.pm blib/lib/Unicode/String.pm cp lib/Unicode/CharName.pm blib/lib/Unicode/CharName.pm... (3 Replies)
Discussion started by: psychomachine
3 Replies

5. Shell Programming and Scripting

calling perl subroutine from perl expect module

All, Is it possible to call a subroutine from the perl expect module after logging to a system that is within the same program. My situation is I need to run a logic inside a machine that I'm logging in using the expect module, the logic is also available in the same expect program. Thanks,... (5 Replies)
Discussion started by: arun_maffy
5 Replies

6. Shell Programming and Scripting

Unable to Install "Devel-Profile" perl module in windows.

Hi, I want to install 'Devel-Profile' in windows but i am not able to install. Here is the error. PPM> install Devel-Profile Install package 'Devel-Profile?' (y/N): y Installing package 'Devel-Profile'... Error installing package 'Devel-Profile': Could not locate a PPD file for... (3 Replies)
Discussion started by: vanitham
3 Replies

7. Infrastructure Monitoring

Nagios - alert during business hours

Is there a way for certain nagios alerts to only alert during business hours? (1 Reply)
Discussion started by: streetfighter2
1 Replies

8. Shell Programming and Scripting

Unable to install module using cpan

Hi, I am unable to install module using cpan. It says 407 Proxy Authentication Required I did setup proxy server and given username and password in .bashrc file and apt.conf file. export http_proxy=http://username:password@proxyserver:portno/ However, still unable to install... (1 Reply)
Discussion started by: Anjan1
1 Replies

9. Shell Programming and Scripting

awk : Search for text between two time frame (12 hours)

I have created the script to grep the errors from weblogic logs files and redirecting output to file.txt ...From file.txt I'm using awk command to collect the past 20 mins output...The script running from cron every 15 mins... The script working well... Now the challenges, I'm trying to use... (27 Replies)
Discussion started by: zenkarthi
27 Replies

10. Shell Programming and Scripting

CGI Perl : only frame is getting updated

I am working on CGI perl and trying to overcome the below problem.. I have divided the page into 3 frames( attached the screenshot) how to my frameset look like. In frame2, there will be a cgi script consisting on names(links), when clicked on link , the frame3 should get changed. But in... (1 Reply)
Discussion started by: scriptscript
1 Replies
XML::Parser::LiteCopy(3pm)				User Contributed Perl Documentation				XML::Parser::LiteCopy(3pm)

NAME
XML::Parser::LiteCopy - Lightweight regexp-based XML parser SYNOPSIS
use XML::Parser::LiteCopy; $p1 = new XML::Parser::LiteCopy; $p1->setHandlers( Start => sub { shift; print "start: @_ " }, Char => sub { shift; print "char: @_ " }, End => sub { shift; print "end: @_ " }, ); $p1->parse('<foo id="me">Hello World!</foo>'); $p2 = new XML::Parser::LiteCopy Handlers => { Start => sub { shift; print "start: @_ " }, Char => sub { shift; print "char: @_ " }, End => sub { shift; print "end: @_ " }, } ; $p2->parse('<foo id="me">Hello <bar>cruel</bar> World!</foo>'); DESCRIPTION
This Perl implements an XML parser with a interface similar to XML::Parser. Though not all callbacks are supported, you should be able to use it in the same way you use XML::Parser. Due to using experimantal regexp features it'll work only on Perl 5.6 and above and may behave differently on different platforms. Note that you cannot use regular expressions or split in callbacks. This is due to a limitation of perl's regular expression implementation (which is not re-entrant). SUBROUTINES
/METHODS new Constructor. As (almost) all SOAP::Lite constructors, new() returns the object called on when called as object method. This means that the following effectifely is a no-op if $obj is a object: $obj = $obj->new(); New accepts a single named parameter, "Handlers" with a hash ref as value: my $parser = XML::Parser::Lite->new( Handlers => { Start => sub { shift; print "start: @_ " }, Char => sub { shift; print "char: @_ " }, End => sub { shift; print "end: @_ " }, } ); The handlers given will be passed to setHandlers. setHandlers Sets (or resets) the parsing handlers. Accepts a hash with the handler names and handler code references as parameters. Passing "undef" instead of a code reference replaces the handler by a no-op. The following handlers can be set: Init Start Char End Final CData Doctype Comment PI All other handlers are ignored. Calling setHandlers without parameters resets all handlers to no-ops. parse Parses the XML given. In contrast to XML::Parser's parse method, parse() only parses strings. Handler methods Init Called before parsing starts. You should perform any necessary initializations in Init. Start Called at the start of each XML node. See XML::Parser for details. Char Called for each character sequence. May be called multiple times for the characters contained in an XML node (even for every single character). Your implementation has to make sure that it captures all characters. End Called at the end of each XML node. See XML::Parser for details Comment See XML::Parser for details PI See XMLDecl in XML::Parser for details, but also includes other processing instructions Doctype See XML::Parser for details Final Called at the end of the parsing process. You should perform any necessary cleanup here. SEE ALSO
XML::Parser COPYRIGHT
Copyright (C) 2000-2007 Paul Kulchenko. All rights reserved. Copyright (C) 2008 Martin Kutter. All rights reserved. Copyright (C) 2009 Cal Henderson. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. This parser is based on "shallow parser" http://www.cs.sfu.ca/~cameron/REX.html Copyright (c) 1998, Robert D. Cameron. AUTHOR
Paul Kulchenko (paulclinger@yahoo.com) Martin Kutter (martin.kutter@fen-net.de) Additional handlers supplied by Adam Leggett. Further modifications by Cal Henderson. perl v5.12.3 2011-06-05 XML::Parser::LiteCopy(3pm)
All times are GMT -4. The time now is 08:23 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy