Hi,

Please find the results 

my @array;
my @Gkel=();
my @Gkel_gz=();
my @Check=();
my @files;


opendir( DIR, $dir );
my @files = grep( /$pattern/, readdir(DIR) );
closedir(DIR);
    
chdir($dir);

foreach my $file (@files) {    
if ( $file =~ m/^Gkel_/ ){
if ( substr($file, -2) eq 'gz' ) {
     
my $result = `gunzip -c $file|tail -1`;
system(`gunzip -f $file`);
      
my $count = substr($result,22,8);
$Gkel_gz[0] = $file;
$Gkel_gz[1] = $count;
} 
else {
my $result = `wc -l $file`;
my ($count, $file_name) = split(' ',$result);
my $file1 = substr($file,5);  
system(`mv $file $file1`);

$Gkel[0] = $file1;
$Gkel[1] = $count;
}
} 
  
if ( $file =~ m/^check.*Check.dat$/ ){
my $result = `wc -l $file`;
my ($count, $file_name) = split(' ',$result);
push @Check,[$file,$count];
}
}

my $Count  = $Gkel_gz[1];
my $Count1 = $Gkel[1] - $Check[1]->[1] ;

my @row = ('Jun-2013',$Gkel_gz[0],$Count,$Count,$Check[0]->[0],$Check[
+0]->[1],$Gkel[0],$Count1,$Count1,'TRUE',$Check[1]->[0],$Check[1]->[1]
+);

print join ',',@row,"\n";

print "@row\n";
}

[download]

Outpuy

Jun-2013,Gkel_Check.I.Jun13.dat.gz,00108418,00108418,Check.I.ABC_TT1.d
+at,278,,-470,-470,TRUE,Check.I.AB_TT1.dat,470,
Jun-2013 Gkel_Check.I.Jun13.dat.gz 00108418 00108418 Check.I.ABC_TT1.d
+at 278  -470 -470 TRUE Check.I.AB_TT1.dat 470

[download]

my expected results are as below

output

Jun-2013 Gkel_check.1.ABC.dat.gz 108418 108418 check.1.ABC_TT1.dat 470
+ Gkel_check.1.ABC.dat 107670 107670 TRUE<br>
                               Check.I.AB_TT1.dat  278

[download]

470 + 278 should be deducted from the 108418 and answer is 107670
both lines should come separately

In reply to Re^2: regarding file from the directory and executing some commands and placing the out put on exceel sheet. by Perlseeker_1
in thread regarding file from the directory and executing some commands and placing the out put on exceel sheet. by Perlseeker_1

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.