Programming

bash-2.05$ cat prev_biz_date_yyyymmdd.pl
#!/usr/local/bin/perl

use POSIX;

our $nextDay;
our $dayOfWeek;
our $datetime;

$dayOfWeek =`date +%w`;chomp($dayOfWeek);

# Get My Date
my $info = scalar localtime(time);
$info =~ s/ +/ /g;
($dtime) = (split(/\:/,$info))[0];
($datetime) = (split(/ /,$dtime))[3];

our $outFile = "/ilx/ftp/date/prev_biz_date_yymmdd.date";

# Create some semaphore
`cat /dev/null > $outFile`;

SWITCH: {
        if ($dayOfWeek == 0){
            $WorkDate = get_date(2);
             print "$WorkDate\n";
             last SWITCH;   }
        if ($dayOfWeek == 1){
            $WorkDate = get_date(3);
             print "$WorkDate\n";
             last SWITCH;   }
        if ($dayOfWeek == 2){
            $WorkDate = get_date(1);
             print "$WorkDate\n";
             last SWITCH;   }
        if ($dayOfWeek == 3){
            $WorkDate = get_date(1);
             print "$WorkDate\n";
             last SWITCH;   }
        if ($dayOfWeek == 4){
            $WorkDate = get_date(1);
             print "$WorkDate\n";
             last SWITCH;   }
        if ($dayOfWeek == 5){
            $WorkDate = get_date(1);
             print "$WorkDate\n";
             last SWITCH;   }
        if ($dayOfWeek == 6){
            $WorkDate = get_date(1);
             print "$WorkDate\n";
             last SWITCH;   }

}

open (OUT,"> $outFile ") || die "$!\n";
        print OUT "$WorkDate\n";
close OUT;

sub get_date {

        our $wkday = shift;chomp($wkday);

        if ($datetime <= 20) {
                $WorkD = strftime("%Y%m%d", localtime(time - ($wkday * 86400)));
        }else{
                $WorkD = strftime("%Y%m%d", localtime(time - (($wkday + 1) * 86400)));
        }
        return $WorkD;
};