Re^3: Regex overlap in MAC address

Sure thing

use Benchmark qw( cmpthese );

our $data = '0:13:46:b:4:31';

cmpthese(-3, {
   ike_orig => 'my $mac = $data; $mac =~ s/(^|:)(?=[0-9a-fA-F](?::|$))
+/${1}0/g;               $mac;',
   ike_fast => 'my $mac = $data; $mac =~ s/(?<=:)(?=[0-9a-fA-F](?::|$)
+)/0/g;
                                 $mac =~ s/^(?=[0-9a-fA-F](?::|$))/0/;
+                        $mac;',
   skeeve   => 'my $mac = $data; $mac = join ":", map substr("0$_",-2)
+, split/:/, $mac;       $mac;',
   jwkrahn1 => 'my $mac = $data; $mac =~ s/([^:]+)/ sprintf "%02s", $1
+ /eg;                   $mac;',
   jwkrahn2 => 'my $mac = $data; $mac = join ":", map sprintf( "%02s",
+ $_ ), split /:/, $mac; $mac;',
});
[download]

            Rate ike_orig jwkrahn1   skeeve jwkrahn2 ike_fast
ike_orig 37908/s       --      -3%     -29%     -31%     -43%
jwkrahn1 38957/s       3%       --     -27%     -29%     -41%
skeeve   53318/s      41%      37%       --      -3%     -20%
jwkrahn2 54879/s      45%      41%       3%       --     -18%
ike_fast 66551/s      76%      71%      25%      21%       --
[download]

Comment on Re^3: Regex overlap in MAC address Select or Download Code

Replies are listed 'Best First'.
Re^4: Regex overlap in MAC address by Skeeve (Parson) on Sep 12, 2006 at 07:11 UTC
Just a side note about benchmarking... It depends on the platform! See the result of your code on my Mac: `Rate jwkrahn1 skeeve2 jwkrahn2 skeeve ike_orig ike_fast` `jwkrahn1 49277/s -- -11% -15% -17% -20% -50%` `skeeve2 55160/s 12% -- -5% -7% -10% -44%` `jwkrahn2 58151/s 18% 5% -- -2% -5% -41%` `skeeve 59291/s 20% 7% 2% -- -3% -40%` `ike_orig 61250/s 24% 11% 5% 3% -- -38%` `ike_fast 98301/s 99% 78% 69% 66% 60% --` `s$$([},&%#}/&/]+}%&{});#$&&s&&$^X.($'^"%]=\&(\|?{%` `+`.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e	[reply] [d/l] [select]
Re^4: Regex overlap in MAC address by Anonymous Monk on Sep 12, 2006 at 08:53 UTC
how about trying these? just playing with your fastest and adding sentinal ':'s before processing and removing them after. `zen3 => 'my $mac = ":".$data.":"; $mac =~ s/(?<=:)(?=[0-9a-fA-F](?: +:))/0/g; $mac =~ s/^:\|:$//; $mac;', zen4 => 'my $mac = ":$data:"; $mac =~ s/(?<=:)(?=[0-9a-fA-F](?::))/ +0/g; $mac =~ s/^:\|:$//; $mac;', zen5 => 'my $mac = ":$data:"; $mac =~ s/(?<=:)(?=[0-9a-fA-F](?::))/ +0/g; $mac = substr $mac, 1,-1; $mac;',` [download] my results are varied: Rate zen2 zen3 ike_fast zen4 zen5 zen2 152990/s -- -1% -1% -4% -6% zen3 154915/s 1% -- -0% -3% -5% ike_fast 155051/s 1% 0% -- -3% -5% zen4 159115/s 4% 3% 3% -- -2% zen5 162584/s 6% 5% 5% 2% -- Rate zen2 ike_fast zen4 zen3 zen5 zen2 147082/s -- -3% -3% -3% -5% ike_fast 150866/s 3% -- -0% -1% -3% zen4 151345/s 3% 0% -- -1% -3% zen3 152312/s 4% 1% 1% -- -2% zen5 155404/s 6% 3% 3% 2% -- Rate zen2 ike_fast zen4 zen5 zen3 zen2 132209/s -- -1% -4% -10% -13% ike_fast 134054/s 1% -- -3% -9% -11% zen4 137554/s 4% 3% -- -6% -9% zen5 147053/s 11% 10% 7% -- -3% zen3 151234/s 14% 13% 10% 3% -- Rate zen2 ike_fast zen3 zen4 zen5 zen2 148516/s -- -2% -3% -4% -7% ike_fast 151827/s 2% -- -1% -1% -5% zen3 153467/s 3% 1% -- -0% -4% zen4 153946/s 4% 1% 0% -- -4% zen5 159757/s 8% 5% 4% 4% -- [download]	[reply] [d/l] [select]
Re^5: Regex overlap in MAC address by ikegami (Patriarch) on Sep 12, 2006 at 19:11 UTC
No fair changing the initialization code. It can't be change since the OP's modification was done in-place. `zen3 => 'my $mac = $data; $mac = ":" . $data . ":"; $mac =~ s/(?<=:)(?=[0-9a-fA-F](?::))/0/g; $mac =~ s/^:\|:$//; $mac;', zen4 => 'my $mac = $data; $mac = ":$data:"; $mac =~ s/(?<=:)(?=[0-9a-fA-F](?::))/0/g; $mac =~ s/^:\|:$//; $mac;', zen5 => 'my $mac = $data; $mac = ":$data:"; $mac =~ s/(?<=:)(?=[0-9a-fA-F](?::))/0/g; $mac = substr $mac, 1,-1; $mac;',` [download] Fixing that didn't affect the result, however. `Rate jwkrahn1 skeeve jwkrahn2 ike_orig ike_fast zen4 +zen3 zen5 jwkrahn1 62625/s -- -4% -4% -12% -36% -42% +-43% -44% skeeve 65186/s 4% -- -0% -8% -33% -40% +-40% -42% jwkrahn2 65395/s 4% 0% -- -8% -33% -40% +-40% -42% ike_orig 71122/s 14% 9% 9% -- -27% -34% +-35% -37% ike_fast 97408/s 56% 49% 49% 37% -- -10% +-11% -13% zen4 108516/s 73% 66% 66% 53% 11% -- + -1% -4% zen3 109083/s 74% 67% 67% 53% 12% 1% + -- -3% zen5 112484/s 80% 73% 72% 58% 15% 4% + 3% --` [download] Your three are equally fast, and slightly faster than the previous best.	[reply] [d/l] [select]