Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Компьютеры + Интернет » Вебмастеру » perl

Ответить
Настройки темы
perl

Новый участник


Сообщения: 19
Благодарности: 0

Профиль | Отправить PM | Цитировать


как подставить вместо 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

 

Аватара для benya

Старожил


Сообщения: 302
Благодарности: 5

Профиль | Сайт | Отправить PM | Цитировать


Ничего не понял Обьясните конкретнее.

Отправлено: 19:21, 08-09-2006 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 1404
Благодарности: 135

Профиль | Отправить PM | Цитировать


Примерно таким образом
Код: Выделить весь код
open (INPUT, "master.txt");
while(<INPUT>)
{
chomp($_);
$link=$_;

<... указанный вами код...>

}
close (INPUT);
Вообще сайт и директорию лучше указывать в master.txt, а не вводить вручную, чтобы скрипт сам вычленил из ссылки вида http://localhost/home/1.php смысловые части, например:
$link=~/(.*?)\:\/\/(.*?)(\/.*\/)(.*)/;
$site=$2; #localhost
$path=$3; #/home/
$file=$4; #1.php

Отправлено: 19:44, 08-09-2006 | #3



Компьютерный форум OSzone.net » Компьютеры + Интернет » Вебмастеру » perl

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
perl E-mail Вебмастеру 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




 
Переход