Answer to Question #16625 in Perl for Tohru

Question

How do you write a script in Perl showing the functions of a Pez Dispenser? The script is suppposed to show how you load colors (of Pez Candy) from a text file and then dispense the colors just as you would the candy in a Pez Dispenser.

Answer 1

$site=;
chomp $site;

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

if ( $site !~ /^http:/ ) {
$site = 'https://' . $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