Re: using bits to print part of a string


Do you know where your variables are?
	PerlMonks

Re: using bits to print part of a string

by McA (Priest)

on Mar 15, 2013 at 16:34 UTC ( [id://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";
}
[download]

Best regards
McA