"Создание DJVU документов в Линукс (http://mydebianblog.blogspot.com/2008/05/djvu.html)" конвертирование в Linux отсканированных страниц в формат DJVU.

URL: http://mydebianblog.blogspot.com/2008/05/djvu.html
Новость: http://www.opennet.me/opennews/art.shtml?num=16124

• Конвертирование в Linux отсканированных страниц в формат DJVU,vadiml, 09:13 , 28-Май-08
• Конвертирование в Linux отсканированных страниц в формат DJVU,vadiml, 09:17 , 28-Май-08

А какой смысл pdf перегонять в djvu ?

а вот картинки можно проще
-----------------------
#!/usr/bin/perl -w

my $i = 0;

my @cmds = qw[ djvm -c output.djvu ];
foreach  ( <*.*> ) {
    if (/(.*)\.jpg$/ ){
        print "$_\n";
        # system("c44", '-crcbfull', $1.'.jpg', $1.'.djvu');
        system("cpaldjvu", $1.'.jpg', $1.'.djvu');
        $i++;
        push @cmds, $1.'.djvu';
    }
    elsif (/(.*)\.tif$/ ) {
        print "$_\n";
        # установить 300 dpi в tiff'e
        #system("tiffset", '-s 296 2', $1.'tiff');
        #system("tiffset", '-s 282 300.0', $1.'tiff');
        #system("tiffset", '-s 283 300.0', $1.'tiff');
        # или
        # system("cjb2", '-dpi', '300', '-losslevel', '100', $1.'.tiff', $1.'.djvu');
        system("cjb2", $1.'.tif', $1.'.djvu');
        $i++;
        push @cmds, $1.'.djvu';
    }
}
print "$i files renamed\n";
system(@cmds);
print "\n$cmds[2] created";
---------------------------
и всё. Ради этого отдельную статью писать не стоит

для полноты картины разборка djvu на tiff'ы
---------------------
#!/usr/bin/perl -w

mkdir 'pics';
my @cmd = qw[ djvmcvt -i input.djvu pics index.djvu ];
system (@cmd);

foreach ( <pics/*.djvu> ) {
    m/(.*)\.djvu$/;
    if ( $1 ne 'index' ) {
        system("ddjvu", '-format=tif', $_, $1.'.tiff');
        unlink $_;
    }
}
-------------------
аналогично можно разобрать на jpeg'и, если оригинал цветной