Sponsored Content
Top Forums Shell Programming and Scripting Validating date in yyyymmdd format using PERL Post 302630683 by itkamaraj on Thursday 26th of April 2012 06:54:34 AM
Old 04-26-2012
Code:
 
$ cat one.pl
#!/bin/perl
use Time::Local;
my $date = $ARGV[0];
$date =~ s/\s+$//;
$date =~ s/^\s*//;
my ($year, $month, $day) = unpack "A4 A2 A2", $date;
eval{ 
    timelocal(0,0,0,$day, $month-1, $year); # dies in case of bad date
    print "$date is valid\n";
} or print "Bad date: $@";

Code:
bash-3.2$ perl one.pl 20120430
20120430 is valid

bash-3.2$ perl one.pl 20120431
Bad date: Day '31' out of range 1..30 at one.pl line 8

bash-3.2$ perl one.pl 20120231
Bad date: Day '31' out of range 1..29 at one.pl line 8

bash-3.2$ perl one.pl 20120229
20120229 is valid

bash-3.2$ perl one.pl 20120230
Bad date: Day '30' out of range 1..29 at one.pl line 8

These 4 Users Gave Thanks to itkamaraj For This Post:
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

get yesterday date in yyyymmdd format

I would like to know how I could get a yesterday date in yyyymmdd e.g. today is 20011109, and I would like to get 20011108. Thank you!:confused: (2 Replies)
Discussion started by: hk_newbie
2 Replies

2. HP-UX

How can i get the yesterday's date in YYYYMMDD format

How can i get the yesterday's date in YYYYMMDD format??? (4 Replies)
Discussion started by: prasadsr
4 Replies

3. UNIX for Dummies Questions & Answers

Format date from MM/DD/YYYY to YYYYMMDD

I have a file with some date columns in MM/DD/YYYY format: SMPBR|DUP-DO NOT USE|NEW YORK||16105|BA5270715|6/6/2007 |MWERNER|109||||JOHN||SMITH|MD|72211118||||||74559|21 WILMINGTON RD||D|11/6/2003|SL# MD CONTACT-LIZ RICHARDS|||0|Y|N||1411458| And I want to convert the date format to: ... (5 Replies)
Discussion started by: ChicagoBlues
5 Replies

4. Shell Programming and Scripting

convert date format YYYYMMDD to MM/DD/YYYY

In my shell script i have a variable which stores date in the format of YYYYMMDD. Is there any way to format this value to MM/DD/YYYY. Thanks. (8 Replies)
Discussion started by: nasirgondal
8 Replies

5. Shell Programming and Scripting

PERL String to Date (Custom format yyyymmdd to dd-mon-yyyy)

Hi All, I am learning PERL for one of the projects, and in one of these scripts, I read a flat text file and print in the terminal. The problem is, the text file has a date field. The format is yyyymmdd. I need to display this as dd-mon-yyyy. Any ideas to do this? Thanks a lot for the... (9 Replies)
Discussion started by: guruparan18
9 Replies

6. Shell Programming and Scripting

Change the date format from mmddyyyy to yyyymmdd

How do I change the date format from mmddyyyy to yyyymmdd in PERL. Can any one help me please. (3 Replies)
Discussion started by: thankful123
3 Replies

7. Solaris

Date after 5 dates in YYYYMMDD format

Hi Experts, How to get date 5 days after current date in YYYYMMDD format? How do we compare date in YYYYMMDD format? Thanks (1 Reply)
Discussion started by: needyourhelp10
1 Replies

8. Shell Programming and Scripting

Date after 5 days from current date in YYYYMMDD format

Hello Experts, How do i get date after 5 days from current date in YYYYMMDD format? How do you compare date in YYYYMMDD format? Thanks (8 Replies)
Discussion started by: needyourhelp10
8 Replies

9. Shell Programming and Scripting

Date format to be changed from DDMMYYYY to YYYYMMDD

My requirement is:- there will be files at a location each day with the date format DDMMYYYY. Novawise_Activity_Call_Notes_04022013.txt Novawise_Activity_Inbound_04022013.txt Novawise_Activity_Inbound_05022013.txt Novawise_Activity_Call_Notes_05022013.txt... (8 Replies)
Discussion started by: djrulz123
8 Replies

10. Programming

Date format change from mm/dd/yyyy to yyyymmdd in comma seperate line in perl

Hi All, I have line ,A,FDRM0002,12/21/2017,,0.961751583,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, it contains date in mm/dd/yyyy format i want to change this to yyyymmdd format using perl. Use code tags, thanks. (8 Replies)
Discussion started by: vishal0746
8 Replies
widget_calendar(n)					    widget::calendar Megawidget 					widget_calendar(n)

__________________________________________________________________________________________________________________________________________________

NAME
widget_calendar - widget::calendar Megawidget SYNOPSIS
package require Tcl 8.4 package require Tk 8.4 package require widget ?3.0? widget::calendar pathname ?options? _________________________________________________________________ DESCRIPTION
This package provides a calendar megawidget (snidget). widget::calendar pathname ?options? WIDGET OPTIONS
-command A script to evaluate when a date was selected. -dateformat The format of the date that is returned. Default: %m/%d/%Y. -firstday Set first day the week, Either sunday or monday. It defaults to monday. -font Select the font used in the widget. It defaults to Helvetica 9. -highlightcolor Selects the background color for the day that has been selected. Default: #FFCC00 -language Specify language of the calendar contents. The language is specified by abbreviations of the languge, for example: en - english, de - german ... It defaults to en. Supported languages: en, de, fr, it, es, pt, ru, sv, zh, fi -shadecolor Selects the color of the parts that have a shaded background. Default: #888888 -showpast Specify if the past shall be shown. It is a boolean value and defaults to 1. -textvariable Specifies the name of a variable whose value is linked to the entry widget's contents. Whenever the variable changes value, the widget's contents are updated, and vice versa. WIDGET COMMAND
pathname get ?what? Returns a part of the selected date or 'all'. The argument what selects the part. Valid values for what are: day, month, year and all. 'all' is the default and returns the complete date in the format given with -dateformat. DEFAULT BINDINGS
On creation of the calendar widget the following bindings are installed. o Up - Move to week before current date o Down - Move to week after current date o Left - Move to day before current date o Right - Move to day after current date o Control-Left - Move to month before current date o Control-Right - Move to month after current date o Control-Up - Move to year before current date o Control-Down - Move to year after current date EXAMPLE
package require widget::calendar ; # or widget::all set t [widget::calendar .t] pack $t -fill x -expand 1 KEYWORDS
megawidget, snit, widget widget 0.93 widget_calendar(n)
All times are GMT -4. The time now is 05:53 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy