Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
[\"isnt]
[unnice.\"]
  2. or download this
    my $quoted = qr/
(?:(?|
...
    )
/x;
  3. or download this
    my $quoted = qr/
(?:(?|
...
    (?:(?:[^\\\' ]*(?:\\[^ ][^\\\' ]*)*)\')(?:[^\\\']*(?:\\.[^\\\']*)*
+)(?:\'|$)
))
/x;
  4. or download this
    my $quoted = qr/
(?:(?|
...
# and later:
    my $got = [ split $re, $str ];