findGradientFiles.pl

#!/usr/bin/perl

###############################################################################
# Mina Jafari, June 2015                                                       #
# Purpose: This script searches for all the string files in the directory you #
# have ran it and its subdirectories. It writes the name of the directory and #
# the output of "status" executable to a file named stringSummary.csv So you  #
# can open it with excel.                                                     #
###############################################################################

use strict;
use warnings;

my $counter = 0; 
my $path = shift || '.';
my @directories;
my @direc;
use Cwd;
my $pwd = getcwd();
my $outFile = "NEB-Gradients.csv";
my @outPuts;
my @array;

traverse($path);

#save the output of status exe in the outPuts array and copies the files to
#local machine
#my $desDir = "$I:Desktop/gradients"; #this should be entered manually
#my $num  = sprintf("%04d", 0001);
my $output;
for my $j (@directories)
{
    chdir "$j";
    open FILE, 'gradient' or die $!;
    while (<FILE>)
    {
        $output = $_;
    }
    close(FILE);
    $j =~ s/\//-/g;
#    system "scp -p gradient $desDir/$num-$j.txt"; #uncomment to copy files
#    $num++;
    my @directory = split /=/, $output;
    my $dir2 = $directory[1];
    $dir2 =~ s/ +/,/g;
    push @outPuts, $dir2;
    chdir "$pwd";
}

#combines the two arrays (outPuts and directories)
for my $i (0..$counter-1)
{
    push @array, $directories[$i];
    push @array, $outPuts[$i];
    $i++;
}

#writes to the file
open FILE, ">", "$outFile" or die "can't open \n";
for my $k (@array)
{
    print FILE $k, "\n";
    print "\n\n";
}
close (FILE);

print("Total number of files = ", $counter, "\n");

#definition of traverse subroutine
sub traverse 
{
    my ($thing) = @_;
    if ($thing =~ m/gradient$/)
    {
        $counter++;
        #saves the path of the directories containing gradient files to
        #@directories array
        my $slashes = ($thing =~ tr/\///) - 1;
        my @directory = split /\//, $thing;
        my @dir2 = @directory[1..$slashes];
        my $dir3 = join '/', @dir2;
        push @directories, $dir3;
    }

    return if not -d $thing;
    opendir my $dh, $thing or die;
    while (my $sub = readdir $dh) 
    {
        next if $sub eq '.' or $sub eq '..';
        traverse("$thing/$sub");
    }
    close $dh;
}