Anonymous

#!/usr/bin/perl

opendir(DIR, ".");
@files = grep(/\.txt$/,readdir(DIR));
closedir(DIR);

@x = (485, 420, 350);
@y = (95, 75, 35, 5);
@z = (9, 7, 5, 3, 1);

foreach $x (@x) {
	
	foreach $y (@y) {

		foreach $z (@z) {
	
			open (FPTR,">$x.$y.$z.txt") || die "Can't Open File\n";

			foreach $file (@files) {
			$vectorList = `get_vector $x $y $z 560 100 5 $file`;
			@vector = split(/ /, $vectorList);
			print FPTR $vector[1] . "\n";
}

close(FPTR);