Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Contact Us
Online Help
Domain Status
Man Pages

Virtual Servers

Topology Map

Server Agreement
Year 2038

USA Flag



Man Pages

Manual Reference Pages  -  PSH::PARSER (3)

.ds Aq ’


  Psh::Parser - Perl Shell Parser



  use Psh::Parser;



  array decompose(regexp DELIMITER, string LINE, int PIECES,
                  bool KEEP, hashref QUOTINGPAIRS,
                  scalarref UNMATCHED_QUOTE)

decompose is a cross between split() and Text::ParseWords::parse_line: it breaks LINE into at most PIECES pieces separated by DELIMITER, except that the hash given by the reference QUOTINGPAIRS specifies pairs of quotes (each key is an open quote which matches the corresponding value) which prevent splitting on internal instances of DELIMITER, and negate the effect of other quotes. The quoting characters are retained if KEEP is true, discarded otherwise. Matches to the regexp METACHARACTERS (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 pieces are suppressed.

The regexp DELIMITER 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. METACHARACTERS may not contain any parenthesized subexpression.

decompose returns the array of pieces. If UNMATCHED_QUOTE is specified, 1 will be placed in the scalar referred to if LINE contained an unmatched quote, 0 otherwise.

If PIECES is undefined, as many pieces as necessary are used. KEEP defaults to 1. If QUOTINGPAIRS is undefined, {’ => ’, \ => \""} is used, i.e. single and double quotes are recognized. Supply a reference to an empty hash to have no quoting characters. METACHARACTERS defaults to a regexp that never matches.

EXAMPLE: if $line is exactly

echo fred(joe, Happy Days, ’ stevejan ’, \Oh, no!\")

then decompose(’ ’, $line) should break it at the following places marked by vertical bars:

echo|fred(joe,|Happy Days,|’ stevejan’,|\Oh, no!\")


  int incomplete_expr(string LINE)

Returns 2 if LINE has unmatched quotations. Returns -1 if LINE has mismatched parens. Otherwise, returns 1 if LINE has an unmatched open brace, parenthesis, or square bracket and 0 in all other cases. Summing up, negative is a mismatch, 0 is all OK, 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 unfool this function, but also that unmatched stuff in comments WILL fool this function.)


  string unquote( string word)

Removes quotes from a word and backslash escapes


  bool needs_double_quotes (string WORD)

Returns true if WORD needs double quotes around it to be interpreted in a shell-like manner when passed to eval. This covers barewords, expressions that just have \-escapes and $variables in them, and filenames.


Search for    or go to Top of page |  Section 3 |  Main Index

perl v5.20.3 PSH::PARSER (3) 2007-07-06

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with manServer 1.07.