Ploc a écrit :
> Dans les tags html, j'aimerais conserver les majuscules pour
> certains options, le tag alt des images par exemple (Il y en a peut etre
> d'autres mais je ne vois pas pour le moment, en vois tu d'autres ?).
> Comment adapter le script perl pour qu'il mettre tous les tags en
> minuscule sauf le champs ALT="Ceci doit conserver sa casse" qui doit
> donner alt="Ceci doit conserver sa casse". Je sais que je deviens
> pointilleux mais quand on voit le niveau de deux qui nous aident, on se
> dit que tout est possible !
>
En essayant de simplifier au maximum:
#!/usr/bin/perl -pi
#
# Usage: dos2unix dosfile ...
print STDERR "Converting \"$ARGV\" ...\n" if (eof || ($. == 0));
$/=">";
s/<(\S+)(\s?.*)$/<\L\1\E\2/g; # Convertit les noms de tag
if (/</) {
($orig,$para)=split('<');
$para=~s/(\s[-\w]+=)/\L\1\E/g;
$_="$orig<$para";
}
