Select Code to Download

Gkel_check.1.ABC.dat.gz
Gkel_check.1.ABC.dat
check.1.ABC_TT1.dat
check.1.AB_TT1.dat

if (($file=~ m/^Gkel_/) && (substr($file, -2) eq 'gz')) {
my $result = `gunzip -c $file|tail -1`;
$Count = substr($result,22,8);
system(`gunzip -f $file`);
$Orig_file = $file;

elsif ($file=~ m/^check.*TT1.dat$/)
my $result = `wc -l $file`;
...
$result{$hashkey}->[0] = $file_name;
$result{$hashkey}->[1] = $count;
$hashkey++;

opendir( DIR, $dir );
my @files = grep( /$pattern/, readdir(DIR) );
...
system(`mv $file $file1`);
        }
    }

June-2013 Gkel_check.1.ABC.dat.gz count check.1.ABC_TT1.dat count chec
+k.1.ABC.dat.gz count

check.1.AB_TT1.dat