How to take multiple files in command line arguments using perl?

This code runs fine.But in command line arguments i run it for single file.I dont know how to make run for multiple files in single command line .Help me to fix it.

use strict;
use warnings 'all';
use CGI qw(:all);
use Getopt::Long 'GetOptions';
    'proj=s'    => \my $proj,
    'map_file=s' => \my $map_file,
    'outdir=s'  => \my $outdir,
open my $HTML, '>', $outdir or die $!;
print $HTML <<'_END_HEADER_';
<table border=10>
<th>SL.NO</th><th>CHECKLIST ITEM</th><th>VALUE</th><th>COMMENTS</th><th>CONFIRMATION</th>
open my $IN, '<', $map_file or die $!;
while (my $line = <$IN>) {
    chomp $line;
    print $HTML '<tr><td>' . join('</td><td>', split(/:/,$line)) . "</td></tr>\n";
    #print $HTML '<tr><td>' . $line =~ s|:|</td><td>|gr . "</td></tr>\n";
close $IN or die $!;
print $HTML <<'_END_FOOTER_';
close $HTML or die $!;

command execution as follows:

./ -proj “prj1” -map_file “/home/a/b/space/prj1/bk2/check10/rv1/rv.config” -outdir /home/a/c/prj1.html

This topic was automatically closed 91 days after the last reply. New replies are no longer allowed.