Can't get quotes in inputs to preload

[MrCBofBCinTX]

I'm trying to preload xhtml inputs with values from database that include double and single quotes (as inch and foot)

while ($tbl = $sth->fetchrow_arrayref)
	{
	$tbl10 = "<option value=\"@$tbl\">@$tbl</option>";
	if ($tbl10 =~ m/($vendor_name)/) {
	$tbl10 =~ s/<option value/<option selected="selected" value/;
	}
	$tbl10 =~ s/&/&amp;/g;
print "$tbl10";
}

I have tried using

$tbl10 =~ s/"/"/g;

doesn't work, tried some other substitutions, but they all fail to do anything.

$tbl10 =~ s/&/&/g;

above works fine.

But I keep getting double quotes in xhtml, which screws up value that I want correctly preloaded in update form.

 

[KevinADC]

Whats in $tbl10? If there are double-quotes your regexp should work.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[MrCBofBCinTX]

I'm afraid I found a bug in me, not the program.
What I was doing was working fine, just in the wrong spot!
I moved it and everything OK, now

 

[stevexff]

It's probably worth having a subroutine to escape all the XML 'specials', (&, ", ', >, and &lt in your data. Remember to do &amp first, otherwise you will get strange results. There is probably a module that will do it on CPAN, but as it's only five lines of code it's up to you...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[ChrisHunt]

We've been discussing the issue of escaping special characters in thread219-15426111 . The CPAN module you're looking for is (apparently) HTML::Entities

-- Chris Hunt
Webmaster & Tragedian
Extra Connections Ltd

 

[MrCBofBCinTX]

I got the others, I overlooked > and <
I will add those.

 

[ChrisHunt]

You've clearly figured it out, but the thread I meant to link to was thread219-1542611

-- Chris Hunt
Webmaster & Tragedian
Extra Connections Ltd