perlのコマンドでhtmllintの設定ファイルを読んで文字列を取り出す

メモ: perlのコマンドでhtmllintの設定ファイルを読んで文字列を取り出す。

$ perl -e '$res="";opendir(DIR,".")or die("can not open DIR");@file=sort{$b cmp $a}readdir(DIR);closedir(DIR);foreach$key(@file){if($key=~m/(html40|xhtml).*\.rul$/){require $key;$res.="|".$emptyTags;}}$res=~s/\|/\n/g;print $res;' | sort | uniq