0 Пользователей и 1 Гость просматривают эту тему.
А в хеш массивов запихныть не проще?да мне без разницы, примерчик бы, плохо перл знаю...__________________С наилучшими пожеланиями. LODEVAR http://lodevar.hut.ru/cgi-bin/main.cgi
my $stat = 0;my $s_root = \'c:/perl\';my $count_f = 0;my $count_d = 0;sub dir_ls { my $save_dir; my $root = shift; local *DIR_LS; opendir DIR_LS ,$root; while (my $file = readdir (DIR_LS) ) { next if $file =~ /^\\.\\.?$/; print "$root/$file\\n"; if (-d "$root/$file") { $count_d++; dir_ls ("$root/$file"); } else { $count_f++; } }}dir_ls ($s_root);print "\\n\\nTotal -\\nDirs: $count_d\\nFiles: $count_f\\n";