in reply to Re: Re: Re: regex (?{CODE}) question
in thread regex (?{CODE}) question
Thanks for your reply. Actually, my objective is not to print $1 but to call a subroutine from inside the replace part of the regex which will use the value of $1 to produce a string that will be used in the replace part. For example, something like:
Christos
Thanks,$str = "(<citationref linkend=\" cit314-1 cit314-2 cit314-3 cit314-4 c +it314-5\"/>)"; if( $str =~ s/<ref links=\"(.*?)\"(.*?)\/>/<ref links=\"$1\"$2>(?{ &ge +tString($1) })<\/ref>/ ){ print "Match was found." . "\n"; } print $str . "\n"; sub getString($s){ my $s = shift; ...more processing of $s... return $s; }
Christos
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Re: Re: Re: regex (?{CODE}) question
by elusion (Curate) on Aug 01, 2002 at 19:59 UTC |
In Section
Seekers of Perl Wisdom