perl - Perl スクリプト: ユーザー入力を不要にするための変更

Question

次のコードを使用して、jpg から pdf ファイルを作成します。それは問題なく動作しますが、私が達成したいのは、このスクリプトを変更して、ユーザー入力なしで使用できるようにすることです。Windows でフォルダを右クリックして、このスクリプトを選択し、PDF を作成したいと思います。そのため、このスクリプトはフォルダー名を取得し、その名前を尋ねることなく PDF ファイルを作成する必要があります。最終的なpdfの名前がjpsがあるフォルダーと同じであれば完璧です。私を手伝ってくれますか？

The registry key is as follows:

"C:\strawberry\perl\bin\perl.exe" "D:\test\790024.pl" %1

Here comes the code:

#!usr/bin/perl -w
    use strict;
    use PDF::API2;
    #concatenates image files of type JPEG, GIF, and PNG in a specific directory into a pdf file that will
    #be spit out into that same directory upon completion

    #very fun


    print "Input a filepath to a directory (ending with a /. ex: 'C:/path/to/dir/'): ";
    my $dir = <STDIN>;
    chomp $dir;
    print "\nInput the name for the pdf file you wish to create (ex: 'pictures'): ";
    my $pdf_name = <STDIN>;
    chomp $pdf_name;

    #grab a list of files in our very special directory.
    my @images = sort glob("$dir*") or die "No images\n";

    #xreate a new document with no pages
    my $pdf = PDF::API2->new;

    #loop through our images, create a page for each image
    # - while adding the image to the created page -> this is done in the subs
    for my $file (@images){
        #call sub based on what regex matches 
        add_jpg($file) if ($file =~ /.jpg/);
        #add_png($file) if ($file =~ /\.png$/);
        #add_png($file) if ($file =~ /.png/);
        #add_gif($file) if ($file =~ /.gif/);

    }

    $pdf->saveas("$dir$pdf_name.pdf");


    #subs 
    sub add_jpg{
        my $jpg = shift;
        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);

    }

    sub add_png{
        my $png = shift;
        my $image = $pdf->image_png($png);
        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);
    }

    sub add_gif{
        my $gif = shift;
        my $image = $pdf->image_gif($gif);
        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);
    }