Forum Webscript.Ru
Программирование => Perl => Тема начата: Neulovimy от 13 Марта 2009, 10:45:22
-
Может кто-нибудь знает, возможно ли с помощью Perl провести поиск и вывод списка всех файлов, которые содержатся на Web-сервере по введённому URL?
-
уточните задачу -- что такое "файл" в контексте "web"?
-
Имеется ввиду, что при вводе url, необходимо получить список скриптов, которые содержит сайт.
-
уточните задачу -- что такое "скрипт" в контексте "web"?
-
Ну, например, Index.php или Head.php
-
никак. на них может не быть ссылки.
-
Neulovimy:
Имеется ввиду, что при вводе url, необходимо получить список скриптов, которые содержит сайт.
можно только файлы показать.
-
А индексный файл можно узнать, т.е ту страницу, которая загружается при обращении к серверу? (http://www.server.com)
-
Neulovimy
Что значит - узнать? Можно получить ответ сервера. И это все варианты.
-
можно анализировать
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;
}
Можно еще по всякому получай список файлов, текущую директорию, анализируй директория или файл, проверяй права и вперед рекурсию, какая проблема
-
а где тут протокол http?
-
Вопрос звучал так:
Может кто-нибудь знает, возможно ли с помощью Perl провести поиск и вывод списка всех файлов, которые содержатся на Web-сервере по введённому URL?
===============================
А что такое по-вашему на веб-сервере? Что такое по введенному url? Что в урле должно быть и как интерпретировать параметр? Трудно начать с директории $ENV{\'DOCUMENT_ROOT\'} или с любой другой????
В чем вопрос?
-
как вы отобразите uri на физическое расположение файлов/скриптов, если хотите работать локально?
-
Можно укзать путь относительно document_root
-
Трандец.
Чуваки.
Вы вообще о чем?
Вы понимаете, что такое URL и что такое файловая система?
-
hanslinger:
Я понимаю
Задачу понял так - вывести файлы (с рекурсией) относительно пути, переданного через параметр url
-
Мне кажется, ты здорово польстил автору вопроса.
-
например, урл: http://www.nowhere.com/aa/bb/cc/dd транслируется mod_rewrite в /aa/bb/ee?param=dd¶m=ee, где /bb/ee -- PATH_INFO. найдите скрипт /aa.pl
-
[OFF]OMFG. Цирк приехал. Уже даже не смешно.[/OFF]
Еще мнения будут, или прибиваем этот поток мысли, чтобы народ не позорился?
-
я смотрю, не только мне понравилось :)
-
предполагаю цель вопроса господина "Neulovimy" связана с вопросом о\'грабления контента с какого то сайта. предполагаю даже что изначально его интересовал вопрос инструмента, perl или не perl вот в чем вопрос. В 22 года молодой человек как юнный аникен, чувствует в себе силу, которой можно перевернуть мир и он ищет только рычаг, причем предполагаю у него были очень амбициозные планы. прошу заметить что юнный аникем знает слово "список" и слово "файл". "будьте бдительны он вооружен!" - шепчет толпа зевак. в образе арто аникем встречает первое джедайское непонимание и решает уточнить, типо нахер ему список всех файлов, ему только список скрипотов. розовая мечта захвата мира начинает млеть на глазах. Он тянется в инет в поисках подходящих слов "урл" кричит он магическое слово, мне нужен "урл". Но нет этот выпад также не увенчался успехом и очередной раз ткнув пальцем в небо аникем теряет равновесие, земля уползает из под его ног, не выдержав атмосферного давления он бессильно смотрит вслед логам и все еще лилеет надежду узнать самый сокровенный секрет этого мира. Мира в котором он хотел оставить свой след, но пока только потоптался у порога
-
Расслабьтесь, товарищи! Нет, всё-таки ничего лучше собственной головы и нескольких книжек умных.
-
Все свободны, короче говоря.