in reply to Re: extracting regex into, and interpolating, variable
in thread extracting regex into, and interpolating, variable

Hi, the initial post was mine, I posted anonymously by mistake.
Thanks for the tip. The problem is that I can't guarantee the value of "foo" or indeed the attributes of "textarea", so I have to do some kind of pattern match like m/\(<textarea.*?>\)/ and then do a match on that to get the value of "value", if that makes sense.
then, I need to insert all this into the variable that contains the whole file i.e. $content
thanks,
z.

Replies are listed 'Best First'.
Re: Re: Re: extracting regex into, and interpolating, variable
by roik (Scribe) on Oct 23, 2002 at 15:23 UTC
    Hi, having read your post a little more carefully, I think maybe this is a bit closer to what you want. $1 holds the match after "value=".
    use strict;

my $line = qq(<textarea type="text" value="foo" name="text_message" />
+&nbsp;<%bar%>&nbsp;</p>);

if ($line =~ /<textarea .+ value="(.+?)".+(<%.+%>)/) {

    my $foo = $1;
    my $bar = $2;
    $line =~ s/<textarea/<input/;
    $line =~ s/$bar/$foo/;
    print $line;
    
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom