�� Linux �� DJVU (vadiml)

Wed, 28 May 2008 05:17:55 GMT

�� 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'�, ��

�� Linux �� DJVU (vadiml)

Wed, 28 May 2008 05:13:54 GMT

� �� 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";
---------------------------
� �ӣ. ��

OpenForum RSS: OpenNews: ��������������� � Linux ��������������� ������� � ������ DJVU

��������������� � Linux ��������������� ������� � ������ DJVU (vadiml)

��������������� � Linux ��������������� ������� � ������ DJVU (vadiml)

OpenForum RSS: OpenNews: �� Linux �� DJVU

�� Linux �� DJVU (vadiml)

�� Linux �� DJVU (vadiml)