[PERL] 특정폴더안에 있는 모든 파일을 불러들여 조건이 맞는 파일을 하나로 만드는 코드를 작성중입니다.

use 5.010; use warnings;

if( $#ARGV < 0 ) { die "폴더이름이 필요해요.\n"; }

$dirName = shift(@ARGV); local($i);

&readSubDir($dirName);

sub readSubDir { if(!opendir(dirHandle, $[0])) { print "$[0] Failed opening.\n"; return 0; }

local(@files) = readdir(dirHandle);

local($i);
local($newFile);

local(@dironly);
local(@fileonly);

for($i = 0; $i <= $#files; $i++)
{
    $newFile = $_[0]."\\".$files[$i];
    if(-d $newFile)
    {
    push(@dironly, $files[$i]);
    }
    elsif(-f $newFile)
    {
        push(@fileonly, $files[$i]);
    }
    else
    {}
}

@files = @dironly;
push(@files, @fileonly);
closedir dirHandle;


my $cnt = 1;
my $b = 2011;

for($i =0; $i <= $#files; $i++){
    $newFile = $_[0]."\\".$files[$i];
    if(-f $newFile){
    open(fileHandle, $newFile)|| die "Cannot open 개체 \n";
    my($dir, $file, $ext) = ($newFile =~ m|^(.*\\)(.*)(\..*)$| );
    if (substr($file,17,4) eq $b){
    while(<fileHandle>){
        if($. == 7){        
    my $filename = $cnt.'.txt';
    open OUT, ">$filename" or die "Failed to create $filename";
    print OUT $_;
    }
    }
    close(fileHandle);
    }
    elsif (substr($file,17,4) eq $b+1){
    $b++;
    $cnt++;
    while(<fileHandle>){
        if($. == 7){        
    my $filename = $cnt.'.txt';
    open OUT, ">$filename" or die "Failed to create $filename";
    print OUT $_;
    }
    }
    close(fileHandle);
    }
    }
    close(OUT);
    }
        }