ANTICHAT — форум по информационной безопасности, OSINT и технологиям

S0ulVortex, понравилась эта книга. Написана вроде толково. Правда, я ее еще до конца не прочел))

Да я уже скачал книгу "Perl. Специальный справочник" уже первые 2 части разобрал вроде более мение понятно но все же не все. Но думаю понимание будет когда прочитаю весь учебник.

Понимание придет только после того как начнешь програмить =)) Чтение эт конечно хорошо, но мое предпочтение будет намного больше к практику нежели к теоретику =)) Я думаю так и у всех =)

как заставить перл воспринять расширение .php.xl Чтобы он открывал его через LWP::UserAgent как обычное .php ??

ph1l1ster, если ты открываешь через LWP::UserAgent файл на другом серваке, перлу пофигу какое у него расширение, он получает только хтмл код, то есть чтобы что-то исправить надо доступ к серваку

Товарищи, привет всем!

Есть проблема. К примеру есть список адресов вида:

http://www.example.org/1234/text/
http://www.example.org/1235/text/
http://www.example.org/1236/text/
http://www.example.org/1237/text/

нужно его пропарсить, и сохранить вывод каждой страницы в какую-нибудь папку, чтобы было в ней типа того:

./any_dir/1234.txt
./any_dir/1235.txt
./any_dir/1236.txt
./any_dir/1237.txt

etc

Т.е. есть проблема. Нужно сохранять выданые веб-сервером странички. Есть решение подобной проблемы?

#!/usr/bin/perl -w

use LWP::UserAgent;

$browser = LWP::UserAgent -> new;
$url = '';
$str = 1; # с какой стр начинать
$end = 20; # закончить
while ($str<$end) {
$request = $browser -> get ("$url".$str)->content;
$dir = int(rand(1000));
mkdir ($dir);
open (LOG , ">./$dir/$str.html");
print LOG $request;
close LOG;
$str++;
}

Что делает эта регулярка?

http://books.onlinekniga.ru/books/coockbook/01/8