Text::Refer

Text::Refer can parse Unix "refer" files.
Download

Text::Refer Ranking & Summary

Advertisement

  • Rating:
  • 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