perl

[simon171078]

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

[benya]

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

[mrcnn]

Примерно таким образом
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