Re^3: Upper case and chomp

Another option is string escapes:

   if ("\U$listaccountlocked[1]" eq 'TRUE') {
[download]

I added another sub to your benchmark:

sub slashU {
     my $cnt=0;
     for (@words){
             ++$cnt if "\U$_" eq 'ABCB';
     }
     return $cnt;
}
[download]

But it didn't fare very well:

In 4096 words, 16 are 'abcb'
        Rate slashU  uccmp  regex
slashU 321/s     --   -18%   -26%
uccmp  390/s    21%     --   -10%
regex  435/s    36%    12%     --
In 4096 words, 0 are 'abcb'
        Rate slashU  uccmp  regex
slashU 328/s     --   -17%   -25%
uccmp  397/s    21%     --   -10%
regex  439/s    34%    11%     --
In 4096 words, 4096 are 'abcb'
        Rate  regex slashU  uccmp
regex  266/s     --    -6%   -18%
slashU 282/s     6%     --   -13%
uccmp  325/s    22%    15%     --
[download]

Ah well.

Comment on Re^3: Upper case and chomp Select or Download Code

Replies are listed 'Best First'.
Re^4: Upper case and chomp by ikegami (Patriarch) on Feb 10, 2011 at 19:02 UTC
`if ("\U$listaccountlocked[1]" eq 'TRUE') {` [download] is just an obfuscated way of writing `if (uc($listaccountlocked[1]) eq 'TRUE') {` [download] From a performance point of view, the former is a proper subset of the latter. Not only does \U calls uc(), it creates an extra copy of the string. $ perl -MO=Concise,-exec -e'my $y = "\U$x";' 1 <0> enter 2 <;> nextstate(main 1 -e:1) v:{ 3 <$> gvsv(x) s 4 <1> uc[t2] sK/1 5 <@> stringify[t3] sK/1 <--- This addition is the only 6 <0> padsv[$y:1,2] sRM/LVINTRO difference. It creates a 7 <2> sassign vKS/2 copy of the string. 8 <@> leave[1 ref] vKP/REFC -e syntax OK $ perl -MO=Concise,-exec -e'my $y = uc($x);' 1 <0> enter 2 <;> nextstate(main 1 -e:1) v:{ 3 <$> gvsv(x) s 4 <1> uc[t2] sK/1 5 <0> padsv[$y:1,2] sRM/LVINTRO 6 <2> sassign vKS/2 7 <@> leave[1 ref] vKP/REFC -e syntax OK [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Upper case and chomp
by ikegami (Patriarch) on Feb 10, 2011 at 19:02 UTC

if ("\U$listaccountlocked[1]" eq 'TRUE') {
[download]

if (uc($listaccountlocked[1]) eq 'TRUE') {
[download]

From a performance point of view, the former is a proper subset of the latter. Not only does \U calls uc(), it creates an extra copy of the string.

$ perl -MO=Concise,-exec -e'my $y = "\U$x";'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v:{
3  <$> gvsv(*x) s
4  <1> uc[t2] sK/1
5  <@> stringify[t3] sK/1         <--- This addition is the only
6  <0> padsv[$y:1,2] sRM*/LVINTRO      difference. It creates a
7  <2> sassign vKS/2                   copy of the string.
8  <@> leave[1 ref] vKP/REFC
-e syntax OK

$ perl -MO=Concise,-exec -e'my $y = uc($x);'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v:{
3  <$> gvsv(*x) s
4  <1> uc[t2] sK/1
5  <0> padsv[$y:1,2] sRM*/LVINTRO
6  <2> sassign vKS/2
7  <@> leave[1 ref] vKP/REFC
-e syntax OK
[download]

[reply]
[d/l]
[select]