Help for this page

Select Code to Download


  1. or download this
      DB<1> $line = "\"quoted-text\" \cM\cJ"

  DB<2> x $line
0  "\"quoted-text\" \cM\cJ"
  2. or download this
      DB<3> x $line =~ m/^(\s*)((?'quote'"?)[^\s"]*\g{quote})\s+(\[[^\]]*\
+]|)\s*$/
0  ''
1  '"quoted-text"'
2  '"'
3  ''
  3. or download this
      DB<4> x $line =~ m/^(\s*)((?'quote'"?)[^\s"]*")\s+(\[[^\]]*\]|)\s*$/
0  ''
1  '"quoted-text"'
2  '"'
3  ''
  4. or download this
      DB<5> x $line =~ m/^(\s*)(("?)[^\s"]*")\s+(\[[^\]]*\]|)\s*$/
0  ''
1  '"quoted-text"'
2  '"'
3  ''
  5. or download this
      DB<6> x $line =~ m/^(\s*)("?[^\s"]*")\s+(\[[^\]]*\]|)\s*$/
0  ''
1  '"quoted-text"'
2  ''
3  ''