Shell Programming and Scripting

# Print the value of the command line arguments
$FSNCount = $ARGV[2];
#print "Replacing all QQQ in $ARGV[0] - with $FSNCount in $ARGV[1]\n";
$DateField=`date +%Y%m%d`;
chomp ($DateField);
$TimeField=`date +%H%M`;
chomp ($TimeField);
open INPUTFILE, $ARGV[0] or die $!;
open OUTPUTFILE,">$ARGV[1]" or die $!;
# Read the input file line by line
while (<INPUTFILE>)
  {
    $_ =~ s/QQQ/$FSNCount/g;
    $_ =~ s/YYYYMMDD/$DateField/g;
    $_ =~ s/HHHH/$TimeField/g;
    print OUTPUTFILE $_;
  }
#while (<INPUTFILE>)
#  {
#  }
print "\t $DateField\n";
print "\t $TimeField";
close INPUTFILE;
close OUTPUTFILE;
~

eg : FSN COUNT =100 , date= 20130102
      FSNCOUNT=101, date = 20130102
     ....
     ....
     FSN COUNT =999, date= 20130102 and FSN COUNT should become 100

FSNCOUNT=100, date = 20130101
....