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

Sponsored Content

Top Forums UNIX for Dummies Questions & Answers How to find Day of the Week from the given date (Perl)? Post 302173715 by deepakwins on Friday 7th of March 2008 03:45:45 PM

03-07-2008

Registered User

Thanks for your effort.
Iam able to write up my own code.

Code:

my $MaxDate = '2008-03-07';

my ($MaxYear, $MaxMonth, $MaxDay, @monthDays, $YearSec, $MonthSec, $DaySec, $i);
$MaxYear = substr($MaxDate,0,4);
$MaxMonth = substr($MaxDate,5,2);
$MaxDay = substr($MaxDate,8,4);
@monthDays = (0,31,28,31,30,31,30,31,31,30,31,30,31);
(($MaxMonth = 12) && (--$MaxYear)) if (--$MaxMonth == 0);
$i=1970;
while (++$i <= $MaxYear) {
	(!($i % 400) && ($YearSec += 366)) || (!($i % 100) && ($YearSec += 365)) || (!($i % 4) && ($YearSec += 366)) || ($YearSec += 365);
}
$YearSec = $YearSec * 24 * 60 * 60;
(!($MaxYear % 400) && ($monthDays[2] = 29)) || !($MaxYear % 100) || (!($MaxYear % 4) && ($monthDays[2] = 29));
$i =0;
($MonthSec += $monthDays[$i] * 24 * 60*60) while (++$i <= $MaxMonth);
my $DaySec = ($MaxDay-1) * 24 * 60 * 60;
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(18000+$YearSec+$MonthSec+$DaySec);
$year += 1900;
$mon += 1;
my $ProcessDatetime = sprintf "%4d%02d%02d%02d%02d%02d",$yedar,$mon,$mday,$hour,$min,$sec;

later found another simple method of

Code:

	my $MaxYear = substr($MaxDate,0,4);
	my $MaxMonth = substr($MaxDate,5,2);
	my $MaxDay = substr($MaxDate,8,4);
	my $weekday =  strftime("%u", 0, 0, 0, $MaxDay , $MaxMonth - 1, $MaxYear - 1900, -1, -1, -1);
	$MaxDay += 7-$weekday;
	my $sunday =  strftime("%Y%m%d", 0, 0, 0, $MaxDay , $MaxMonth - 1, $MaxYear - 1900, -1, -1, -1);

deepakwins

View Public Profile for deepakwins

Find all posts by deepakwins

10 More Discussions You Might Find Interesting

1. HP-UX

Get Day of Week from date

Hi All, I have date in string format 'YYYY-MM-DD'. I want to know day of the week for this date. Example. For '2005-08-21' my script should return '0' or Sunday For '2005-08-22' it should return '1' or Monday I want piece of code for HP-UX korn shell. Appreciate reply on this.

2. UNIX and Linux Applications

How to find 'Day of week' in Linux system

Hi All, I want to find a day of week for the Linux system. can some one help me on this.. Thanks in advance, Raji.

3. Shell Programming and Scripting

Function to get day of week from YYYY-MM-DD date

Can't find out how to get the day of the week from a given date, anyone got a code snippet that could help please? Ta!!

4. Shell Programming and Scripting

how to obtain date and day of the week from `date` command

Hi, does anybody know how to format `date` command correctly to return the day of the week? Thanks -A I work in ksh....

5. 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

6. Shell Programming and Scripting

How to add day of week at the end of each line that shows the date?

I have a file that looks like: file1: www_blank_com 20121008153552 www_blank_com 20121008162542 www_blank_com 20121009040540 www_blank_com 20121009041542 www_blank_com 20121010113548 www_blank_com 20121011113551 www_blank_com 20121012113542 I want the new file to show the day of...

7. HP-UX

Find Day of Week

In HP-UX the date command does not have the "-d" switch like some other *nixes do. I'm working a simple script to tell me, given the day, month and year what day of the week that falls on. Assuming valid day, month and year input (I'd perform quality checks on the input separately, but not...

8. Shell Programming and Scripting

How to obtain a day of the week from the date?

I have a date in format YYYYMMDD, i need to get the day of the week from the given date. I am working in AIX system. ---------- Post updated at 09:59 AM ---------- Previous update was at 09:57 AM ---------- Tried to post sum of the thread's link from which i tried, but de rules didnt allow me...

9. Shell Programming and Scripting

How to get the consecutive last 10 week day date using UNIX ksh shell scripting?

Hi, i am writing a ksh shell script to check the last month end date whether it is falling in last 10 week day date, I am not sure How to use "Mr. Perderabo's date calculator", Could you Please let me know how to use to get my requirement, I tried my own script but duplicate week day and...

10. Shell Programming and Scripting

Reading in MM/DD/YY, find Day of Week

Hi everyone, I have a shell script that merges many files down in to one, then removes unwanted lines, that part is working fine: #!/bin/bash FILES=/home/pi/temp/qbd/* for f in $FILES do echo "Processing $f file..." # take action on each file. $f store current file name echo...

LEARN ABOUT DEBIAN

mojo::date

Mojo::Date(3pm) 					User Contributed Perl Documentation					   Mojo::Date(3pm)

NAME

       Mojo::Date - HTTP 1.1 date container

SYNOPSIS

	 use Mojo::Date;

	 my $date = Mojo::Date->new(784111777);
	 my $http_date = $date->to_string;
	 $date->parse('Sun, 06 Nov 1994 08:49:37 GMT');
	 my $epoch = $date->epoch;

DESCRIPTION

       Mojo::Date implements HTTP 1.1 date and time functions according to RFC 2616.

	 Sun, 06 Nov 1994 08:49:37 GMT	; RFC 822, updated by RFC 1123
	 Sunday, 06-Nov-94 08:49:37 GMT ; RFC 850, obsoleted by RFC 1036
	 Sun Nov  6 08:49:37 1994	; ANSI C's asctime() format

ATTRIBUTES

       Mojo::Date implements the following attributes.

   "epoch"
	 my $epoch = $date->epoch;
	 $date	   = $date->epoch(784111777);

       Epoch seconds.

METHODS

       Mojo::Date inherits all methods from Mojo::Base and implements the following new ones.

   "new"
	 my $date = Mojo::Date->new;
	 my $date = Mojo::Date->new($string);

       Construct a new Mojo::Date object.

   "parse"
	 $date = $date->parse('Sun Nov	6 08:49:37 1994');

       Parse date in one of the following formats.

	 - Epoch format(784111777)
	 - RFC 822/1123 (Sun, 06 Nov 1994 08:49:37 GMT)
	 - RFC 850/1036 (Sunday, 06-Nov-94 08:49:37 GMT)
	 - ANSI C asctime() (Sun Nov  6 08:49:37 1994)

   "to_string"
	 my $string = $date->to_string;

       Render date suitable for HTTP 1.1 messages.

SEE ALSO

       Mojolicious, Mojolicious::Guides, <http://mojolicio.us>.

perl v5.14.2							    2012-09-05							   Mojo::Date(3pm)

10 More Discussions You Might Find Interesting

1. HP-UX

Get Day of Week from date

Discussion started by: vpapaiya

2. UNIX and Linux Applications

How to find 'Day of week' in Linux system

Discussion started by: rajinavaneethan

3. Shell Programming and Scripting

Function to get day of week from YYYY-MM-DD date

Discussion started by: couponmeup

4. Shell Programming and Scripting

how to obtain date and day of the week from `date` command

Discussion started by: aoussenko