in reply to Storing Substitution Output String

So you better use $1 as thats the match you where looking for then a string that you unneccesarily altered, so use a match 

$page2 =~ m|<title>(.*)</title>|gi;
print $1;

[download]
instead. And you might consider not to use dotStar, see Ovid's Death to Dot Star!:-)

Have a nice day
All decision is left to your taste

Update

so alike this? 
print '<li>'.$1.'</li>';

[download]

Replies are listed 'Best First'.
Re: Re: Storing Substitution Output String
by bob (Novice) on Jul 14, 2002 at 18:53 UTC
    The string is altered on purpose--that's the whole point, in this case, of the expression.
[reply]
Re: Re: Storing Substitution Output String
by bob (Novice) on Jul 14, 2002 at 19:08 UTC
    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....
[reply]
      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?
[reply]

        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 :-)
}

        [download]

        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.

[reply]
[d/l]
        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.
[reply]
        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.
[reply]

In Section Seekers of Perl Wisdom