my $content = $response->content;
while($content =~ /pcd=BT(\d+)/g)
[download]

--MrNobo1024
s]]HrLfbfe|EbBibmv]e|s}w}ciZx^RYhL}e^print

TIMTOWTDI... I would use a foreach loop instead of while. foreach will build the list before the loop runs then iterate, so once the list is finished the loop will exit. One call to the subroutine, no temporary variables, ie:

foreach ($response->content =~ /pcd=BT(\d+)/g) {
  print $count++,$1,"\n";
}
[download]

Thnaks, I was going to do that actually but then I thought it didnt make sence...I think I need to read up on Perl object. ;)

Think about it this way... every time you call the method on your object, it's basically like calling a subroutine which returns a string (because it does). However, because you're calling that method while the regex matches, it starts anew each time...

You: Ok, run the method.
Regex: Wow, here's match #1... return $1
You: print(); Ok, run the method...
Regex: Wow, here's match #1... return $1

Wash, rinse, repeat...

Make sense?

-fp

Perl keeps the position of regexp-matching in mind: bound to a variable! See:

my $var = 'a111a222a333';
$var =~ m/a(\d+)/g and print $1
# prints '111'
[download]

The regex ended after the three 1es, at position 4. This position ist stored by perl inside tha variable. You can retrieve it via pos($var). Read on it in `perldoc -f pos`

$var =~ m/a(\d+)/g and print $1;
#will now print '222' because the regex starts at
# pos($var) (which is 4)

#You can also use pos() as an lvalue
pos($var) = 0;
$var =~ m/a(\d+)/ and print $1;
# NO, doesn't print '333'
# but '111' because pos($var) wat set to 0 and so
# the regexp startsat positin 0 again
[download]

Why do I tell you so? If you generate the strng again, the pos() will allways go back to 0, because you do not always match on the same variable, but on a new variable each time.

--
http://fruiture.de

ListFoo

#!/usr/bin/perl

   $string = 'a=111a=222a=333';
   @list = $string =~ m{(a=\d+)}g;
   for (@list) { print "$_\n"; }
[download]

Minor Nitpick:

Why bother with the redundent @list?

   $string = 'a=111a=222a=333';
   for ($string =~ m/(a=\d+)/g) {
      print "$_\n"; 
      # any other code
   }
[download]

For that matter, if you are grouping all the matches at once, why bother with the temporary string?

for ($obj->method =~ /pat(keep)/g)
{
    print $count++, " $_\n";
    # etc.
}
[download]

--rjray

print "[$1]" while "foo bar baz quux" =~ /\G(\w+) ?/g;

__output__

[foo][bar][baz][quux]
[download]

_________
broquaint