Answer to Question #16120 in Perl for mohamed

Question

$site=<STDIN>;
chomp $site;

print "\n";
print "source code\n\n 1 = php\n\n-> ";
$code=<STDIN>;
chomp($code);

if ( $site !~ /^http:/ ) {
$site = 'http://' . $site;
}
if ( $site !~ /\/$/ ) {
$site = $site . '/';
}
print "\n";

print "-> Target: $site\n";
print "-> Site source code: $code\n";
how i make this script get the target automatic from file.txt

Answer 1

Inorder to do what you want, you're going to populate a file with
the URL's (preferably one per line). Then, read in the file and
process each URL in turn.
Thethings you're going to research on how to use are things like the open
function and also how to read a file into an array (or just how to
read each line from a file in turn. hint: foreach would work).