|
Компьютерный форум 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 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 1404
|
Профиль | Отправить 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 |
|