Table of contents

sub characters { my($self, $characters) = @_; $$self{_text} .= $$characters{Data};

} # End of characters.

                        set_mp3tag($input_file_name,
                        {
                                ARTIST  => uc $artist,
                                TITLE   => uc $song,
                        });

sub end_document { my($self) = @_;

} # End of end_document.

# -----------------------------------------------

sub end_element { my($self, $element) = @_; $$self{_text} =~ s/^\s+//; $$self{_text} =~ s/\s+$//;

        # Process text.

        # Reset.

        $$self{_text} = '';

} # End of end_element.

                set_mp3tag("$input_dir_name/$file_name",
                {
                        ALBUM   => '',
                        ARTIST  => $artist,
                        GENRE   => 'Rock',
                        TITLE   => $title,
                });

sub start_document { my($self) = @_;

} # End of start_document.

# -----------------------------------------------

sub start_element { my($self, $element) = @_; $$self{_text} = '';

        if ($$element{Name} eq 'head1')
        {
                print "Head1. $$element{Attributes}{'{}head1'}{Value}\n";
        }
        elsif ($$element{Name} eq 'head2')
        {
                print "Head2. $$element{Attributes}{'{}head2'}{Value}\n";
        }
        elsif ($$element{Name} eq 'head3')
        {
                print "Head3. $$element{Attributes}{'{}head3'}{Value}\n";
        }

} # End of start_element.

NAME

Local::Reel2Reel - Manage Reel2Reel Tape, Artist and Track Data

Synopsis

        #!/usr/bin/env perl

        use strict;
        use warnings;

        use Local::Reel2Reel;

        # -----------------

        my($driver)  = Local::Reel2Reel -> new();

        $driver -> parse('/homepage/Reel2Reel/pod/tapes.pod');
        $driver -> print();

Description

Local::Reel2Reel is a pure Perl module.

Author

Local::Reel2Reel was written by Ron Savage in 2006.

Home page: http://savage.net.au/index.html

Copyright

Australian copyright © 2006, Ron Savage. All Programs of mine are 'OSI Certified Open Source Software'; you can redistribute them and/or modify them under the terms of The Artistic License, a copy of which is available at: http://www.opensource.org/licenses/index.html