Re^8: converting binary to decimal

[LanX]

guess what, refactoring fails,

      my $copy1b = '0' . $copy1;
      my $copy2b = $copy2 . $_;
      
      $n = ($copy1b | $copy2b);

copying it literally into the debugger too

  DB<38> say (0 . "$_" | 1 . "1") for qw/0 2 4 6 8/ 
11
11
15
15
11

The only fix is using |. and use feature 'bitwise';

  DB<39> use feature 'bitwise'; say (0 . "$_" |. 1 . "1") for qw/0 2 4
+ 6 8/ 
11
13
15
17
19

> voodoo89

Yeah, now go back and sacrifice 89 more chickens to the god of golf ;-P

[tybalt89]

Er, Umm, no.

$ perl -le 'print(0 . $_ | 1 . 1) for qw/0 2 4 6 8/'
11
13
15
17
19

Most probable reason you are seeing what you saw -> you did "use feature 'bitwise'" earlier in your debugging session. 'bitwise' forces plain | to numeric.

voodoo89 tybalt89 looks around for more chickens...

[LanX]

> Most probable reason you are seeing what you saw -> you did "use feature 'bitwise'" earlier in your debugging session. bitwise forces plain | to numeric.

There was no "use feature 'bitwise'" inside the debugger.

:~$ perl -de0

Loading DB routines from perl5db.pl version 1.77
...
  DB<1> say (0 . "$_" | 1 . "1") for qw/0 2 4 6 8/
11
11
15
15
11

  DB<2>

but the interactive debugger seems to automatically run under -E

E commandline
behaves just like -e, except that it implicitly enables all optional features and builtin functions (in the main compilation unit). See feature and builtin.

[tybalt89]

Good catch!

Quick test: if say 1 |. 2 does NOT give an error, you're running with use feature 'bitwise';

[harangzsolt33]

Wait. Are you saying that if someone has "use feature 'bitwise' in their header, then this code fails? How do I make sure it doesnt? Can I write "no feature 'bitwise';" inside binary2decimal() to make sure it doesn't misbehave? Or is that unnecessary?