Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^2: merging two arrays with OR operation

by rsFalse (Chaplain)
on Mar 05, 2019 at 23:28 UTC ( [id://1230938]=note: print w/replies, xml ) Need Help??


in reply to Re: merging two arrays with OR operation
in thread merging two arrays with OR operation

Also you may want to look at Bitwise String Operators, and relatively new bitwise operator '|.'.
Here I use v5.28.0:
#!/usr/bin/perl -wl use strict; my @array1 = (0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1); my @array2 = (0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1); my $bits1 = join '', @array1; my $bits2 = join '', @array2; print $bits1 | $bits2; use feature 'bitwise'; # from v5.22 print $bits1 | $bits2; print $bits1 |. $bits2; # So... print "Result: ", join ', ', split //, $bits1 |. $bits2;
OUTPUT:
011101111111 4294967295 011101111111 Result: 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1230938]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2024-03-28 23:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found