substituion

[jared in ecs]

i'm trying to find the price in a page source and my substition seems
not to work?
$dump =~ s/.+?Price:\s+\$([0-9][0-9].[0-9][0-9]).+/$1/s;

does anyone have a suggestion as to why it prints the whole dump file
w/o seeming to substitute the price in.

 

[Gunnar Hjalmarsson]

i'm trying to find the price in a page source and my substition
seems not to work?

If you are trying to _find_ something, why are you trying to _substitute_?

$dump =~ s/.+?Price:\s+\$([0-9][0-9].[0-9][0-9]).+/$1/s;

You haven't told us what $dump contains, but I imagine that it may
result in everything but the price being stripped from $dump under
certain conditions.

This is another approach:

my ($price) = $dump =~ /Price:\s+\$(\d+\.\d+)/;

 

[Jim Gibson]

i'm trying to find the price in a page source and my substition seems
not to work?
$dump =~ s/.+?Price:\s+\$([0-9][0-9].[0-9][0-9]).+/$1/s;

does anyone have a suggestion as to why it prints the whole dump file
w/o seeming to substitute the price in.

"seems no to work" is a little vague. What is in $dump before the
substitution operator is applied? My guess is that your pattern is in
fact not matching, and no substitution is done, leaving the original
string in $dump. Perhaps your page doesn't have a space between
"Price:" and the price. If so, use 'Price:\s*$', etc. instead.

Try posting a complete (brief) program for better answers.

BTW, this newsgroup is defunct. Try comp.lang.misc.perl in the future.

 

[Eric J. Roode]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

(e-mail address removed) (jared in ecs) wrote in

i'm trying to find the price in a page source and my substition seems
not to work?
$dump =~ s/.+?Price:\s+\$([0-9][0-9].[0-9][0-9]).+/$1/s;

does anyone have a suggestion as to why it prints the whole dump file
w/o seeming to substitute the price in.

The above expression cannot print anything at all -- the s/// operator
doesn't print. What do you mean by "it prints"? Some other part of your
script is printing, that's what. Do you expect people here to be psychic?
What is in $dump before the above statement? We don't know your data.

In the future, please post questions to comp.lang.perl.misc; that's the
newsgroup for general perl questions. Comp.lang.perl is a defunct
newsgroup.

- --
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print

-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>

iQA/AwUBP5ku3GPeouIeTNHoEQJmfgCfZHl6dHOE5eg4/mUHOySB8ElIVOkAoIEi
4GylIMM+2M8B7We8jWQ0y75R
=6Tpo
-----END PGP SIGNATURE-----