perl manipulate binary string with bitwise not operator

Question

Suppose I have a string in perl.

$a = "001010";

After manipulating a bitwise not operator, the result should be

~$a = "110101";

How can I do this in perl?

Convert the string to a number; do your bitwise manipulation; then convert it back to a string. Look at the pack()/unpack() functions (perldoc -f pack) for details on doing those conversions. — Andy Lester
– Andy Lester, Commented Apr 28, 2014 at 16:09
Indeed. It's pretty weird to be doing bit arithmetic on the binary representation of a number rather than on the number itself. — ikegami
– ikegami, Commented Apr 29, 2014 at 2:51

Lee Duhem · Accepted Answer · 2014-04-28 16:19:53Z

8

Or just using tr///:

$str =~ tr/01/10/;

answered Apr 28, 2014 at 16:19

Lee Duhem

15.2k3 gold badges33 silver badges50 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

ysth Over a year ago

this is the simplest way, IMO

Miller · Accepted Answer · 2014-04-28 16:14:33Z

2

One solution is using a regex:

$a = "001010";

$a =~ s/([01])/1-$1/eg;

answered Apr 28, 2014 at 16:14

Miller

35.3k4 gold badges42 silver badges61 bronze badges

Comments

perreal · Accepted Answer · 2014-04-28 16:13:00Z

0

You can use oct and sprintf:

 $a = sprintf("%0".(length($a))."b", (~oct("0b".$a)) & (1 << length($a)) - 1);

answered Apr 28, 2014 at 16:13

perreal

98.7k23 gold badges159 silver badges187 bronze badges

2 Comments

Ted Hopp Over a year ago

Readability score: 0. (Not that readability counts for much in Perl :))

ikegami Over a year ago

Also, it fails for long bit strings.

Zaid · Accepted Answer · 2014-04-28 16:22:44Z

0

There Is More Than One Way To Do It:

$str = join '' => map 0+!$_, split //, $str;

answered Apr 28, 2014 at 16:22

Zaid

37.2k16 gold badges89 silver badges159 bronze badges

Collectives™ on Stack Overflow

perl manipulate binary string with bitwise not operator

4 Answers 4

1 Comment

Comments

2 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

1 Comment

Comments

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related