Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Как вывести на экран содержимое директория ?

Автор: qaz0 7.9.2005, 16:15

Автор: Гость_GURU 7.9.2005, 16:54

Wndows: dir
Linux ls

Автор: Usya 7.9.2005, 22:29

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

Автор: sharq 7.9.2005, 23:43

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"
}

Автор: Psixolog 30.10.2005, 13:39

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

Код


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>');
}
}