old.pl

#!/usr/bin/perl

print "Folder Name: ";
chomp($folder = <STDIN>);

opendir(DIR, $folder) || die "Folder not found";
my @file = grep { (/\.EW/i || /\.NS/i || /\.UD/i) }readdir(DIR);
close(DIR);

@testFiles;
foreach(@file){
	open(FILE, "$folder\\$_") || die "File not found";
	my @lines = <FILE>;
	close(FILE);
	
	# GET FILE NAME WITHOUT EXT
	$id = $_;
	$in = rindex($id, '.');
	$fname = substr($id, 0, $in);
	
	# GET MAX ACC (GAL)
	$id = $lines[14];
	$id =~ s/\s+\z//;
	$in = rindex($id, ' ');
	$acc = substr($id, $in+1);
	
	# IF THE ACC IS BIGGER THAN 100, PUSH FILE NAME INTO AN ARRAY
	$exist = 0;
	if($acc >= 50){
		foreach $z (@testFiles){
			if($z =~ /$fname/){
				$exist = 1;
				last;
			}
		}
		if($exist == 0){ push @testFiles, $_; }
	}
}

@ffiles;
foreach(@testFiles){
	# GET FILE NAME WITHOUT EXT
	$id = $_;
	$in = rindex($id, '.');
	$fname = substr($id, 0, $in);
	
	if($_ =~ /(1$|2$)/){
		push @ffiles, $fname . ".EW1\n";
		push @ffiles, $fname . ".EW2\n";
		push @ffiles, $fname . ".NS1\n";
		push @ffiles, $fname . ".NS2\n";
		push @ffiles, $fname . ".UD1\n";
		push @ffiles, $fname . ".UD2\n";
	}else{
		push @ffiles, $fname . ".EW\n";
		push @ffiles, $fname . ".NS\n";
		push @ffiles, $fname . ".UD\n";
	}
}

open(FILE, ">$folder\\max_acc.log") || die "File not found";
print FILE @ffiles;
close(FILE);