Help for this page

Select Code to Download


  1. or download this
    --- /usr/lib/perl5/5.8.0/Text/ParseWords.pm     2002-09-01 21:14:22.00
+0000000 -0700
+++ /home/selena/perl/Text/ParseWords.pm        2003-10-21 19:00:43.00
+0000000 -0700
...
                      /x;                      # extended layout
        return() unless( $quote || length($unquoted) || length($delim)
+);
  2. or download this
     ($quote, $quoted, undef, $unquoted, $delim, undef) =
    $line =~ m/^(["'])                 # a $quote
...
              |                        # --OR--
              ($delimiter)
              /x;                      # extended layout