Shell Programming and Scripting

$
$ cat netbkup.pl
#!/usr/bin/perl -w
system("/usr/openv/netbackup/bin/admincmd/bpimagelist -L -hoursago 24 > /tmp/Tapelog.txt");
open (CSVFILE, ">MK_Tapes_To_Be_Pulled.csv") or die "Can't open MK_Tapes_To_Be_Pulled.csv for output: $!";
open (LINKLIST, "</tmp/Tapelog.txt") or die "Can't open /tmp/Tapelog.txt: $!";
print CSVFILE "Client,Policy,Schedule Type,Backup Time, Elapsed Time, Kilobytes,Media Date\n";
while (<LINKLIST>) {
  chomp;
  next if /^\s*$/; # skip this line if it is blank or has nothing but whitespace
  s/^\s+//;
  s/\s+$//;
  ($key, $value) = ($_=~ m!(.*?):(.+)!);
  $value =~ s/^\s+//;
  $value =~ s/\s+$//;
  printf("%-40s %-s\n",$key,$value);
  $client = $value if /^Client:/;
  $policy = $value if /^Policy:/;
  $schedule = $value if /^Schedule Type/;
  $backuptime = $value if /^Backup Time/;
  $elapsedtime = $value if /^Elapsed Time/;
  $mediatape = $value if /^Media Date: /;
  $kilobytes = $value if /^Kilobytes/;
  print CSVFILE  "$client,$policy,$schedule,$backuptime,$elapsedtime,$kilobytes,$mediatape\n" if /resume/ ;
}
close (CSVFILE)  or die "Can't close output file Tapes_To_Be_Pulled.csv: $!";
close (LINKLIST) or die "Can't close file /tmp/Tapelog.txt: $!";
$
$

cat nbureport.pl
#!/usr/bin/perl -w
$bdate=$ARGV[0];
$edate=$ARGV[1];
system("/usr/openv/netbackup/bin/admincmd/bpimagelist -d $bdate -e $edate -L > /tmp/Tapelog.txt");
open (CSVFILE, ">MK_Tapes_To_Be_Pulled.csv") or die "Can't open MK_Tapes_To_Be_Pulled.csv for output: $!";
open (LINKLIST, "</tmp/Tapelog.txt") or die "Can't open /tmp/Tapelog.txt: $!";
print CSVFILE "Client,Policy,Schedule Type,Backup Time, Elapsed Time, Kilobytes\n";
while (<LINKLIST>) {
  chomp;
  next if /^\s*$/; # skip this line if it is blank or has nothing but whitespace
  s/^\s+//;
  s/\s+$//;
  s/ second\(s\)//;
  ($key, $value) = ($_=~ m!(.*?):(.+)!);
  $value =~ s/^\s+//;
  $value =~ s/\s+$//;
  printf("%-40s %-s\n",$key,$value);
  $client = $value if /^Client:/;
  $policy = $value if /^Policy:/;
  $schedule = $value if /^Schedule Type/;
  $backuptime = $value if /^Backup Time/;
  $backuptime = substr($backuptime,0,10);
  $elapsedtime = $value if /^Elapsed Time/;
  $kilobytes = $value if /^Kilobytes/;
  print CSVFILE  "$client,$policy,$schedule,$backuptime,$elapsedtime,$kilobytes\n" if /resume/ ;
}
close (CSVFILE)  or die "Can't close output file Tapes_To_Be_Pulled.csv: $!";
close (LINKLIST) or die "Can't close file /tmp/Tapelog.txt: $!";