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

[Zitt]

Вобщем нужно небольшой скриптик который выводит список папок в фаил.. Например;
/home/$papka/user/$papka1
Имя папки1 нужно записать фаил....

[preda1or]

да уж,рассталкуй

[login999]

насколько я понял, то он должен листинг всех директорий записать в файл

[Zitt]

ну...
вобщем нужно чтоб скрипт
заходил в папку /home/
получал список файлов (papka)
заходил в papka/user
опять получал имя папки и записывал в фаил (papka1)

и так в цикл пока не кончатся papka

[dfgrd]

http://www.filehoster.ru/files/br3216
вот залил, листинг директорий, мож поможет, написать жаба времени душит)
на компе нашёл, покупал когда то на плати.ру

[Zitt]

необезательно на php... можно на перле баше си и прочем)

[Zitt]

нико не знает?

[.:EnoT:.]

Берёшь скрипт листинга дерикторий, немного переписываешь, делаешь с рекурсией (если такового там нет) и радуешься )))
или это очередная тема из разряда "напишите за меня"?)

[Isis]

Берешь тот-же маднетшелл и выдираешь с него то что надо, делаешь с ре

[Zitt]

начал пытаться написать...
код.... пока только листинг..
<?php
$folders = array();
if ($handle = opendir('.')){
while (false !==($file = readdir($handle))){
if ($file !='.'&& $file !='..'){
//echo "$file <br>";
$folders[] = $file;

}
}
echo $folders[5];
$filename = "1.txt";
if ( is_writeable($filename) ) echo 'ok'; else echo 'bed';
$fh = fopen($filename, "w");
$success = fwrite($fh, $file);
fclose($fh);
closedir($handle);

}


?>

Куда нужно закрывающие скобки ставить?? от их положения в фаил не пишется\пишется первый фаил\пишеться последный фаил...

[Pashkela]

http://scripts.protoplex.ru/scripts_show/745.html

[Zitt]

не, не катит...

[t00th]

Код кривой но вроде работает

#!/usr/bin/python

import os

curdir = "/home"
stat = 1

f = open("/home/dares/trash.txt", "a")

for name in os.listdir("/home"):
if os.path.isdir(os.path.join(curdir, name)):
name = name + "/user/"
curdir = (os.path.join(curdir, name))
for name1 in os.listdir(curdir):
if os.path.isdir(os.path.join(curdir, name1)):
result = name1+"\n"
f.write(result)

[Zitt]

t00th, спасибо...
я вот тож на php навоял =))

<?php
$folders = array();
if ($handle = opendir('.')){
while (false !==($file = readdir($handle))){
if ($file !='.'&& $file !='..'){
//echo "$file <br>";
$folders[] = $file;
}
}
}


echo "go..";
$folders = count($folders);
for($index=0; $index < $folders; $index++)
{
$a=system("cd $index./user/;ls >> ../1.txt; cd ..");
}

[Zitt]

t00th, непашет твой скрипт(((
записывает тольколь имя первой папки(

[Zitt]

заплачу два бакса.. за скрипт на перле, баше, питоне, си..
пхп не предлогать...

[Pashkela]

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

баксы оставь себе на пиво:)

[Zitt]

Pashkela, спс, то что надо.. но он выбирает все поддпаки это слишком многги долго.. что изменить чтоб он только на две поддпап опускался..??

[Pashkela]

выбирай не . и не .. а выбирай конкретную папку

[Pashkela]

вот ОЧЕНЬ интересный исходничек

http://script4u.ru/php/file/431-phpbrowser-1.0.html

[Zitt]

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. (

[Zitt]

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

[Pashkela]

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

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

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

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

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

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

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

[Zitt]

что такое "$[" ???
это в перле начало массива...

http://turenko.com/blog/2007/01/15/making-recursive-file-list-using-perl/
там идет запись всех папок и файлов.. в мое случае это ОЧЕНЬ докуя и ОЧЕНЬ долго...
надо всего на две диры....