John Doe wrote:
The Ghost am Montag, 16. Januar 2006 06.34:
I am storing text stings in a database. when I have the string:
'some perl $variable'
which would print as:
some perl $variable
how can I force interpolation of '$variable'?
one idea I thought of was:
#!/usr/bin/perl
my $var='variable';
$string='some $var';
$string=~s/\$(\w+)/${$1}/gi;
print "$string\n";
But it doesn't work. I want it to print "some variable".
One way is to change the regex a bit:
#!/usr/bin/perl
use strict;
use warnings;
my $var='variable';
my $other_var='another';
my ($string1, $string2, $string3)=map 'some $var $other_var', 1..3;
# test1, test2, final version:
#
$string1=~s/(\$\w+)/$1/g;
$string2=~s/(\$\w+)/$1/ge;
$string3=~s/(\$\w+)/$1/gee;
print join "\n", $string1, $string2, $string3;
greetings
joe
Usually it is considered a bad idea to interpolate external strings. You
could have your users printing any variable. Consider using sprintf
instead (see `perldoc -f sprintf`).
my $format = 'some perl %s';
my $string = sprintf $format, $variable;
print "$string\n";
--
Just my 0.00000002 million dollars worth,
--- Shawn
"Probability is now one. Any problems that are left are your own."
SS Heart of Gold, _The Hitchhiker's Guide to the Galaxy_
* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is available at http://perldoc.perl.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
