Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
-------
<nl><item num="1">asdfasdf</item><item num="2">asdfasdf</item></nl><nl
+><item num
="1">asdfasdf</item><item num="2">asdfasdf</item></nl>
  2. or download this
    $string =~ s|<nl>((?:(?!</nl>).)*)</nl>|my $item = $1; my $no = 1; $it
+em =~ s/<item>/'<item num="'.$no++.'">'/egs;"<nl>$item</nl>"|egs;