Shell Programming and Scripting

###Get generation directory information ###
open(GENDIR, "<gens.txt") or die "Can't open gens.txt $!";
while(<GENDIR>){
	chop($_);
	push(@gendirs,$_)
}	

## Unzip .t file into stage directory ##
for $i (0 .. $#gendirs){  
   	($gennum)=(split /\\G/, $gendirs[$i])[1];
	#print "$gennum\n";
	print "unzip -d \\stage -j $gendirs[$i]\\*.zip *.t\n";
	system("unzip -d \\stage -j $gendirs[$i]\\*.zip *.t");
##zip .t file ##
	system("zip -v -9 \\stage\\vista.zip ${gennum}.t");
	#open(GENS, "<listofGens.dat") or die "Can't open listofGens.dat $!";
	#while(<GENS>){
		#chop($_);
		#if ($_=~/^$gennum\|/){
			#($repname)=(split /\|/)[1];
			#print "$repname\n";
			#print "${gennum}.t";
			#print "\nrename \\stage\\${gennum}.t \\stage\\$repname\n";
			#system("rename stage\\${gennum}.t stage\\$repname");
			#last;
		#} 
		
	#}
	#close(GENS);
}





#open(GENS, "<listofGens.dat") or die "Can't open listofGens.dat $!";
#while(<GENS>){
#}

system("zip -v -9 \\stage\\vista.zip ${gennum}.t");

system("zip -v -9 \\stage\\vista.zip \\stage\\${gennum}.t");