The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Music::ABC::Archive - Parse ABC music archives

VERSION

0.01

SYNOPSIS

 use Music::ABC::Archive ;

 $abcfile = "Some_ABC_file.abc" ;
 $songnum = 6 ;

 $abc_obj = Music::ABC::Archive->new($abcfile) ;

 $abc_obj->openabc($abcfile) || die("failed to open $abcfile") ;

 print "-----------------------------\n" ;
 my @lines = $abc_obj->print_song_summary($songnum) ;
 
 foreach (@lines) {
     print "$_\n" ;
 }
 
 my @files = $abc_archive->list_by_title() ;
 
 foreach (@files) {
     my ($display_name, $sn, $type, $meter, $key, $titles_aref) = @{$_} ;
     my $name = "$display_name - $type - Key of $key" ;
     print "<option value=\"$sn\">$name</option>\n" ;
 }

DESCRIPTION

ABC music archives (http://www.gre.ac.uk/~walshaw/abc/index.html) contain songs in the ABC format. They are a very quick way for entering music in a text format, and there are numerous publishable quality renderers for ABC music. This module encapsulates the ABC archive, and individual songs so they may more easily be managed by perl front-ends.

ABSTRACT

    ABC music archives (http://www.gre.ac.uk/~walshaw/abc/index.html) contain songs in the ABC format.
    They are a very quick way for entering music in a text format, and there are numerous publishable quality
    renderers for ABC music.  This module encapsulates the ABC archive, and individual songs so they may
    more easily be managed by perl front-ends.

CONSTRUCTOR

new([s])

Creates the Music::ABC::Archive object. If s is given, specifies the name of the archive file.

METHODS

openabc([s])

Opens the abc archive file. Optional argument is the name of the archive file. Returns false on failure.

filename([s])

Specify the name of the archive file. Returns the current archive file name

list_by_title()

@song_numbers = list_by_title() ;

Returns list of array references for songs in the archive, sorted by title, which contain (in this order):

display_name - a song title for display to the user

song number - an integer

song type - Reel, Jig, Waltz, etc

key - Key of the song

titles - a reference to an array holding all titles for the song

get_song(n)

Returns all of the ABC text for song number n. There is no trailing "\n" ;

@lines = get_song($songnum) ;

Returns a list of lines, giving a description of the song as found in the headers of the song text for song number n. if the second argument is false, or missing, then no html markup is included, otherwise the lines include basic html markup for displaying the song on a WWW browser. There is no trailing "\n" ;

@lines = print_song_summary($song_number) ; @lines = print_song_summary($song_number, $use_html_tags) ;

get_archive_header_lines()

Returns all of the ABC header text(any line starting with %, before any songs are found)

@header_lines = get_archive_header_lines() ;

parse()

Force immediate parsing of the ABC archive file. This will be done automatically on any other calls.

AUTHOR

Jeff Welty (jeff@redhawk.org)

BUGS

None known, but you'll be sure to tell me if you find one, won't you?

SEE ALSO

Music::ABC::SONG.pm

COPYRIGHT

This program is free software. You may copy or redistribute it under the same terms as Perl itself.

1 POD Error

The following errors were encountered while parsing the POD:

Around line 438:

=pod directives shouldn't be over one line long! Ignoring all 25 lines of content