Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re: Nifty qr OR bullets with butterfly wings

by ikegami (Patriarch)
on Aug 13, 2009 at 19:24 UTC ( [id://788422] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $bullet = sprintf qr/[%s]/, quotemeta join '', keys %bullets;
    
  2. or download this
    my ($bullet) = map qr/[\Q$_\E]/, join '', keys %bullets;