#! usr/local/bin/perl 

print STDOUT "Hello\!\n";
print STDOUT "This program will take a folder of Affymetrix text files and put\n";
print STDOUT "their signal data in a format useful for Cyber-T\.\n";
print STDOUT "Please enter the name and location of the directory to parse\:\n";
$directory=<STDIN>;
open (OUTPUTFILE,">data.csv"); 
opendir(DIR, "$directory") or die "Failed to open $directory: $!"; 
while (defined(@filename = readdir(DIR))) { 
@spliced_data=splice(@filename, 0, 15);
foreach $_(@filename) { 
   ($a, $b, $c, $d, $e, $f)=split(/\t/);
   push(@final_data, "$d\n");} 
print OUTPUTFILE "@final_data";
}
closedir(DIR);