Shell Programming and Scripting

#!/bin/sh

d="20120103"

day=${d#??????}
temp=${d#????}
month=${temp%??}
year=${d%????}

DOW=$(cal $month $year | awk '
BEGIN{split("Sun Mon Tue Wed Thu Fri Sat",dow);dow[0]=dow[7]}
NR==3{t=7-NF+d;print dow[t%7];exit}' d=$day)

echo $DOW

#!/etc/edi/bin/perl -w
use Date::Manip;
use Time::Local;
my ($mt, $dt, $yr, $sec, $wk_st, $wk_nd, $st_date, $nd_date);

(@ARGV != 1) && die "Invalid parameters. Enter date in mm/dd/yyyy format. Exiting";
($ARGV[0] !~ /^(0[1-9]|1[012])\/(0[1-9]|[12][0-9]|3[01])\/[\d]{4}$/)
&& die "Invalid date format. Enter date in mm/dd/yyyy. Exiting";

$mt = substr $ARGV[0], 0, 2;
$dt = substr $ARGV[0], 3, 2;
$yr = substr $ARGV[0], 6, 4;

$sec = timelocal (0, 0, 0, $dt, $mt - 1, $yr);

$wday=localtime($sec);

print $wday;
print "\n";