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>