0

jpgからpdfを作成する次のスクリプトがあります。正常に動作しますが、フォルダーが空またはjpsがない場合、空のpdfファイルが作成されます。それを避ける方法は？

#!/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);
4

1 に答える 1

3

で何かできると確信していますがglob、追加するだけの方が簡単かもしれません

my $someFilesFound;

while ループの前。ループ本体で 1 に設定し、呼び出す前にテストしsaveasます。

于 2013-11-07T20:50:35.990 に答える