![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Компьютеры + Интернет » Вебмастеру » perl |
|
perl
|
Новый участник Сообщения: 19 |
как подставить вместо info.php данные файла master.txt
:например: localhost/home/1.php localhost/home/2.php localhost/hoome/f.php #!/usr/bin/perl -w use IO::Socket; $sock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"127.0.0.1", Timeout => 10, PeerPort=>"http(80)") or die "[+] Connecting ... Could not connect to host.\n\n"; print "Insert site \n"; $site=<STDIN>; print "Insert path \n"; $path= <STDIN>; print $sock "$site/$path/info.php" ."HTTP/1.1\r\n"; while ($answer = <$sock>) { print $answer; } close($sock); master.txt: 1.php 2.php f.php |
|
Отправлено: 18:57, 08-09-2006 |
![]() Старожил Сообщения: 302
|
Профиль | Сайт | Отправить PM | Цитировать Ничего не понял
![]() |
Отправлено: 19:21, 08-09-2006 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 1405
|
Профиль | Отправить PM | Цитировать Примерно таким образом
open (INPUT, "master.txt"); while(<INPUT>) { chomp($_); $link=$_; <... указанный вами код...> } close (INPUT); $link=~/(.*?)\:\/\/(.*?)(\/.*\/)(.*)/; $site=$2; #localhost $path=$3; #/home/ $file=$4; #1.php |
Отправлено: 19:44, 08-09-2006 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
perl | Вебмастеру | 4 | 31-01-2006 09:06 | ||
FreeBSD 5.3 Perl не видит локали, а KDE при сборке не видит perl :o | mar | Общий по FreeBSD | 8 | 06-05-2005 13:13 | |
Perl | Patrick | Программирование и базы данных | 3 | 02-06-2004 23:27 | |
Perl | Guest | Программирование и базы данных | 2 | 08-03-2004 23:00 | |
Perl::Tk | CBMen | Вебмастеру | 1 | 24-02-2003 16:56 |
|