#!/usr/bin/perl use warnings; use strict; my $a = {}; $a->{b} = 'b'; my $b = 'b'; my $any_string = q|a"b'c|; if ($any_string =~ /['"]b['"]/) { print "ok\n"; } if ($any_string =~ /['"]$b['"]/) { print "ok\n"; } if ($any_string =~ /["]$a->{b}["]/) { print "not ok\n"; } if ($any_string =~ /[']$a->{b}[']/) { print "not ok either\n"; }
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |