Simply, I wrote a little Perl script that will have an outer loop (the "for" loop) to process all of the directories with a similiar name of "/home/customer*/input" and an inner loop (the "foreach" loop) that will process all files found within each directory of "/home/customer*/input".

When I execute the script, it does not fail but I do not receive my print command output (a checking mechanism). When I modify the script to remove the outer loop (the "for" loop) everything works correctly.

Here is the code:

#!/usr/bin/perl

use strict;
use warnings;
use English;
use File::Basename;
use File::Copy;

# VARIABLES

my $AIWBASE = "/aiw/aiw1";
my $totcus = `ls -d /home/customer* | wc -l`;
my $customer = 1;

# MAINLINE

for (my $customer=1; $customer > $totcus; $customer++) {
my $SaaS_Customer_Input_Data = "/home/customer$customer/input";
my $SaaS_Customer_Output_Data = "/home/customer$customer/output";
opendir(INPUTDIR, $SaaS_Customer_Input_Data) or die "Couldn't open '$SaaS_Customer_Input_Data': $!";
opendir(OUTPUTDIR, $SaaS_Customer_Output_Data) or die "Couldn't open '$SaaS_Customer_Output_Data': $!";
my @customer_files = grep {!/^\./ && -f "$SaaS_Customer_Input_Data/$_"} readdir(INPUTDIR);
foreach my $customer_file (@customer_files) {
print "total customers: $totcus\n";
print "Customer Number: $customer\n";
print "customer file: $customer_file\n";
}
closedir(INPUTDIR);
closedir(OUTPUTDIR);
}
exit 0;


Perhaps someone can point-out my failure here!

Would you mind adding code tags? .. it's a bit hard to read, thanks

Are you sure this is correct?:

What are code tags, I'm sorry? Well, I think that the "for" loop code is correct but it is why I have posted the question for assistance.

He is talking about putting code tags around your listing to make it easier to read.

I don't think readdir does what you think it does.

It opens a directory and gives a list of file names. It does not do subdirectory processing.

If a directory listing looks like
Then
Will give you the array list with:
Your grep line appears to be looking for "xyz/a", which won't be there.

The result should be an empty list (@customer_files will have nothing in it), and the script then exits.

No output.

For loops are usually in the format
.. where the test needs to return true to execute the body.
Yours initialises a value to 1, tests whether the value is greater than $totcus and then skips executing the loop contents because it isn't.

I believe what you want is:

1 members found this post helpful.

Great post sir or madam! It worked beautifully! It wasn't so intuitive at the time regarding the second parameter of the "for" loop command but now it is so! Thanks a trillion!