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

Re: using bits to print part of a string

by McA (Deacon)
on Mar 15, 2013 at 16:34 UTC ( #1023734=note: print w/ replies, xml ) Need Help??


in reply to using bits to print part of a string

Hi all,

I like choroba's solution. Therefor a ++. I just want to show my solution to prove the TMTOWTDI of perl. ;-)

my @strings = ( 'Abcderd', 'dkdnnjn', 'ddjfdjk', 'c,oktnx', ); my $mask = '0100110'; my $regex = '^' . join('', map { $_ ? '(.)' : '.' } split //, $mask) . + '$'; foreach my $string (@strings) { my $result = join '', ($string =~ m/$regex/o); print $result, "\n"; }

Best regards
McA


Comment on Re: using bits to print part of a string
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (9)
As of 2014-04-25 08:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (585 votes), past polls