Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl: Finding next day
Top Forums Shell Programming and Scripting Perl: Finding next day Post 302428569 by durden_tyler on Thursday 10th of June 2010 09:17:52 AM
Old 06-10-2010
Quote:
Originally Posted by girish.raos
...
Example:: Input 09/10/2005
Output 09/11/2005
...
There's more than one way to do it in Perl !

Code:
$
$ echo "09/10/2005" | perl -M"Date::Calc" -lne '@x=split(/\//,$_);
  @y=Date::Calc::Add_Delta_YMD($x[2],$x[0],$x[1],0,0,1); printf("%02d/%02d/%4d\n", $y[1],$y[2],$y[0])'
09/11/2005
$
$
$ echo "02/28/2008" | perl -M"Date::Calc" -lne '@x=split(/\//,$_);
  @y=Date::Calc::Add_Delta_YMD($x[2],$x[0],$x[1],0,0,1); printf("%02d/%02d/%4d\n", $y[1],$y[2],$y[0])'
02/29/2008
$
$ echo "12/31/2009" | perl -M"Date::Calc" -lne '@x=split(/\//,$_);
  @y=Date::Calc::Add_Delta_YMD($x[2],$x[0],$x[1],0,0,1); printf("%02d/%02d/%4d\n", $y[1],$y[2],$y[0])'
01/01/2010
$
$ echo "02/28/1900" | perl -M"Date::Calc" -lne '@x=split(/\//,$_);
  @y=Date::Calc::Add_Delta_YMD($x[2],$x[0],$x[1],0,0,1); printf("%02d/%02d/%4d\n", $y[1],$y[2],$y[0])'
03/01/1900
$
$

tyler_durden
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

finding duplicates with perl

I have a huge file (over 30mb) that I am processing through with perl. I am pulling out a list of filenames and placing it in an array called @reports. I am fine up till here. What I then want to do is go through the array and find any duplicates. If there is a duplicate, output it to the screen.... (3 Replies)
Discussion started by: dangral
3 Replies

2. Shell Programming and Scripting

How to find 1 day old file on Windows for Active Perl

How to find 1 day old file on Windows for Active Perl? Is there anyone know the method? If UNIX or LINUX, we can use the "find ...". How to we do for Windows? (4 Replies)
Discussion started by: lcfoo
4 Replies

3. Shell Programming and Scripting

Finding out the first business Day of the month

Hi , I want to find out the first business day of the month using korn shell programming.... ie if March 1 is saturday , March 2 is sunday and 3 is monday My code should identify the First business day..as March 3.. hope u got it.. suggestions ??? Pls look into this asap...... (1 Reply)
Discussion started by: phani
1 Replies

4. Shell Programming and Scripting

Previous day's date in Perl?

Hi All, I want to find the previous day's date and store that in a variable, which will be usuful for further processing. Any help please. Regards, raju (4 Replies)
Discussion started by: rajus19
4 Replies

5. UNIX for Dummies Questions & Answers

How to find Day of the Week from the given date (Perl)?

How to find the Day of the Week of the given Date using perl? If I have a date in YYY--MM-DD format, how to find the DOW? Based on that, I need to find the following sunday. Pls help. (5 Replies)
Discussion started by: deepakwins
5 Replies

6. Shell Programming and Scripting

Deleting / finding files older than X days missess a day

Hi When trying to find and delete files which are, say, 1 day, the find command misses a day. Please refer the following example. xxxd$ find . -type f -ctime +1 -exec ls -ltr {} \; total 64 -rw-rw-r-- 1 oracle xxxd 81 Apr 30 11:25 ./ful_cfg_tmp_20080429_7.dat -rw-rw-r-- 1... (4 Replies)
Discussion started by: guruparan18
4 Replies

7. Shell Programming and Scripting

Finding perl files without documentation

I have an application consisting of a number of perl files. I want to find those perl files that have no documentation yet, so I tried the following from the root level of the directory where the application resides: perldoc -r * The output is something like the following: No documentation found... (2 Replies)
Discussion started by: figaro
2 Replies

8. Shell Programming and Scripting

Finding Day of the week from date

I have a problem of Finding Day of the week from date, but i need to do it within awk On SOLARIS Input:20101007(YYYYMMDD) Output:Thursday kindly provide suggestions. Thanks in advance (8 Replies)
Discussion started by: junaid.nehvi
8 Replies

9. Shell Programming and Scripting

finding the previous day date and creating a file with date

Hi guys, I had a scenario... 1. I had to get the previous days date in yyyymmdd format 2. i had to create a file with Date inthe format yyyymmdd.txt format both are different thanks guys in advance.. (4 Replies)
Discussion started by: apple2685
4 Replies

10. UNIX for Beginners Questions & Answers

Perl script with lock to execute only once in a day

Hi, I am new to perl and have a script to which i want to ensure that no matter how many ever times i execute the script it should execute only once per day. Cronjob is not a safe method as I want to built in capability inside the script. (1 Reply)
Discussion started by: ctrld
1 Replies

LEARN ABOUT SUSE

date::calc::xs

Date::Calc::XS(3pm)                                     User Contributed Perl Documentation                                    Date::Calc::XS(3pm)

NAME

       Date::Calc::XS - XS wrapper and C library plug-in for Date::Calc

SYNOPSIS

       You never use this module directly.  Use Date::Calc(3) instead!

DESCRIPTION

       You never use this module directly.  Use Date::Calc(3) instead!

SEE ALSO

       Date::Calc(3), Date::Calc::PP(3).

VERSION

       This man page documents "Date::Calc::XS" version 6.3.

AUTHOR

         Steffen Beyer
         mailto:STBEY@cpan.org
         http://www.engelschall.com/u/sb/download/

COPYRIGHT

       Copyright (c) 1995 - 2012 by Steffen Beyer. All rights reserved.

LICENSE

       This package is free software; you can use, modify and redistribute it under the same terms as Perl itself, i.e., at your option, under the
       terms either of the "Artistic License" or the "GNU General Public License".

       The C library at the core of the module "Date::Calc::XS" can, at your discretion, also be used, modified and redistributed under the terms
       of the "GNU Library General Public License".

       Please refer to the files "Artistic.txt", "GNU_GPL.txt" and "GNU_LGPL.txt" in the "license" subdirectory of this distribution for any
       details!

DISCLAIMER

       This package is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

       See the "GNU General Public License" for more details.

perl v5.14.2                                                        2012-05-17                                                 Date::Calc::XS(3pm)
All times are GMT -4. The time now is 07:21 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy