Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   небольшой скриптик... (https://forum.antichat.xyz/showthread.php?t=90558)

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

preda1or 05.11.2008 23:30
да уж,рассталкуй

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

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

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

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

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

Zitt 06.11.2008 02:04
нико не знает?

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

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

Zitt 06.11.2008 19:24
начал пытаться написать...
код.... пока только листинг..
PHP код:
<?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 06.11.2008 19:42
http://scripts.protoplex.ru/scripts_show/745.html

Zitt 06.11.2008 20:31
не, не катит...

t00th 06.11.2008 20:44
Код кривой но вроде работает

#!/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 06.11.2008 22:00
t00th, спасибо...
я вот тож на php навоял =))
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 08.11.2008 19:58
t00th, непашет твой скрипт(((
записывает тольколь имя первой папки(

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

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

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

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

Pashkela 09.11.2008 03:45
выбирай не . и не .. а выбирай конкретную папку

Pashkela 09.11.2008 05:22
вот ОЧЕНЬ интересный исходничек

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

Zitt 09.11.2008 06:13
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 09.11.2008 15:54
блин ебусь уже третий день... (( поправте ктонить мой скрипт выше.....

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

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

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

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

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

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

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

Zitt 09.11.2008 16:53
Цитата:
что такое "$[" ???
это в перле начало массива...

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


Время: 11:43