Sponsored Content
Top Forums Shell Programming and Scripting Need to capture dates between start date and end date Using perl. Post 302539653 by fpmurphy on Monday 18th of July 2011 10:20:53 AM
Old 07-18-2011
Code:
#!/usr/bin/perl -w

use strict;

use DateTime;
use DateTime::Format::Strptime;

my $format = new DateTime::Format::Strptime ( pattern => '%d-%b-%Y', time_zone => 'EST', );
my $start = $format->parse_datetime($ARGV[0])->epoch();
my $finish = $format->parse_datetime($ARGV[1])->epoch();

while ($start <= $finish) {
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$julian,$isdst) = localtime($start);
    printf "%4d%02d%02d|%02d\n",  $year + 1900, $mon + 1,  $mday, int($julian/7) + 1;
    $start += 24*60*60;
}

Code:
$ ./test.pl 01-MAR-2011 10-MAR-2011
20110301|09
20110302|09
20110303|09
20110304|09
20110305|10
20110306|10
20110307|10
20110308|10
20110309|10
20110310|10


Last edited by fpmurphy; 07-21-2011 at 10:32 AM..
This User Gave Thanks to fpmurphy For This Post:
 

7 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Generate quarter dates with begin date and end date

Hi All, I am trying to generate quarter dates with user giving input as begin date and end date. Example: Input by user: begin_date = "2009-01-01" end_date = 2010-04-30" required output: 2009-01-01 2009-03-31 09Q01 2009-04-01 2009-06-30 09Q02 . . till 2010-01-01 2010-03-31 10Q01 ... (9 Replies)
Discussion started by: sol_nov
9 Replies

2. Shell Programming and Scripting

Compare Start date and End date...

Hi All, I have problem in my file. It has two date variable. There are 2 variables which has the values as below 1. START_MONTH = “Date(YYYYMM) format” Ex: 201008 2. END_MONTH = “Date(YYYYMM) format” Ex: 201105 The end date should be greater than start date. Now we... (3 Replies)
Discussion started by: suresh01_apk
3 Replies

3. Shell Programming and Scripting

Need to capture all dates between start date and End date.

Hi All, I enter Start date and end date as parameters. I need to capture dates between start date and end date. Please let me know if you have any idea the same. Thanks in advance. Nagaraja Akkivalli. (5 Replies)
Discussion started by: Nagaraja Akkiva
5 Replies

4. Shell Programming and Scripting

Extract week start,end date from given date in PERL

Hi All, what i want to do in perl is i should give the date at run time .Suppose date given is 23/12/2011(mm/dd/yyyy) the perl script shold find week start date, week end date, previous week start date,end date,next week start date, end date. In this case week start date will be-:12/19/2011... (2 Replies)
Discussion started by: parthmittal2007
2 Replies

5. Shell Programming and Scripting

Get the lines from logfile within start and end date

Hi guys, I am having the below logfile,date in yyyy-mm-dd 2013-08-02 *some content* 2013-08-02 *some content* 2013-08-02 *some content* 2013-08-03 *some content* 2013-08-05 *some content* from the above logfile i need to get the lines between the two timestamps,if i give... (5 Replies)
Discussion started by: mohanalakshmi
5 Replies

6. UNIX for Dummies Questions & Answers

Print start date to end date, given $1 & $2 in ksh

Dear all, I have an user passing 2 parameter 31/03/2015 and 02/04/2015 to a ksh script. How to print the start date to end date. Expected output is : 31/03/2015 01/04/2015 02/04/2015 Note : 1. Im using aix and ksh 2. I have tried to convert the given input into a date, didnt... (0 Replies)
Discussion started by: mr.rajaravi
0 Replies

7. UNIX for Beginners Questions & Answers

Splitting week start date and end date based on custom period start dates

Below are my custom period start and end dates based on a calender, these dates are placed in a file, for each period i need to split into three weeks for each period row, example is given below. Could you please help out to achieve solution through shell script.. File content: ... (2 Replies)
Discussion started by: nani2019
2 Replies
DateTime::Format::Epoch::Lilian(3pm)			User Contributed Perl Documentation		      DateTime::Format::Epoch::Lilian(3pm)

NAME
DateTime::Format::Epoch::Lilian - Convert DateTimes to/from Lilian Days SYNOPSIS
use DateTime::Format::Epoch::Lilian; my $dt = DateTime::Format::Epoch::Lilian->parse_datetime( 53244.5 ); # 2004-08-27T00:00:00 DateTime::Format::Epoch::Lilian->format_datetime($dt); # 53244.5 my $formatter = DateTime::Format::Epoch::Lilian->new(); my $dt2 = $formatter->parse_datetime( 53244.5 ); # 2004-08-27T00:00:00 $formatter->format_datetime($dt2); # 53244.5 DESCRIPTION
This module can convert a DateTime object (or any object that can be converted to a DateTime object) to the Modified Julian Day number. See DateTime::Format::Epoch::JD for a description. METHODS
Most of the methods are the same as those in DateTime::Format::Epoch. The only difference is the constructor. o new() Constructor of the formatter/parser object. It has no parameters. SUPPORT
Support for this module is provided via the datetime@perl.org email list. See http://lists.perl.org/ for more details. AUTHOR
Eugene van der Pijll <pijll@gmx.net> COPYRIGHT
Copyright (c) 2004 Eugene van der Pijll. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO
DateTime datetime@perl.org mailing list perl v5.10.1 2007-12-03 DateTime::Format::Epoch::Lilian(3pm)
All times are GMT -4. The time now is 02:16 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy