небольшой скриптик...

xtb низера не катит( пробовал так

#!/usr/local/bin/perl
use strict;
my $dir = ".";
$dir = $ARGV[0] if defined $ARGV[0];
my @list = scan_dir ( $dir );
my $i = 0;
for ($i =$[; $i <= @list; $i++)

{

system("cd $i./user/;ls >> ../1.txt; cd ..");



}

__END__

не работате((
ругается Undefined subroutine &main::scan_dir called at f.pl line 14. (

 

блин ебусь уже третий день... (( поправте ктонить мой скрипт выше.....

 

С радостью бы помог, но в перле - полный ноль

смущает эта строчка:

for ($i =$[; $i <= @list; $i++)

что такое "$[" ???

ЗЫЖ И потом здесь

http://turenko.com/blog/2007/01/15/making-recursive-file-list-using-perl/

готовый вариант того, что тебе надо, а ты чото придумывать своё всё пытаешься

 

это в перле начало массива...

там идет запись всех папок и файлов.. в мое случае это ОЧЕНЬ докуя и ОЧЕНЬ долго...
надо всего на две диры....