.\" Automatically generated by Pod::Man v1.34, Pod::Parser v1.13
.\" ========================================================================
.de Sh \" Subsection heading
.de Sp \" Vertical space (when we can't use .PP)
.de Vb \" Begin verbatim text
.de Ve \" End verbatim text
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
. tm Index:\\$1\t\\n%\t"\\$2"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. \" simple accents for nroff and troff
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
.\" ========================================================================
.IX Title "Psh::Parser 3"
.TH Psh::Parser 3 "2003-01-02" "perl v5.8.0" "User Contributed Perl Documentation"
\& Psh::Parser - Perl Shell Parser
\& array decompose(regexp DELIMITER, string LINE, int PIECES,
\& bool KEEP, hashref QUOTINGPAIRS,
\& scalarref UNMATCHED_QUOTE)
decompose is a cross between \fIsplit()\fR and
Text::ParseWords::parse_line: it breaks \s-1LINE\s0 into at most \s-1PIECES\s0
pieces separated by \s-1DELIMITER\s0, except that the hash given by the
reference \s-1QUOTINGPAIRS\s0 specifies pairs of quotes (each key is an
open quote which matches the corresponding value) which prevent
splitting on internal instances of \s-1DELIMITER\s0, and negate the effect
of other quotes. The quoting characters are retained if \s-1KEEP\s0 is
true, discarded otherwise. Matches to the regexp \s-1METACHARACTERS\s0
(outside quotes) are their own words, regardless of being delimited.
Backslashes escape the meanings of characters that might match
delimiters, quotes, or metacharacters. Initial unquoted empty
The regexp \s-1DELIMITER\s0 may contain a single back-reference parenthesis
construct, in which case the matches to the parenthesized
subexpression are also placed among the pieces, as with the
built-in split. \s-1METACHARACTERS\s0 may not contain any parenthesized
decompose returns the array of pieces. If \s-1UNMATCHED_QUOTE\s0 is
specified, 1 will be placed in the scalar referred to if \s-1LINE\s0
contained an unmatched quote, 0 otherwise.
If \s-1PIECES\s0 is undefined, as many pieces as
necessary are used. \s-1KEEP\s0 defaults to 1. If \s-1QUOTINGPAIRS\s0 is
undefined, {\*(L"'\*(R" => \*(L"'\*(R", \*(L"\e\*(R"\*(L" => \*(R"\e""} is used, i.e. single and
double quotes are recognized. Supply a reference to an empty hash to
have no quoting characters. \s-1METACHARACTERS\s0 defaults to a regexp that
\&\s-1EXAMPLE:\s0 if \f(CW$line\fR is exactly
echo fred(joe, \*(L"Happy Days\*(R", ' steve\*(L"jan ', \*(R"\e\*(L"Oh, no!\e\*(R"")
then decompose(' ', \f(CW$line\fR) should break it at the
following places marked by vertical bars:
echo|fred(joe,|\*(L"Happy Days\*(R",|' steve\*(L"jan',|\*(R"\e\*(L"Oh, no!\e\*(R"")
\& int incomplete_expr(string LINE)
Returns 2 if \s-1LINE\s0 has unmatched quotations. Returns \-1 if \s-1LINE\s0 has
mismatched parens. Otherwise, returns 1 if \s-1LINE\s0 has an unmatched
open brace, parenthesis, or square bracket and 0 in all other
cases. Summing up, negative is a mismatch, 0 is all \s-1OK\s0, and positive
is unfinished business. (Reasonably good, can be fooled with some
effort. I therefore have deliberately not taken comments into
account, which means you can use them to \*(L"unfool\*(R" this function, but
also that unmatched stuff in comments \s-1WILL\s0 fool this function.)
\& string unquote( string word)
Removes quotes from a word and backslash escapes
\& bool needs_double_quotes (string WORD)
Returns true if \s-1WORD\s0 needs double quotes around it to be interpreted
in a \*(L"shell\-like\*(R" manner when passed to eval. This covers barewords,
expressions that just have \e\-escapes and \f(CW$variables\fR in them, and
projects / OpenSPARC-T2-DV / blob