#  (gH)   -_-  adf.pl  ;  TimeStamp (unix) : 05 Février 2007 vers 14:04

## 1. test du paramètre

die(" syntaxe : perl adf.pl nom_fichier_htm") if ($ARGV[0] eq "") ;

## 2. ouverture du fichier dont le nom est passé en paramètre

$fichier = $ARGV[0] ;
open( FIC ,"<$fichier")
     || die "\n impossible d'ouvrir le fichier nommé $fichier \n\n" ;

## 3. détection les "<font ..."

# tout dans la variable src
$src = "" ;
while (<FIC>) { $src .= $_ } ;
# on retransfère tout dans $_ pour utiliser while (m|....
$_ = $src ;
$nbf = 0 ;
# détection par expression régulière
while (m|<font (.*?)="(.*?)">|gs) {
  $nbf++ ;
  ### print " $nbf : ATTR $1   VAL $2 \n" ;
  $ids = "$1_$2" ;
  $tds{$ids}++ ;
} ; # fin tant que

# réaffichage des styles
print " vous pouvez effectuer les $nbf remplacements \n" ;
$ns = 0 ;
foreach $sty (sort keys %tds) {
  ($att,$val) = split("_",$sty) ;
  $ns++ ;
  print "<font $att=\"$val\"> par <span class=\"sdf$ns\">($tds{$sty} fois) \n" ;
} ; # fin pour chaque

# définition des styles
print "à condition de définir les styles \n" ;
$ns = 0 ;
foreach $sty (sort keys %tds) {
  ($att,$val) = split("_",$sty) ;
  $ns++ ;
  print ".sdf$ns { $att : $val } \n" ;
} ; # fin pour chaque
