regex question

[Jason Crowe]

Garrett Goebel wrote:

> Jason Crowe wrote:
> >
> > I have this regex:
> >
> > $content =~ m/Current bid:n</font>n</td>n.+n<.+$([0-9.,]+)</
> >
> > That should match for this string and place the number into $content:
> >
> > Current bid:
> > </font>
> > </td>
> > <td width="100%">
> > <font face="Arial" size="2"><b>US $9.99<
>
> my $url = 
> "http://cgi.ebay.com/aw-cgi/eBayISAPI.dll?ViewItem&item=$ARGV 
> <http://cgi.ebay.com/aw-cgi/eBayISAPI.dll?ViewItem&item=$ARGV>[0]";
>
> if($ARGV[0]) {
>   my $content = get($url);
>   my ($price) = $content =~ /Current bid:.*?$([0-9.,]+)/s;
>   $price =~ s/,//g  if $price;
> }
>
> I missed your earlier post... Does this work for you? It sets a 
> variable $price to the value of whatever you've scraped after the 
> first $ after "Current bid:".
>
> The trailing 's' in the regex says to treat the hole thing as a single 
> line. At which point you can pretty much ignore the end-of-line issue.
>
> -- 
> Garrett Goebel
> IS Development Specialist
>
> ScriptPro                  Direct: 913.403.5261
> 5828 Reeds Road            Main:   913.384.1008
> Mission, KS 66202          Fax:    913.384.2180
> www.scriptpro.com          garrett at scriptpro dot com
>
Thanks,
Someone showed me that the problem was caused by added spaces on the 
ebay page. Unfortunatly there is more than one variable that is causeing 
problems. Here is the script as it is now. The seller, buyer & desc 
variables are the ones not working currently.

Thanks,
Jason

#!/usr/bin/perl

use LWP::Simple;

if($ARGV[0]) {
  $content = 
get("http://cgi.ebay.com/aw-cgi/eBayISAPI.dll?ViewItem&item=$ARGV[0]");
  $content =~ s/r//g;
 
  if($content =~ 
m/Currents*bid:s*ns*</font>s*ns*</td>s*n*.+n*s*<.+$([0-9.,]+)</) 
{
    $currently = $1;
    $currently =~ s/,//g;
  }
  if($content =~ 
m/Seller.+s*ns*</font>s*ns*</td>s*ns*.+requested=(.+)&amp;iid/) 
{
    $seller = $1;
  }
  if($content =~ 
m/Highs*bidder:ns*</font>s*ns*</td>s*n*.+ns*.+s*requested=(.+)s*&amp;iid/) 
{
    $buyer = $1;
  }
  if($content =~ m/WEIGHT=(d+)/) {
    $weight = $1;
  }
  if($content =~ m/SKU=(d+)/) {
    $sku = $1;
  }
  if($content =~ m/<title>n(.+)n(.+)n(.+)n(.+)n(.+)n(.+)</title>/) {
    $desc = "$6";
  }
  if(!$weight || $weight == 0) {
    $weight = 1;
  }
  if($currently) {
    print("$currently|$weight|$sku|$desc|$seller|$buyer");
  }
}