Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
print qq{raw qr: $rx_qr \n};
print qq{qr/qq/: }, qr/$rx_qq/, "\n";
print qq{qr/q/ : }, qr/$rx__q/, "\n";
  2. or download this
    c:\@Work\Perl\monks\morgon>perl rx_qr_qq_q_1.pl
raw qr: (?-xism:(?:(?|(?:\")([^\\\"]*(?:\\.[^\\\"]*)*)(?:\"))))
qr/qq/: (?-xism:(?:(?|(?:")([^\"]*(?:\.[^\"]*)*)(?:"))))
qr/q/ : (?-xism:(?:(?|(?:\")([^\\"]*(?:\.[^\\"]*)*)(?:\"))))