starkruzr

#!/usr/bin/perl

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

print map "$_\n", @files;

@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.out") || die "Can't Open File\n";

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