Anonymous

#!/usr/bin/perl

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

print @files;   <--- this is what appears to do nothing.  except it takes FOREVER to do nothing.

@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 $file (@files) {
			$vectorList = `get_vector $x $y $z 560 100 5 $file`;
			@vector = split(/  /, $vectorList);
			print FPTR $vector[1] . "\n";
			close(FPTR);
			}
		}
	}
}

----------------------------------------

This is the end of the directory listing and where I am in the fs.

8cell-fixbmp-len2-10mT-Oxs_RungeKuttaEvolve-evolver-Total_field-05-0048700.txt
8cell-fixbmp-len2-10mT-Oxs_RungeKuttaEvolve-evolver-Total_field-05-0048800.txt
8cell-fixbmp-len2-10mT-Oxs_RungeKuttaEvolve-evolver-Total_field-05-0048900.txt
8cell-fixbmp-len2-10mT-Oxs_RungeKuttaEvolve-evolver-Total_field-05-0049000.txt
8cell-fixbmp-len2-10mT-Oxs_RungeKuttaEvolve-evolver-Total_field-05-0049100.txt
8cell-fixbmp-len2-10mT-Oxs_RungeKuttaEvolve-evolver-Total_field-05-0049200.txt
8cell-fixbmp-len2-10mT-Oxs_RungeKuttaEvolve-evolver-Total_field-05-0049300.txt
8cell-fixbmp-len2-10mT-Oxs_RungeKuttaEvolve-evolver-Total_field-05-0049400.txt
jtd@Phoenicis:~/oommf/8cell-fixbmp-len3-10mT$ ./process.sh 
jtd@Phoenicis:~/oommf/8cell-fixbmp-len3-10mT$