Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > Perl > substituion

Reply
Thread Tools

substituion

 
 
jared in ecs
Guest
Posts: n/a
 
      10-23-2003
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.
 
Reply With Quote
 
 
 
 
Gunnar Hjalmarsson
Guest
Posts: n/a
 
      10-23-2003
jared in ecs wrote:
> 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+)/;

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

 
Reply With Quote
 
 
 
 
Jim Gibson
Guest
Posts: n/a
 
      10-23-2003
In article <(E-Mail Removed) >, jared in
ecs <(E-Mail Removed)> wrote:

> 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.
 
Reply With Quote
 
Eric J. Roode
Guest
Posts: n/a
 
      10-24-2003
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

http://www.velocityreviews.com/forums/(E-Mail Removed) (jared in ecs) wrote in
news:(E-Mail Removed) om:

> 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-----
 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
non-uniform string substituion Horacius ReX Python 2 02-14-2008 03:37 AM
XSD: Extenstion, substituion, and recursion, Oh My! David M. Aldridge XML 0 01-17-2004 01:05 AM



Advertisments