Perl: not creating an empty final file when a folder is empty

Question

I have the following script to make pdf from jpgs. It works fine but when a folder is empty or has no jps, it creates and empty pdf file. How to avoid it?

#!/usr/bin/perl

use PDF::API2;
use strict;

# assume all just one directory path
my $folder = join(' ', @ARGV);

# deal with dos paths
$folder =~ s|\\|/|g;

$folder =~ s|/$||;

my $pdf_file = $folder . '.pdf';

die "Not a folder!\n" unless -d $folder;
die "There's already a pdf of that name!\n" if -f $pdf_file;

my $pdf = PDF::API2->new;

opendir DIR, $folder;
while(my $file = readdir DIR) {
    next unless $file =~ /\.je?pg$/i;
    my $jpg = $folder . '/' . $file;

    my $image = $pdf->image_jpeg($jpg);
    my $page = $pdf->page();
    $page->mediabox(0,0,$image->width, $image->height);
    $page->trimbox(0,0,$image->width, $image->height);
    my $gfx = $page->gfx;
    $gfx->image($image, 0, 0);
}
close DIR;

$pdf->saveas($pdf_file);

user3458 · Accepted Answer · 2013-11-07 20:50:35Z

3

I am sure you could do something with glob, but it may be easier to just add

my $someFilesFound;

before the while loop. Set it to 1 in the loop body and test it before invoking saveas.

answered Nov 7, 2013 at 20:50

user3458

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Perl: not creating an empty final file when a folder is empty

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related