Text::ParseWords - Online Linux Manual PageSection : 3
Updated : 2023-01-20
Source : perl v5.36.0
Note : User Contributed Perl Documentation
NAMEText::ParseWords − parse text into an array of tokens or array of arrays
SYNOPSIS use Text::ParseWords;
@lists = nested_quotewords($delim, $keep, @lines);
@words = quotewords($delim, $keep, @lines);
@words = shellwords(@lines);
@words = parse_line($delim, $keep, $line);
@words = old_shellwords(@lines); # DEPRECATED!
DESCRIPTIONThe nested_quotewords() and quotewords() functions accept a delimiter (which can be a regular expression) and a list of lines and then breaks those lines up into a list of words ignoring delimiters that appear inside quotes. quotewords() returns all of the tokens in a single long list, while nested_quotewords() returns a list of token lists corresponding to the elements of @lines. parse_line() does tokenizing on a single string. The *quotewords() functions simply call parse_line(), so if you're only splitting one line you can call parse_line() directly and save a function call. The $keep controls what happens with delimters and special characters: true If true, then the tokens are split on the specified delimiter, but all other characters (including quotes and backslashes) are kept in the tokens. false If $keep is false then the *quotewords() functions remove all quotes and backslashes that are not themselves backslash-escaped or inside of single quotes (i.e., quotewords() tries to interpret these characters just like the Bourne shell). NB: these semantics are significantly different from the original version of this module shipped with Perl 5.000 through 5.004. .IP """delimiters""" 4 As an additional feature, $keep may be the keyword "delimiters" which causes the functions to preserve the delimiters in each string as tokens in the token lists, in addition to preserving quote and backslash characters. shellwords() is written as a special case of quotewords(), and it does token parsing with whitespace as a delimiter−− similar to most Unix shells.
EXAMPLESThe sample program: use Text::ParseWords;
@words = quotewords('\s+', 0, q{this is "a test" of\ quotewords \"for you});
$i = 0;
foreach (@words) {
print "$i: <$_>\n";
$i++;
}
produces: 0: <this>
1: <is>
2: <a test>
3: <of quotewords>
4: <"for>
5: <you>
demonstrating: 0 a simple word 1 multiple spaces are skipped because of our $delim 2 use of quotes to include a space in a word 3 use of a backslash to include a space in a word 4 use of a backslash to remove the special meaning of a double-quote 5 another simple word (note the lack of effect of the backslashed double-quote) Replacing \*(C`quotewords(\*(Aq\es+\*(Aq, 0, q{this is...})\*(C'\fR with \*(C`shellwords(q{this is...})\*(C'\fR is a simpler way to accomplish the same thing.
SEE ALSOText::CSV − for parsing CSV files
AUTHORSThe original author is unknown, but presumably this evolved from \*(C`shellwords.pl\*(C'\fR in Perl 4. Much of the code for parse_line() (including the primary regexp) came from Joerk Behrends <jbehrends@multimediaproduzenten.de>. Examples section and other documentation provided by John Heidemann <johnh@ISI.EDU>. Hal Pomeranz <pomeranz@netcom.com> maintained this from 1994 through 1999, and did the first CPAN release. Alexandr Ciornii <alexchornyATgmail.com> maintained this from 2008 to 2015. Many other people have contributed, with special thanks due to Michael Schwern <schwern@envirolink.org> and Jeff Friedl <jfriedl@yahoo−inc.com>.
COPYRIGHT AND LICENSEThis library is free software; you may redistribute and/or modify it under the same terms as Perl itself. 0
Johanes Gumabo
Data Size : 14,128 byte
man-Text::ParseWords.3pmBuild : 2024-12-05, 20:55 :
Visitor Screen : x
Visitor Counter ( page / site ) : 2 / 199,776
Visitor ID : :
Visitor IP : 3.137.170.76 :
Visitor Provider : AMAZON-02 :
Provider Position ( lat x lon ) : 39.962500 x -83.006100 : x
Provider Accuracy Radius ( km ) : 1000 :
Provider City : Columbus :
Provider Province : Ohio , : ,
Provider Country : United States :
Provider Continent : North America :
Visitor Recorder : Version :
Visitor Recorder : Library :
Online Linux Manual Page : Version : Online Linux Manual Page - Fedora.40 - march=x86-64 - mtune=generic - 24.12.05
Online Linux Manual Page : Library : lib_c - 24.10.03 - march=x86-64 - mtune=generic - Fedora.40
Online Linux Manual Page : Library : lib_m - 24.10.03 - march=x86-64 - mtune=generic - Fedora.40
Data Base : Version : Online Linux Manual Page Database - 24.04.13 - march=x86-64 - mtune=generic - fedora-38
Data Base : Library : lib_c - 23.02.07 - march=x86-64 - mtune=generic - fedora.36
Very long time ago, I have the best tutor, Wenzel Svojanovsky . If someone knows the email address of Wenzel Svojanovsky , please send an email to johanes_gumabo@yahoo.co.id .
If error, please print screen and send to johanes_gumabo@yahoo.co.id
Under development. Support me via PayPal.
ERROR : Need New Coding : (parse_manual_page_|249|Text::ParseWords.3pm|24/25|el══─{─══.|.el══─{─══. ds C`
) (htmlprn|149|Text::ParseWords.3pm|24/25|.el══─{─══. ds C` |.el══─{─══. ds C`
) (parse_manual_page_|249|Text::ParseWords.3pm|27|br══─}─══|'br══─}─══
) (htmlprn|149|Text::ParseWords.3pm|27|'br══─}─══ |'br══─}─══
) (rof_IP|5|Text::ParseWords.3pm|103|5|.IP "\f(CW""delimiters""\fR" 4
) (rof_escape_sequence|91|Text::ParseWords.3pm|158|\*(C`quotewords(\*(Aq\es+\*(Aq, 0, q{this is...})\*(C'\fR |Replacing \f(CW\*(C`quotewords(\*(Aq\es+\*(Aq, 0, q{this is...})\*(C'\fR
) (rof_escape_sequence|91|Text::ParseWords.3pm|159|\*(C`shellwords(q{this is...})\*(C'\fR |with \f(CW\*(C`shellwords(q{this is...})\*(C'\fR
) (rof_escape_sequence|91|Text::ParseWords.3pm|167|\*(C`shellwords.pl\*(C'\fR in Perl 4. |but presumably this evolved from \f(CW\*(C`shellwords.pl\*(C'\fR in Perl 4.
)