форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Разговоры, обсуждение новостей (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 Новость: https://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]