конвертация djvu-файла из пачки катринок-сканов

Вот, вопрос уже проскакивал:
http://www.linux.org.ru/view-message.jsp?msgid=2428835&nocache=1719480804...

Вот скрипт, я его в ~/bin , в пользовательские исполняемые скрипты поместил. Оно вроде как работает.

#!/usr/bin/perl -w
my $i = 0;
my @cmds = qw[ djvm -c output.djvu ];
foreach ( <*.jpg> ) {
m/(.*)\.jpg$/ ;
system("c44", '-crcbfull', $1.'.jpg', $1.'.djvu');
$i++;
push @cmds, $1.'.djvu';
}
foreach ( <*.tif> ) {
m/(.*)\.tif$/ ;
system("cjb2", $1.'.tif', $1.'.djvu');
$i++;
push @cmds, $1.'.djvu';
}
print "$i files renamed\n";
system(@cmds);
print "\n$cmds[2] created";

djvulibre и перл должны быть в системе.

#!/bin/bash

for i in *.tiff do convert -monochrome $i $i anytopnm $i | ppmtopgm | pgmtopbm -value 0.499 > $i.pbm cjb2 -dpi 300 $i.pbm $i.djvu done djvm -c result.djvu *.djvu

#!/bin/bash 

for i in *.tiff
do
	anytopnm $i | ppmtopgm | pgmtopbm -value 0.499 > $i.pbm
	cjb2 -dpi 300 $i.pbm $i.djvu
done

djvm -c result.djvu *.djvu
rm *.pbm

Спасибо! Сконвертировал! :-)