朝顔日記

神崎大先生のところに、従来のHTMLをXHTMLに変換するための若干のヒントというリソースが有り、そこにhtml4なページをxhtml化する時に使うと便利なperlスクリプトが紹介されています。

私は、以下のようにかえて常用していますです。

#!/usr/bin/perl
while(<>){
  s/<(\/)?([\w]+)/<$1\L$2/g;            #要素名を小文字に
  s/ (\w+)="/ \L$1="/g;                 #属性名を小文字に
  #空要素タグを /> で閉じる
  s/<(br|hr|img|link|input|col|base|meta|area|param)(.*?)>/<$1$2 \/>/g;
  s/ \/ \/>/ \/>/g;                     #多重起動対策
  print;
}