Shell Programming and Scripting

print "STARTED:\n ";
my $pdf = CAM::PDF->new('XYZ.pdf') or die $CAM::PDF::errstr;
print STDOUT "Processing File: ";
open (FILE, ">bill_data.txt") || die "Unable to save Bill_data.txt file";
for my $pagenum (1 .. $pdf->numPages) {
...
 DO LOT OF PROCESSING HERE 
...
   }
  print STDOUT "#"; # THIS IS PROGRESS BAR one per page
  &print_it;
}
Close(FILE)
print "\t [ DONE  ]\n"; # Just look nice once done
sub print_it{

print FILE "SOME STUFF ... based on other process..." 
..
Around 20/30 print FILE command
..
}

print STDOUT  "#";

for my $pagenum (1 .. $pdf->numPages) {
   my $pagetree = $pdf->getPageContentTree($pagenum) or die;
   my @text = $pagetree->traverse('MyRenderer')->getTextBlocks;
   for my $textblock (@text) {
      &create_page($textblock->{str},$textblock->{left},$textblock->{bottom});
   }
  print STDOUT "#";
  &print_it;
}

 
$| = 1;

#!/usr/bin/perl 
 
$| = 1;
 
print "STARTED:\n";
print STDOUT "Processing file: ";
 
open (FILE, ">bill_data.txt") || die "Can't open bill_data.txt";
for my $pagenum ( 1 .. 10 ) {
 sleep(5);   # for testing only.  replaces other processing and embedded for loop.
 print STDOUT "#";
 &print_it;
}
close (FILE);
print "\t [DONE] \n";
 
sub print_it {
 print FILE "SOME STUFF ... based on other process ...";
 print FILE "SOME STUFF ... based on other process ...";
 print FILE "SOME STUFF ... based on other process ...";
 print FILE "SOME STUFF ... based on other process ...";
 print FILE "SOME STUFF ... based on other process ...";
 print FILE "SOME STUFF ... based on other process ...";
}

$|  ----- If set to nonzero, forces a flush of th currently selected stream after every write (Default value = 0)