NAME
Lingua::Rhyme::FindScheme - find rhyme schemes in poetry
SYNOPSIS
use Lingua::Rhyme::FindScheme;
my @shakespeare_sonnet_ii = (
"When forty winters shall beseige thy brow,",
"And dig deep trenches in thy beauty's field,",
"Thy youth's proud livery, so gazed on now,",
"Will be a tatter'd weed, of small worth held:",
"Then being ask'd where all thy beauty lies,",
"Where all the treasure of thy lusty days,",
"To say, within thine own deep-sunken eyes,",
"Were an all-eating shame and thriftless praise.",
"How much more praise deserved thy beauty's use,",
"If thou couldst answer 'This fair child of mine",
"Shall sum my count and make my old excuse,'",
"Proving his beauty by succession thine!",
" This were to be new made when thou art old,",
" And see thy blood warm when thou feel'st it cold."
);
my %scheme = %{Lingua::Rhyme::FindScheme::list_couplets (@shakespeare_sonnet_ii)};
foreach (sort {$a <=> $b} keys %scheme){
warn "Scheme $_ = $scheme{$_}\n";
}
__END__
DESCRIPTION
This is the first version of a module which will grow with my needs.
All requests/suggestions much appreciated.
PREREQUISITES
Lingua::Rhyme
FUNCTIONS
&list_couplets
Accepts an array of text, and returns a reference to a hash where keys and values are numbers of couplets. NB: the line number index begins at zero.
SEE ALSO
Lingua::Rhyme; perl(1).
COPYRIGHT
Copyright (C) Lee Goddard, 30/05/2001 ff.
This is free software, and can be used/modified under the same terms as Perl itself.