css splite用の1枚画像とそれに対応するCSSを作成するperl スクリプト(垂直or水平方向に任意に画像連結)

こちらのエントリーをうけて、
css splite用の1枚画像とそれに対応するCSSを作成するperl スクリプトを改良しました。

水平方向に結合したい場合は、
cat 16x16_icons.tsv | ./get_icons.pl -css=icons.css --img=icons.png


垂直方向に結合したい場合は、
cat 16x16_icons.tsv | ./get_icons.pl -css=icons.css --img=icons.png --vertical

とする。

CSSも、画像連結方向にあったCSSを吐き出す。

githubにコードをアップしました