http://www.perlmonks.org?node_id=181632


in reply to Re: Storing Substitution Output String
in thread Storing Substitution Output String

Ahhhh.... your update has me thinking... Let me try to fir it like that and see if it'll work. As mentioned above, the sub is really somewhat more complex than drawn in my first post....

Replies are listed 'Best First'.
Re: Re: Re: Storing Substitution Output String
by bob (Novice) on Jul 14, 2002 at 19:51 UTC
    Printing the scalars (and adding the add'l text and tags at that point) allows me to print only the first instance of each match, Little. How would you suggest printing all of the matches made?

      say your text is in a string (or an array of strings) then I would use grep and map :-) to get a list of all matches nicely formatted as list items, but for sure there is an easier way which refuses to come to my mind now :-)

      perhaps this might do :-)

      # the substitution is none in effect, it just digs around $page2 =~ s|<title>(.*)</title>|${my_count(\$1)}|gi; my matches = (); sub my_count { my $occurance = shift; push @matches, ${$occurance} ; return $occurance; } # see what we've got foreach (@matches) { print '<li>'.$_.'</li>'."\n"; # just to format the output :-) }

      Have a nice day
      All decision is left to your taste

      Update

      fixed stupid error in the substitutional part where I inserted the '<title>' again.

      You see there might be a dozen matching patterns in each document, Little. And I want to print all of the matches with the additional text added.
      I may be missing replies..... Never used this board before, and now I see replies that aren't showing up in the thread.... Ok, fixed my thread depth.... I'm taking a look at your latest suggestion now, Little.