Text::ReferText::Refer can parse Unix "refer" files. | |
Download |
Text::Refer Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Eryq
- Publisher web site:
- http://search.cpan.org/~eryq/MIME-tools-6.200_02/lib/MIME/Tools/changes.pod
Text::Refer Tags
Text::Refer Description
Text::Refer can parse Unix "refer" files. Text::Refer can parse Unix "refer" files.SYNOPSISPull in the module: use Text::Refer; Parse a refer stream from a filehandle: while ($ref = input Text::Refer *FH) { # ...do stuff with $ref... } defined($ref) or die "error parsing input";Same, but using a parser object for more control: # Create a new parser: $parser = new Text::Refer::Parser LeadWhite=>'KEEP'; # Parse: while ($ref = $parser->input(*FH)) { # ...do stuff with $ref... } defined($ref) or die "error parsing input";Manipulating reference objects, using high-level methods: # Get the title, author, etc.: $title = $ref->title; @authors = $ref->author; # list context $lastAuthor = $ref->author; # scalar context # Set the title and authors: $ref->title("Cyberiad"); $ref->author(); # arrayref for >1 value! # Delete the abstract: $ref->abstract(undef);Same, using low-level methods: # Get the title, author, etc.: $title = $ref->get('T'); @authors = $ref->get('A'); # list context $lastAuthor = $ref->get('A'); # scalar context # Set the title and authors: $ref->set('T', "Cyberiad"); $ref->set('A', "S. Trurl", "C. Klapaucius"); # Delete the abstract: $ref->set('X'); # sets to empty array of valuesOutput: print $ref->as_string;Requirements:· Perl
Text::Refer Related Software