view release on metacpan or  search on metacpan

DjVu.pm  view on Meta::CPAN

	# Create djvu file for each file.
	my @djvu;
	foreach my $image (@images) {
		my ($image_base, undef, $suffix) = fileparse($image, qr{\.[^.]+$});
		$suffix =~ s/^\.//ms;
		my $djvu = $image_base.'.djvu';
		push @djvu, $djvu;
		if ($image ne $djvu && ! -r $djvu) {
			if ($self->{'_opts'}->{'e'} eq 'c44') {
				if ($suffix eq 'png') {
					system "convert $image $image_base.jpg";
					$image = "$image_base.jpg";
				}
				system "c44 $image $djvu";
				if (! $self->{'_opts'}->{'q'}) {
					print "$djvu\n";
				}
			} else {
				err "Unsupported encoder '$self->{'_opts'}->{'e'}'.";
			}

README  view on Meta::CPAN

NAME
    images2djvu - Script which compose DjVu file from images.

SYNOPSIS
     images2djvu [-e encoder] [-h] [-o out_file] [-q] [--version] images_list_file

DESCRIPTION
    Script which compose DjVu file from images. Image could be djvu, png,
    jpg file.

    Main intent was compose DjVu file from files which were fetched from
    Kramerius system by kramerius2images script.

ARGUMENTS
    *       "-e encoder"

            DjVu encoder. Default value is 'c44' (command from DjVuLibre).

bin/images2djvu  view on Meta::CPAN

images2djvu - Script which compose DjVu file from images.

=head1 SYNOPSIS

 images2djvu [-e encoder] [-h] [-o out_file] [-q] [--version] images_list_file

=head1 DESCRIPTION

Script which compose DjVu file from images.
Image could be djvu, png, jpg file.

Main intent was compose DjVu file from files which were fetched from Kramerius
system by L<kramerius2images> script.

=head1 ARGUMENTS

=over 8

=item * C<-e encoder>