htmconv.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:42 2010 from htmconv.pl 2006/04/19 1.5 KB.

#!/Perl
print "Hello, World... Convert FONT to span class\n";
#my $in_file = "c:\\HOMEPAGE\\P26\\perl\\perl_ref.htm";
#my $out_file = "tempfont.htm";
#my $log_file = "tempfont.txt";
my $in_file = "tempfont.htm";
my $out_file = "tempfont2.htm";
my $log_file = "tempfont2.txt";
my ($IF, $OF, $OL);
open $OL, ">$log_file" or die "ERROR: Unable to open LOG file $log_file ...\n";
open $IF, "<$in_file" or die "ERROR: Unable to open $in_file ... aborting ...\n";
my @lines = <$IF>; # slurp in while file ...
close( $IF);
print "Got ".scalar @lines." of input ...\n";
my $line = '';
my @newlines = ();
foreach $line (@lines) {
   if ($line =~ /(<font color=\"\#)(.+?)(\">)(\w+?)(<\/font>)/ ) { # (\#[A-F0-9]+?)(>)/ ) {
      prt( "Got 1[$1] 2[$2] 3[$3] 4[$4] 5[$5] 6[$6]...\n" );
      if ($2 eq '0000FF') {
         $line =~ s/<font color=\"\#0000FF\">/<span class=\"blue\">/;
         $line =~ s/<\/font>/<\/span>/;
      } elsif ($2 eq 'FF0000') {
         $line =~ s/<font color=\"\#FF0000\">/<span class=\"red\">/;
         $line =~ s/<\/font>/<\/span>/;
      } elsif ($2 eq '006600') {
         $line =~ s/<font color=\"\#006600\">/<span class=\"green\">/;
         $line =~ s/<\/font>/<\/span>/;
      } elsif ($2 eq '800000') {
         $line =~ s/<font color=\"\#800000\">/<span class=\"brown\">/;
         $line =~ s/<\/font>/<\/span>/;
      }
   }
   push(@newlines, $line);
}
open $OF, ">$out_file" or die "ERROR: Unable to create $out_file ...\n";
foreach $line (@newlines) {
   print $OF $line;
}
close $OF;
sub prt {
   my $m = shift;
   print $m;
   print $OL $m;
}

index -|- top

checked by tidy  Valid HTML 4.01 Transitional