Below is the code i have written, If this can be tuned in better way, Please suggest

Also i have one more challenge ie., My files are in multiple directories, But with get options, i can give only one path as inputpath. Is there any way that i can give multiple paths like something like ex: myinputpath/*/myfolder/filenames*

SAMPLE INPUT

file1:

11111

22222

33333

44444

file2:

55555

66666

77777

88888

file3:

99999

00000

My Output should be like below

if i give split count as 2, script should generate 5 files

Outputfile1:

11111

22222

Outputfile2:

33333

44444

Outputfile3:

55555

66666

and so on..

Outputfile5:

99999

00000

use strict;
use warnings;
use Getopt::Long qw(GetOptions);
use File::Basename;
use POSIX qw/strftime/;


my $inputdir;
my $OPCO;
my $OutPath;
my $LogFile;


################
GetOptions(
        'inputdir=s' => \$inputdir,
        'opco=s' => \$OPCO,
        'outputdir=s' => \$OutPath,
        'logfile=s' => \$LogFile,
        ) or die "Usage: $0 --inputdir inputPath --opco OPCO --outputd
+ir OUTPUT_PATH --logfile LOG_FILE \n";

my $FILESPLITCNT=2;
my $log = $LogFile;
open(my $flog, '>>:encoding(UTF-8)', $log)
or die "ERR: Could not open file (to write): '$log' $!";

my $finputDir = $inputdir;
opendir(DIR, $finputDir) or die "ERR: Can't open directory $finputDir:
+ $!";
my @files = readdir(DIR);
my $CDRCNT=0;
my $initSeq=0;
my $SEQNUM = sprintf("%03d",$initSeq);
my $out = $OutPath."/".$OPCO."_SS_".strftime('%Y%m%d_%H%M%S',localtime
+)."_".$SEQNUM.".cdr";
open(my $fout, '>>:encoding(UTF-8)', $out)
  or die "ERR: Could not open file (to write): '$out' $!";
print STDOUT "OUTPUTFILE PATH IS:".$out."\n";

foreach my $file (@files)
{
    if ( -f $finputDir . "/" . $file)
    {
        my($filename, $dirs, $suffix) = fileparse($file);
        my $finput = $finputDir .  $filename;
        my $fileLength = length($filename);
        if($fileLength < 50)
        {
            #KEEP EXTRA SPACES to filename            
            #$filename .= (" " * (50 - length($filename)))
        }
        open(my $fin, '<:encoding(UTF-8)', $finput) or die "Could not 
+open file (to read) '$finput' $!"; 
        print $flog "Processing File:" . $finput . "\n";
        while (my $row = <$fin>) 
        {
            chomp $row;
            if($CDRCNT == $FILESPLITCNT ) 
            {
                close $fout;
                $CDRCNT = 0;
                $SEQNUM = $SEQNUM + 1;
                $out = $OutPath.$OPCO."_SS_".strftime('%Y%m%d_%H%M%S',
+localtime)."_".sprintf("%03d",$SEQNUM).".cdr";
                open( $fout, '>>:encoding(UTF-8)', $out)
                    or die "ERR: Could not open file (to write): '$out
+' $!";
            }
            print $fout "$filename;$row\n";
            $CDRCNT = $CDRCNT + 1;
        }
        undef $finput;
        close $fin;
    }
}

close $fout;
close $flog;
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.