#!/usr/bin/perl -w # Author : Guillaume Durr # echo "g.dull@free.fr" | sed 's/l/r/g';echo ".fr" # Version : 0.1 oct 29 2004 # Aim : Cut tags to make a HTML file "HTML 4 compliant" # Usage : css.pl file.html > new_file.html # ######################################################################## $charset=0; $i=0; if ( ! exists($ARGV[0])) { print ("Missing file name. Usage is : \n\tcss.pl file.html > new_file.html\n"); exit; } open(F, $ARGV[0]) or die "Can't open $ARGV[0]"; # open the file while () { s/\r/\n/g; if ( $i == 0) { if (not $_ =~ " ENTETE } } if ($_ =~ "") #on viens de passer le et pas de charset, c'est pas bien!!! on y remedie { s&&&g; } # { #} # echo $DOCTYPE; s/]*>//g; #if ($_ =~ "//DOCTYPE.+DTD/") s/

<\/p>//g; s///g; s&&&g; s&&&g; s&&&g; s/]*>//g; s/[ \t]+/ /g; s/]*>//g; s&&&g; s/align="?(center|left|right)"?//g; s///g; # tage de mise en forme inutile s/]+"spacer.gif"[^>]+>//g; s/].+>//g; s###g; s/]+>//g; #################### accent ISO s/è/è/g; s/é/é/g; s/à/à/g; s/â/â/g; s/ô/ô/g; s/î/î/g; s/ç/ç/g; # remise en etat tag s/" >/">/g; s/

/g; s/

/g; #mise en page s/^\s+$//g; s/^[ \t]*//g; s/(//g;