Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
like('asdf$',qr/\Qasdf\$\E/); #no
like('asdf$',qr/asdf$/); #no
like('asdf$',qr/\$/); #passes -- you have to backslash the dollar
  2. or download this
    use strict;
use warnings;
...
my $re = quotemeta('asdf$'); 
like('asdf$', qr/$re/); #passes
like('asdf$', qr/@{[ quotemeta('asdf$') ]}/); #passes