Shell Programming and Scripting

#!/usr/bin/perl

use strict;
use warnings;

my $fname = $ARGV[0] or die $!;
open my $in, '<', $fname or die $!;

my $count = 0;
my %status = ("DISABLED" => "D", "ENABLED" => " ",);
$/ = "<\/ns5:OperatorDefn>";

print "20151027 GLOBAL USER GROUP\n";

while(<$in>) {
     my %record = ();
     while(/<((?:ns[35]:)?(?:Name|EnableStatus|LastSignOn))>(.*)<\/\1>/g){
         push @{$record{$1}}, $2;
     }

     for my $profile (@{$record{"ns3:Name"}}){
        #$record{"ns5:LastSignOn"}->[0] = "" if $record{"ns5:LastSignOn"}->[0] eq "n/a";

         printf "ACR|%s|%s|%s|%s|%s\n", $record{"Name"}->[0],
                                        $profile,
                                        $status{$record{"ns5:EnableStatus"}->[0]},
                                        format_day($record{"ns5:LastSignOn"}->[0]),
                                        $record{"Name"}->[0];
        $count++;
     }
}
close $in;

print "NUMBER OF DETAIL RECORDS: $count\n";

# subroutine to re-arrange date (naive)
sub format_day {
    my $date = shift;
    my @date_bits = split '/', $date;
    if (scalar @date_bits != 3){
        return "";
    }
    $date = join '/', ($date_bits[2]+2000, @date_bits[1,0]);
    return $date;
}

#!/usr/bin/ksh
BIN_DIR=$HOME/scripts
DATA_DIR=$HOME/scripts/config/data
CONFIG_DIR=$HOME/scripts/config
FILE=$DATA_DIR/SAMPLE.xml
DATE=`date -u +%Y%m%d`
MAILUSERS="abcd@gmail.com"
cd $DATA_DIR
touch SAMPLE_Query_$DATE.log
sample_query -operator -outputfile $FILE >> SAMPLE_Query_$DATE.log
if [ $? -eq 0 ]; then
   echo "SAMPLE Operator Report Created Successfully at `date`" >> SAMPLE_Query_$DATE.log
else
   echo "Error in creating SAMPLE Operator FILE" | mail -s "report failed @ $(hostname) at `date`" $MAILUSERS >> SAMPLE_Query_$DATE.log
exit
fi
#find  $DATA_DIR/SAMPLE_Query*.log -mtime +2 -exec rm {} \; -print >> SAMPLE_Query_$DATE.log
perl $BIN_DIR/karthi.pl $FILE > $DATA_DIR/ZA1P.NDM.SAMPLE.INTERFACE.GRP(+1)

perl $BIN_DIR/karthi.pl $FILE > $DATA_DIR/ZA1P.NDM.SAMPLE.INTERFACE.GRP(+1)

perl $BIN_DIR/karthi.pl $FILE > $DATA_DIR/ZA1P.NDM.SAMPLE.INTERFACE.GRP.sample

<ns5:LastSignOn>27/05/14 16:50:52</ns5:LastSignOn>