VPF::Как вывести на экран содержимое директория ?

qaz0

Дата 7.9.2005, 16:15 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Гость_GURU

Дата 7.9.2005, 16:54 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Wndows: dir
Linux ls

Usya

Дата 7.9.2005, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 7.6.2005

Репутация: нет
Всего: нет

Здесь
http://forum.vingrad.ru/index.php?showtopic=59812
частично это обсуждалось.
smile

--------------------

Я не волшебник, я только учусь...

sharq

Дата 7.9.2005, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 23
Всего: 28

qaz0
1. Читай доку по opendir, readdir, telldir, seekdir, rewinddir и closedir.

Код


use strict;

my $dir = '.';

opendir DIR, $dir or die "Can't open dir: $!\n";
print $_."\n" foreach readdir DIR;
clodedir DIR;

Код


use strict;

my $dir = '.';

if ($^O =~ /win/i) {
    print qx(dir $dir)
} elsif ($^O =~ /nix/i || $^O =~ /bsd/i) {
    print qx(ls $dir)
} else {
    print "Sorry, I don't know, but you may tell me!\n"
}

Это сообщение отредактировал(а) sharq - 7.9.2005, 23:45

--------------------

[color=gray]There's More Than One Way To Do It[/color]

Psixolog

Дата 30.10.2005, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 30.10.2005

Репутация: нет
Всего: нет

Элемертарно Ватсон =))

Код


my $root = $ENV{DOCUMENT_ROOT};
my $art = "upload/"; # путь куда закачиваются файлы 
opendir( DIR, $root . $art);
foreach (readdir( DIR)){
my $file = $_;
if ( $file && /[A-Za-z]/ ){
print ('<a href="'.$art.''.$file.'"> '.$file.'</a>');
}
}

Это сообщение отредактировал(а) Psixolog - 30.10.2005, 13:40

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »