Hello jmneedhamco,

So the jist of what I tried is a nested loop.

I suspect that is the wrong approach here. A structure like this:

for(my $i = 0; $i < 3;$i++)
   {
      if(...)
      {
         ...
      }
      elsif($i == 2)
[download]

always raises a red flag for me: if you have to treat the case where $i == 2 differently, why try to incorporate it in a loop with the other cases? I think you’d be better off handling the 3 (or should it be 4?) file sets separately.

Also note that this:

for (my $j = 0; $j < 4; $j++)
     {
        my $file = $files[$j];
        ...
[download]

is better expressed in Perl using a foreach loop:

for my $file (@files)
{
    ...
[download]

And please note that by calling &WriteFile($file, $acString) with an initial &, you are bypassing its prototype (if any). Unless you have a good reason to do so, it’s better practice to omit the ampersand: WriteFile($file, $acString).

Hope that helps,

I'd cleanup your @files assignments via the use of a hash. Something like this:

my %files = (
    dev    => [qw(dev_file1 dev_file2 dev_file3 dev_file4)],
    prod   => [qw(prod_file1 prod_file2 prod_file3 prod_file4)],
    report => [qw(report_file1 report_file2 report_file3 report_file4)
+],
);

my $files = $files{$access};
[download]

I might even extend it to be a dispatch table, but you haven't provided enough info to say if that would be a good approach in your case.

thanks for the input Fishmonger! I decided this will be the way to go. I am just having one issue as I am not very familar with hashes at all. Been doing Perl things for quite a while, but hashes or key-value pairs never crossed my mind as a hash of arrays.

that said, I figured out how to get the access part or key out of the hash, but I need to now address the elements of the arrays. For example: If I pull the keys into an array, then I can address them. Maybe there is a more direct way, and that would be nice too. But I also need to figure out how to get say element 0 from the dev array. Help is appreciated!

my %files = (
    dev    => [qw(testd.txt testd1.txt testd2.txt testd3.txt)],
    prod   => [qw(testp.txt testp1.txt testp2.txt testp3.txt)],
    report => [qw(testr.txt testr1.txt testr2.txt testr3.txt)],
    qptool => [qw(testq.txt testq1.txt testq2.txt testq3.txt)],
);

@flags = keys %files;
[download]

This gets the keys from the hash.

There are multiple ways to access the array elements. The most direct would be:

my %files = (
    dev    => [qw(dev_file1 dev_file2 dev_file3 dev_file4)],
    prod   => [qw(prod_file1 prod_file2 prod_file3 prod_file4)],
    report => [qw(report_file1 report_file2 report_file3 report_file4)
+],
);

print $files{dev}[0];
[download]

or you could do this

my @dev = @{ $files{dev} };
print $dev[0];
[download]

I'm with Athanasius on this one. There might be a clever way to make it work in a single loop. But I would prefer to go the wordier route for the sake of clearer documentation. The time spent in writing and later reading/modifying the code is significant compared to the time it will take to execute. Be good to yourself (and any future maintainers). Treat cases separately any time they would make your if clauses start to look like spaghetti.