i have no idear why partial variable value missing. and these missing value are alway between " and ". hope to get help here.
For example: $value1= 'dog "cat1 cat2" '; The final reads is dog, any value between " and " is disappeared.( value of cat1 and cat2 is disapeared)
I am useing following code to fetch the html page: $value1 is enbeded in that html papge.
sub Template {
my ($template) = @_;
my $HTML="";
open (TEMPLATE, "$template") || die print "CAN NOT OPEN TEMPLATE FILE : $template : $!";
#open (TEMPLATE, "$template") || die print "we are in difficulty in finding the file requested, please relogin and try again";
while(<TEMPLATE>) { $HTML .= $_; }
close(TEMPLATE);
$HTML =~ s/\$(\w+)/${$1}/g;
print $HTML;
}
THANKS
For example: $value1= 'dog "cat1 cat2" '; The final reads is dog, any value between " and " is disappeared.( value of cat1 and cat2 is disapeared)
I am useing following code to fetch the html page: $value1 is enbeded in that html papge.
sub Template {
my ($template) = @_;
my $HTML="";
open (TEMPLATE, "$template") || die print "CAN NOT OPEN TEMPLATE FILE : $template : $!";
#open (TEMPLATE, "$template") || die print "we are in difficulty in finding the file requested, please relogin and try again";
while(<TEMPLATE>) { $HTML .= $_; }
close(TEMPLATE);
$HTML =~ s/\$(\w+)/${$1}/g;
print $HTML;
}
THANKS