Help for this page

Select Code to Download


  1. or download this
    % perl -MO=Deparse,-p -le '$patt = "a\Ubc"; print qr/$patt/'
BEGIN { $/ = "\n"; $\ = "\n"; }
($patt = 'aBC');
print(qr/$patt/);
-e syntax OK
  2. or download this
    % perl -MO=Deparse,-p -le '$patt = "a\Q[bc]\E"; print qr/$patt/'
BEGIN { $/ = "\n"; $\ = "\n"; }
($patt = 'a\\[bc\\]');
print(qr/$patt/);
-e syntax OK
  3. or download this
    % perl -le '$patt = q(a\Ubc); print qr/$patt/'
(?-xism:a\Ubc)