On 9 Aug 2006 at 0:33, James Marks wrote:

Ohh ohh. I think I know this (they'll flame me if I'm wrong).
Is it?

use strict;
use warnings;
....

my $no_dirs = @{ $web_sites_directory_tree[$i]{subdirectory} };

I hope I'm right..fingers crossed.
Dp.


 
> # COUNT NUMBER OF DIRECTORIES - (THIS WORKS)
> $directory_count = @web_sites_directory_tree;
> 
> for (my $i = 0; $i < $directory_count; $i++) {
> 
>       my $title     = "$web_sites_directory_tree[$i]{title}";
>       my $directory = "$web_sites_directory_tree[$i]{directory}";
> 
>      # COUNT NUMBER OF SUBDIRECTORIES IN DIRECTORY $i - (THIS DOESN'T 
> WORK)
>      $subdirectory_count = $web_sites_directory_tree[$i]{subdirectory};
> 
>      # (CONSEQUENTLY, THE REST OF THIS FAILS)
>      for (my $i = 0; $j < $subdirectory_count; $i++) {
> 
>          my $subdirectory = 
> $web_sites_directory_tree[$i]{subdirectory}[$j];
> 
>          print "$title\n";
>          print "$directory\n";
>          print "$subdirectory\n";
> 
>      }
> 
> }
> 
> Thanks for any help you can provide.



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to