Shell Programming and Scripting

 
#!/usr/local/bin/perl
print "Which transaction? ";
print "\n";
print "1 - Inquiry";
print "\n";
print "2 - Delete Bank";
print "\n";
print "3 - Edit Bank";
print "\n";
print "4 - Enroll and Add Bank";
print "\n";
print "5 - Modify Default Bank";
print "\n";
print "6 - Submit Payment";
print "\n";
$goodChoice = "false";
while ($goodChoice eq "false") {
$choice = <STDIN>;
chomp $choice;
if ($choice eq "1") {
  $agent = "com.americanexpress.as.payment.app.agent.InquiryAgent";
  $goodChoice = "true";
}
elsif ($choice eq "2") {
  $agent = "com.americanexpress.as.payment.app.agent.DeleteBankAgent";
  $goodChoice = "true";
}
elsif ($choice eq "3") {
  $agent = "com.americanexpress.as.payment.app.agent.EditBankAgent";
  $goodChoice = "true";
}
elsif ($choice eq "4") {
  $agent = "com.americanexpress.as.payment.app.agent.EnrollAddBankAgent";
  $goodChoice = "true";
}
elsif ($choice eq "5") {
  $agent = "com.americanexpress.as.payment.app.agent.ModifyDefaultBankAgent";
  $goodChoice = "true";
}
elsif ($choice eq "6") {
  $agent = "com.americanexpress.as.payment.app.agent.SubmitPaymentAgent";
  $goodChoice = "true";
}
else {
  print "Please type a number, 1 - 6";
  print "\n";
}
}
$filename = "report.log";
open(FILEHANDLE, $filename);
$foundAgent = "false";
$printMetrics = "false";
while ($line = <FILEHANDLE>) {
  chomp $line;
  if ($printMetrics eq "true") {
    print $line;
    print "\n";
    $foundAgent = "false";
    $printMetrics = "false";
  }
  elsif ($foundAgent eq "true") {
    $printMetrics = "true";
  } 
  elsif ( $line =~ /$agent/ ) {
     $foundAgent = "true";
  } 
}
close (FILEHANDLE);

@inputdata=`zcat inputfile.Z`;
open(FILEHANDLE, @inputdata);
open (OUTFILE, ">/temp/outputfile");
$foundAgent = "false";
$printMetrics = "false";
while ($line = <FILEHANDLE>) {
  chomp $line;
  if ($printMetrics eq "true") {
    print OUTFILE $line;
    print "\n";
    $foundAgent = "false";
    $printMetrics = "false";
  }
  elsif ($foundAgent eq "true") {
    $printMetrics = "true";
  } 
  elsif ( $line =~ /$agent/ ) {
     $foundAgent = "true";
  } 
}
close (FILEHANDLE);
close(OUTFILE);

system("zcat inputfile.Z > report.log");
$filename = "report.log";
open(FILEHANDLE, @inputdata);
open (OUTFILE, ">/temp/outputfile");
$foundAgent = "false";
$printMetrics = "false";
while ($line = <FILEHANDLE>) {
  chomp $line;
  if ($printMetrics eq "true") {
    print OUTFILE $line;
    print "\n";
    $foundAgent = "false";
    $printMetrics = "false";
  }
  elsif ($foundAgent eq "true") {
    $printMetrics = "true";
  } 
  elsif ( $line =~ /$agent/ ) {
     $foundAgent = "true";
  } 
}
close (FILEHANDLE);
close(OUTFILE);

@inputdata=`zcat inputfile.Z`;
print "$_\n" for @inputdata;