Help for this page

Select Code to Download


  1. or download this
    foreach ($member_sheet -> contents =~ /(\<.*?\/?\>|.*?(?=\<))/g) {
 ...
  2. or download this
    my $buffer = $member_sheet -> contents();
#while ($buffer =~ /\G(<[^<]*>)/scg or $buffer =~ /\G([^<]*(?=<))/scg)
+ {
while ($buffer =~ /(<[^>]+>|[^<]+(?=<))/sg) {
    $_ = $1;
...
  3. or download this
    use Benchmark qw(cmpthese);

...
WHILE_3   1.21     37%      --     -6%    -11%
WHILE_2   1.14     46%      6%      --     -5%
WHILE_1   1.08     53%     12%      5%      --