You're welcome... it's good to see people learn, to be honest i often have to look up the most basic things myself.
One minor hint:
When you want to assign the value of one variable to another, you needn't quote the original variable.
Hence,
$String = "$survey";
is actually better written as:
$String = $survey;
Perl is flexible enough to live with the first version, but that ability was really meant more for things like this:
if ($something) {
# do some stuff
}
else {
# there was an error, set it
$error = "informative error message";
$error_num = 45;
}
print STDERR "Error $error_num $error";
This will (if there was an error, ie $something was not true) produce:
Error 45 informative error message
on the STDERR output (or in a logfile, or wherever you printed the error)
In any case, please do take a look at those other links in this thread, if you read/heed them, you'll actually get better answers much more quickly at this site.
have a great day! |