#!/usr/bin/perl ############################################################################################################### # # img2col [-d ] *.jpg # # Liefert auf STDOUT eine HTML-Seite mit den (default=2) Hauptfarben der übergebenen JPGs my($n,$m)=(2,6); print qq{}; foreach(@ARGV) { $n=$1,$m=3*$1 if(/^-(\d+)$/); if(/^(.*\.jpg)$/) { print qq{

$_

}; my $hist=qx{convert "$_" +dither -colors $m -format %c histogram:info:-|sort -n|tail -$n}; $hist=~s/(#[0-9a-fA-F]{6})/div($1)/ge; print qq{

}; }} print qq{}; sub div { my($col)=@_; print qq{

$col

}; }