Difference between revisions of "Highlight.pl"

1. - STEP - read file and highlight text, line by line:

   while ( ($line = <FILE>) && (1) )
   {
       if ( length($highlight_color_1) > 0 )
       {

1. $line =~ s/${pattern_1}/${tag_for_highlight_1_open}${pattern_1}${tag_for_highlight_1_close}/g;

           $line =~ s/(${pattern_1})/${tag_for_highlight_1_open}$1${tag_for_highlight_1_close}/g;
       }

       if ( length($highlight_color_2) > 0 )
       {

1. $line =~ s/${pattern_2}/${tag_for_highlight_2_open}${pattern_2}${tag_for_highlight_1_close}/g;

           $line =~ s/(${pattern_2})/${tag_for_highlight_2_open}$1${tag_for_highlight_1_close}/g;
       }

       if ( length($highlight_color_3) > 0 )
       {

1. $line =~ s/${pattern_3}/${tag_for_highlight_3_open}${pattern_3}${tag_for_highlight_1_close}/g;

           $line =~ s/(${pattern_3})/${tag_for_highlight_3_open}$1${tag_for_highlight_1_close}/g;
       }

       if ( length($highlight_color_4) > 0 )
       {

1. $line =~ s/${pattern_4}/${tag_for_highlight_4_open}${pattern_4}${tag_for_highlight_1_close}/g;

           $line =~ s/(${pattern_4})/${tag_for_highlight_4_open}$1${tag_for_highlight_1_close}/g;
       }

       if ( length($highlight_color_5) gt 0 )
       {

1. $line =~ s/${pattern_5}/${tag_for_highlight_5_open}${pattern_5}${tag_for_highlight_1_close}/g;

           $line =~ s/(${pattern_5})/${tag_for_highlight_5_open}$1${tag_for_highlight_1_close}/g;
       }

1. print "$count_of_lines_processed: $line";
2. printf('%5s:  %s', $count_of_lines_processed, $line);

       printf('%s', $line);
       ++$count_of_lines_processed
   }

   print "\n";
   printf(':  closing text file \'%s\' . . .\n', $filename);
   close (FILE);

} # end subroutine high_light_five_text_patterns

1. 1. ----------------------------------------------------------------------
   2. - SECTION - main line code
   3. ----------------------------------------------------------------------

{

   my $argc;
   my $filename = $ARGV[0];
   my $pattern_1_to_highlight = $ARGV[1];
   my $highlight_color_1 = $ARGV[2];
   my $flag__show_usage = 0;

   print "starting,\n";

   if ( length($filename) > 0 ) 
   {       
       print "received filename to parse, filename is '$filename',\n";
   }       
   else    
   {       
       print "Warning - received no name of fil to parse!\n";
       $flag__show_usage = 1;
   }       

   if ( length($pattern_1_to_highlight) > 0 ) 
   {       
      print "received first pattern to highlight, it is '$pattern_1_to_highlight'\n";
   }       
   else    
   {       
       print "Warning - received no pattern to highlight!\n";
       $flag__show_usage = 1;
   }       

   if ( length($highlight_color_1) > 0 ) 
   {
      print "received color of first highlight pattern '$highlight_color_1'\n";
   }
   else    
   {       
       print "Warning - received no color for highlight pattern 1!\n";
       $flag__show_usage = 1;
   }       

   if ( $flag__show_usage)
   {
       usage();
   }

1. - STEP - Check number of command line arguments, and select a highlighting
2. routine based on this number:

   $argc = @ARGV;

   printf("received %d arguments,\n", $argc); 

   if ( $argc < 4 ) 
   {
       print "calling routine to highlight one text pattern . . .\n"; 

1. high_light_one_text_pattern("main", $filename, "CRC", "red");

       high_light_one_text_pattern("main", $filename, $ARGV[1], $ARGV[2]);
   }       
   else    
   {       
       print "calling routine to highlight between one and five text patterns . . .\n"; 
       high_light_five_text_patterns("main",
         $ARGV[0],                   # the name of text file to read and highlight select text,
         $ARGV[1], $ARGV[2],         # pattern 1, highlight color 1,
         $ARGV[3], $ARGV[4],         # pattern 2, highlight color 2,
         $ARGV[5], $ARGV[6],         # pattern 3, highlight color 3,
         $ARGV[7], $ARGV[8],         # pattern 4, highlight color 4,
         $ARGV[9], $ARGV[10]         # pattern 5, highlight color 5,
       );
   }       

   print "done.\n\n";

}

1. --- EOF ---