$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=(
$m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^=12*($_%16
-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h
=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$
d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d
>>8^($f=$t&($d
>>12^$d
>>4^
$d^$d/8))<<17,$e=$e
>>8^($t&($g=($q=$e
>>14&7^$e)^$q*8^$q<<6))<<9,$_=$t[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
-― ̄ ̄ ` ―-- _
, ´ ......... . . , ~  ̄" ー _
_/...........::::::::::::::::: : : :/ ,r:::::::::::.:::::::::.:: :::.........` 、
, ´ : ::::::::::::::::::::::::::::::::::::/ /:::::::::::::: : ,ヘ ::::::::::::::::::::::: : ヽ
,/:::;;;;;;;| : ::::::::::::::::::::::::::::::/ /::::::::::::::::::: ● ::::::::::::::::: : : :,/
と,-‐ ´ ̄: ::::::::::::::::::::::::::::::/ /:::::::::::r(:::::::::`'::::::::::::::::::::::く
(´__ : : :;;:::::::::::::::::::::::::::/ /:::::::::::`(::::::::: ,ヘ:::::::::::::::::::::: ヽ
 ̄ ̄`ヾ_::::::::::::::::::::::し ::::::::::::::::::::::: :●::::::::::::::::::::::: : : :_>
,_ \:::::::::::::::::::::::::::::::::::::::::::::: `' __:::::::::-‐ ´
(__  ̄~" __ , --‐一~ ̄
このスレだめぽ…
>>14 9年前の質問に答えてみるテスト
$ bai=2.1;for f in *.JPG;do identify $f |awk -v bai=$bai '{of=$1;sub(/.JPG/,"_s.jpg",of);split($3,s,"x");printf("convert -geometry %dx%d %s %s\n",s[1]/bai,s[2]/bai,$1,of)}';done|sh
baiを任意の数にするとその数分の1の大きさになる
*.JPG は対象ファイルに応じて変更すること
同時に、sub(/.JPG/,"_s.jpg");も変更すること