in reply to sequential substitutions
$text = '<foo>3</foo><foo>14</foo><foo>159</foo>'; while($text =~ /<foo>(.*?)<\/foo>/g) { push (@la,$1); }; sort @la; foreach(@la) { print "<foo>$_<\/foo>\n"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: sequential substitutions
by haukex (Archbishop) on Aug 05, 2018 at 21:08 UTC |