#!/usr/local/bin/perl

$path="D:/glcf";

$com="dir /A:D /O:N /B >dirlist.txt";
system($com);

open (DRR, "dirlist.txt");
open(OUT, ">merge.bcf");
my @alldir=<DRR>;
$num=@alldir;
$inc=0;

while ($inc < $num)
				{
$line = @alldir[$inc];
$line =~ s/\n//;

$com="dir $line\\*nn20.tif /B >dirlist$inc.txt\n";
system($com);
$newname="dirlist$inc.txt";
open (FRR, $newname);
my @files=<FRR>;
$line1 = @files[0];
($wrs,$date,$temp1,$temp2)=split('\_',$line1);

print OUT "modeler -nq \$IMAGINE_HOME/etc/models/layermerge.pmdl -meter -state Union None \'FLOAT RASTER n1 FILE OLD NEAREST NEIGHBOR AOI NONE EDGE FILL\"$path/$line/$wrs\_$date\_$temp1\_nn50.tif\"\; FLOAT RASTER n2 FILE OLD NEAREST NEIGHBOR AOI NONE EDGE FILL\"$path/$line/$wrs\_$date\_$temp1\_nn40.tif\"\; FLOAT RASTER n3 FILE OLD NEAREST NEIGHBOR AOI NONE EDGE FILL\"$path/$line/$wrs\_$date\_$temp1\_nn30.tif\"\;' ignore Unsigned_8_bit \"$path/$wrs\_$date\_utm.img\" \'n1(1)\,n2(1)\,n3(1)\'\n";

++$inc;
}
close (OUT);
close (DRR);

$com="del dirlist*.txt";
system($com);