How do I get day if I know the date ?

How do I know what day it is for 20020401 ?
tcy08Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
ozoConnect With a Mentor Commented:
use Time::Local;
$date = "20020401";
($y,$m,$d)=unpack"a4a2a2",$date;
$day=("Sun","Mon","Tue","Wed","Thu","Fri","Sat")[(gmtime timegm 0,0,0,$d,$m-1,$y-1900)[6]];
0
 
tcy08Author Commented:
ozo,

can you give me more explanation for the code ?
0
 
TalmashCommented:
hi ,

# assume $date is what you have

my @date_arr = split("",$date);
my $day = join("",$date_arr[6],$date_arr[7]);

printf "date = $date , day = $day \n";

COMMENT :

date +%Y%m%d

gives

20020411

date +%d

gives

11
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.