Perl practice

于一

　　#!/usr/bin/perl
　　use strict;
　　use warnings;
　　use Time::Local;
　　sub gen_holiday_base
　　{
　　my $ayear = shift;
　　my $ybegin = "$ayear-01-01";
　　my $yend = "${ayear}1231";
　　my $step = 0;
　　my $date = "";
　　my $weekday = "";
　　my %datemap;
　　while ( "$date" ne "$yend" ) {
　　($date, $weekday) = &date_calculate($ybegin, $step++);
　　$datemap{$date} = ($weekday==0||$weekday==6)? "Y":"N";
　　}
　　%datemap;
　　}
　　sub date_calculate
　　{
　　my ($date,$change) = @_;
　　my ($y,$m,$d) = split('-',$date);
　　my $time = timelocal(0,0,0,$d,$m-1,$y);
　　$time += $change*24*60*60;
　　my ($day,$mon,$year,$weekday) = (localtime($time))[3,4,5,6];
　　$year += 1900;
　　$mon += 1;
　　(sprintf("%04d%02d%02d", $year,$mon,$day),$weekday);
　　}
　　sub patch_status
　　{
　　#my $ayear = shift;
　　#my $calendar_file = shift;
　　my ($ayear, $calendar_file) = @_;
　　my @holidays;
　　open(FH, "<$calendar_file") or die "Can't open the Calendar file ($!)";
　　while (my $line = <FH>) {
　　push @holidays, $1 if $line =~ /($ayear\d+)\s*,\s*\"HSBC\"/;
　　}
　　close(FH);
　　@holidays;
　　}
　　sub parse_mapping
　　{
　　my ($line, $desired_year, $holiday_base, $stra_hash) = @_;
　　my ($ctmcal, $strategy) = split(/\s+/, $line);
　　# a indicator to show that the ctm calendar
　　# are belong to the same site
　　my $acronym = $1 if $ctmcal =~ /NFO(\w{2})/;
　　my $boscal_file = &get_boscal_file($acronym);
　　my $routinerel = $stra_hash->{$strategy};
　　$routinerel->($desired_year, $holiday_base, $boscal_file);
　　}
　　sub get_boscal_file
　　{
　　my $site = shift;
　　my $dir = "./cal/boscal";
　　my @files = <$dir/*.HLDYUNZIPPED>;
　　for my $s (@files) {
　　if ( $s =~ /$site\w+\d{8}/) {
　　return $s;
　　}
　　}
　　$site;
　　}
　　sub check_param
　　{
　　my $year = shift;
　　die "Usage:$0 YEAR <eg: $0 2012>" if (!defined $year);
　　die "Usage:$0 YEAR <eg: $0 2012>" if ($year !~ /\d{4}/);
　　$year;
　　}
　　sub stra_reva
　　{
　　my ($year, $holiday_base, $calfile) = @_;
　　my @holidays = &patch_status($year, $calfile);
　　my $holiday_str = "";
　　my %updated_hol = $$holiday_base;
　　$updated_hol{$_}="Y" foreach (@holidays);
　　foreach my $key (sort keys %updated_hol) {
　　my $value = $updated_hol{$key};
　　$value = ($value eq "Y")? "N":"Y";
　　$holiday_str = $holiday_str . "$value";
　　}
　　$holiday_str;
　　}
　　sub stra_alls
　　{
　　my ($year, $holiday_base, $calfile) = @_;
　　my $holiday_str = "";
　　my %updated_hol = $$holiday_base;
　　foreach my $key (keys %updated_hol) {
　　my $value = "Y";
　　$holiday_str = $holiday_str . "$value";
　　}
　　$holiday_str;
　　}
　　sub stra_base
　　{
　　my ($year, $holiday_base, $calfile) = @_;
　　my @holidays = &patch_status($year, $calfile);
　　my $holiday_str = "";
　　my %updated_hol = $$holiday_base;
　　$updated_hol{$_}="Y" foreach (@holidays);
　　foreach my $key (sort keys %updated_hol) {
　　my $value = $updated_hol{$key};
　　$holiday_str = $holiday_str . "$value";
　　}
　　$holiday_str;
　　}
　　sub stra_forw
　　{
　　my ($year, $holiday_base, $calfile) = @_;
　　my @holidays = &patch_status($year, $calfile);
　　my $holiday_str = "";
　　my %updated_hol = $$holiday_base;
　　my @thisyearstr;
　　$updated_hol{$_}="Y" foreach (@holidays);
　　foreach my $key (sort keys %updated_hol) {
　　my $value = $updated_hol{$key};
　　push(@thisyearstr, $value);
　　}
　　shift(@thisyearstr);
　　my @holidays_ahead = &patch_status($year+1, $calfile);
　　my %holiday_base_ahead = &gen_holiday_base($year+1);
　　$holiday_base_ahead{$_}="Y" foreach(@holidays_ahead);
　　foreach my $keya (sort keys %holiday_base_ahead) {
　　my $valuea = $holiday_base_ahead{$keya};
　　push(@thisyearstr, ("Y" eq $valuea)? "N":"Y");
　　exit;
　　}
　　$holiday_str = scalar @thisyearstr;
　　$holiday_str;
　　}
　　
　　sub init_subroutine
　　{
　　my %stra_hash;
　　$stra_hash{"BASE"} = \&stra_base;
　　$stra_hash{"REVA"} = \&stra_reva;
　　$stra_hash{"FORW"} = \&stra_forw;
　　$stra_hash{"ALLS"} = \&stra_alls;
　　%stra_hash;
　　}
　　
　　sub main
　　{
　　# step 0: get the deired calendar year from input
　　#         have to be careful with the param
　　my $desired_year = &check_param($_[0]);
　　
　　# step 1: init the strategy hash
　　my %stra_hash = &init_subroutine;
　　
　　# step 2: now we need generate our base holiday
　　#         sequence
　　# replace this one with
　　# my %holiday_base = &gen_holiday_base($desired_year);
　　my %holiday_base = &gen_holiday_base($desired_year);
　　
　　# step 3: read config file from current directory
　　#         extablish a mapping
　　#         has to be orderred.
　　open(CONFIG, "<CALMAPPING") or die "Can not locate the config file ($!)";
　　while (my $line = <CONFIG>) {
　　next if $line =~ /^\s*#|^\s*$/;
　　&parse_mapping($line, $desired_year, \%holiday_base, \%stra_hash);
　　}
　　#my %holiday_base = &gen_holiday_base(2012);
　　#my @holidays = &patch_status(2012, "SEL20111123.HLDYUNZIPPED");
　　#my $holiday_str = "";
　　#$holiday_base{$_}="Y" foreach (@holidays);
　　#foreach my $key (sort keys %holiday_base) {
　　#   my $value = $holiday_base{$key};
　　#   #print "$key => $value\n";
　　#   $holiday_str = $holiday_str . "$value";
　　#}
　　#print "$holiday_str\n";
　　}
　　sub main_test
　　{
　　my $file = &get_boscal_file("HK");
　　print "$file \n";
　　}
　　main(@ARGV);
　　# directory structure
　　[xxx@server calendar]$ ls -R
　　.:
　　cal  CALMAPPING  ctm  gencal.pl  nfo.cal.NFOSEBUS.old.20111125.xml  SEL20111123.HLDYUNZIPPED
　　./cal:
　　boscal
　　./cal/boscal:
　　HKH20111123.HLDYUNZIPPED  SEL20111123.HLDYUNZIPPED  TKY20111123.HLDYUNZIPPED
　　./ctm:
　　export
　　./ctm/export:
　　nfo.cal.NFOSEBUS.old.20111125.xml
　　[xxx@server calendar]$ cat CALMAPPING
　　# ctmcal    strategy
　　NFOSEBUS        BASE
　　NFOSENOBUS      REVA
　　NFOSEBST        FORW
　　NFOSEBSP        BASE
　　NFOSEHOL        ALLS
　　NFOHKBUS        ALLS