Help for this page
$xml =~ s{(?:(<!\[CDATA\[.*?\]\]>)|(<[^\s?!>]+))}{ $1 or do {(my $tagname = $2 ) =~ tr/.//d;$tagname;} }seg; ... $xml =~ s{<(?:(!\[CDATA\[.*?\]\]>)|(<[^\s?!>\.]+\.[^\s?!>]+))}{ '<'. ($1 or do {(my $tagname = $2 ) =~ tr/.//d;$tagname;} ) }seg;
my $XML = <<'__XML__'; <?xml version="1.0"?> ... one: 10 wallclock secs ( 9.53 usr + 0.00 sys = 9.53 CPU) @ 10 +492.08/s (n=100000) three: 2 wallclock secs ( 1.86 usr + 0.00 sys = 1.86 CPU) @ 53 +792.36/s (n=100000) two: 6 wallclock secs ( 6.27 usr + 0.00 sys = 6.27 CPU) @ 15 +959.14/s (n=100000)
www.com | www.net | www.org
No recent polls found