Программирование > Perl

Содержимое директории WEB-сервера

<< < (2/5) > >>

arto:
никак. на них может не быть ссылки.

alex007:

--- Цитировать ---Neulovimy:
Имеется ввиду, что при вводе url, необходимо получить список скриптов, которые содержит сайт.
--- Конец цитаты ---

можно только файлы показать.

Neulovimy:
А индексный файл можно узнать, т.е ту страницу, которая загружается при обращении к серверу? (http://www.server.com)

CGVictor:
Neulovimy
Что значит - узнать? Можно получить ответ сервера. И это все варианты.

APL:
можно анализировать
ls -R

можно
sub   get_files_tree {
   my ( $base_dir, $mask, @result) = @_;

   my $full_mask = \'\';
   my $full_dir = \'\';

   $full_dir = \'\'.($base_dir);
   $full_mask = "$full_dir/$mask";


   $full_dir =~ s/\\/{2,}/\\//g;
   $full_mask =~ s/\\/{2,}/\\//g;

   push @result, $full_dir;

   my @files = get_file_list($object, $full_mask);
   @result = (@result, @files);

   my @dirs = get_dir_list($object, $full_mask);
   foreach ( @dirs ) {
      my @d = split /\\//, $_;
      my $dir = pop @d;
      if ( length $dir ) {
         my $rd = "$base_dir".\'/\'."$dir";
         @result = get_files_tree("$rd", "$mask", @result );
      }
   }
   return @result;
}

sub   get_file_list {
   my ($full_mask) = @_;
   my @result = ();
   my @list = glob ( $full_mask );
   foreach (@list) {
      if (-f $_) {
         push @result, $_;
      }
   }
   return @result;
}

sub   get_dir_list {
   my ($full_mask) = @_;
   my @result = ();
   my @list = glob ( $full_mask );
   foreach (@list) {
      if (-d $_) {
         push @result, $_;
      }
   }
   return @result;
}

Можно еще по всякому получай список файлов, текущую директорию, анализируй директория или файл, проверяй права и вперед рекурсию, какая проблема

Навигация

[0] Главная страница сообщений

[#] Следующая страница

[*] Предыдущая страница