画像編集のいろいろがコマンドラインでできるアプリケーション + ライブラリ。~ [[本家>http://www.imagemagick.org/]] [[使い方なページ>http://www.cit.gu.edu.au/~anthony/graphics/imagick6/]] #contents * サムネイル生成 for i in *.jpg do convert -quality 90 -resize 160x160 $i thumbnail/$i done 画像サイズは -resize で指定した大きさに収まるアスペクト比を維持したサイズ。~ ~-thumnail というオプションもある。~ 余白の塗りつぶしなどができる模様。 * 画像のサイズ取得 identify -ping hoge.jpg ~-pingを付けると早くなる。~ 3カラム目。 ** HTML生成 サムネイル→画像のリンクを生成。~ MOVが存在する場合はそちらにリンクをする(FX-8用。 #!/usr/bin/perl use strict; my @IMAGE_DIR = qw(day1 day2 day3); my @THUMB_DIR = qw(day1/thumbnail day2/thumbnail day3/thumbnail); foreach my $i (0..$#IMAGE_DIR) { opendir(TD, $THUMB_DIR[$i]) or die; my @files = sort grep {m/\.JPG$/i} readdir TD; foreach my $f (@files) { my $size = (split(/\s+/, `identify $THUMB_DIR[$i]/$f`))[2]; my ($width, $height) = split(/x/, $size); my $dest = $f; my $mov = $f; $mov =~ s/\.JPG$/.MOV/; $dest = $mov if (-f "$IMAGE_DIR[$i]/$mov"); print qq|<a href="$IMAGE_DIR[$i]/$dest"><img src="$THUMB_DIR[$i]/$f" width="$width"| . qq| height="$height" alt="" border="" /></a><br />\n|; } close(TD); }