perl - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Вебмастеру (http://forum.oszone.net/forumdisplay.php?f=22)

- - perl (http://forum.oszone.net/showthread.php?t=71023)

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

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

Примерно таким образом

Код:

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