正規表現で16進Webカラーを省略する方法について

質問

こんにちは。いつもお世話になります。
正規表現による置換を教えてください。
--------------------------------------------
Webカラー（16進）表記における、
#00FF33, #FF0000, #CC00DD, #666666, #339966 .....
これらのように省略できるタイプをそれぞれ、
#0F3、#F00, #C0D, #666, #396 ...に置換する正規表現はないでしょうか？
教えてください。

また出来る事なら、アルファベットを小文字に変換したいのです。例：#0f3, #f00

よろしくお願いします。..

回答No.1

sakusaker7 · ベストアンサー

置換に使用するツールはなんですか?
とりあえずPerlでいいなら

use strict;
use warnings;

my $pat = qr<([[:xdigit:]]){2} ([[:xdigit:]]){2} ([[:xdigit:]]){2}>x;
#my $pat = qr<([\da-fA-F]){2} ([\da-fA-F]){2} ([\da-fA-F]){2}>x;

while (my $item = <DATA>) {
chomp $item;
$item = lc $item;
$item =~ s/#$pat/#$1$2$3/;
print $item, "\n";
}

__END__
#00FF33
#FF0000
#CC00DD
#666666
#339966

こんな感じで。

お礼

できました。どうもありがとうございます。
BBEdit8.6っていうMacのエディター使ってます。
それには、[:xdigit:]は利用できないのですが、
Seaarch : #([＼da-fA-F]){2}([＼da-fA-F]){2}([＼da-fA-F]){2} // Use Grep
Replace : #＼1＼2＼3
という感じです。