The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"OpenNews: Конвертирование в Linux отсканированных страниц в ..."
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Разговоры, обсуждение новостей (Public)
Изначальное сообщение [ Отслеживать ]

"OpenNews: Конвертирование в Linux отсканированных страниц в ..."  
Сообщение от opennews on 28-Май-08, 09:13 
"Создание DJVU документов в Линукс (http://mydebianblog.blogspot.com/2008/05/djvu.html)" конвертирование в Linux отсканированных страниц в формат DJVU.

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

Высказать мнение | Ответить | Правка | Cообщить модератору

 Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Конвертирование в Linux отсканированных страниц в формат DJV..."  
Сообщение от vadiml on 28-Май-08, 09:13 
А какой смысл 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";
---------------------------
и всё. Ради этого отдельную статью писать не стоит

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "Конвертирование в Linux отсканированных страниц в формат DJV..."  
Сообщение от vadiml on 28-Май-08, 09:17 
для полноты картины разборка 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'и, если оригинал цветной

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Спонсоры:
Слёрм
Inferno Solutions
Hosting by Ihor
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2019 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру