view release on metacpan or  search on metacpan

share/2006.csv  view on Meta::CPAN

Net-Google-Calendar-0.1_devel,2006-04-26T14:25:02,SIMONW,cpan,released,0.1_devel,1,Net-Google-Calendar,"programmatic access to Google's Calendar API"
RiveScript-0.21,2006-04-26T14:48:13,KIRSLE,backpan,released,0.21,,RiveScript,"Rendering Intelligence Very Easily"
Class-STL-Containers-0.16,2006-04-26T14:54:35,GAFFIE,backpan,released,0.16,,Class-STL-Containers,"Perl extension for STL-like object management"
Tie-Array-Packed-0.03,2006-04-26T15:29:58,SALVA,backpan,released,0.03,1,Tie-Array-Packed,"store arrays in memory efficiently as packed strings"
Catalyst-Plugin-Cache-FastMmap-0.6,2006-04-26T15:54:56,MRAMBERG,cpan,released,0.6,1,Catalyst-Plugin-Cache-FastMmap,"Mmap cache"
Template-Plugin-MP3-Tag-0.01,2006-04-26T16:05:52,TRAVAIL,latest,released,0.01,1,Template-Plugin-MP3-Tag,"Interface to the MP3::Tag Module"
Catalyst-Model-DBIC-Schema-0.13,2006-04-26T16:32:12,MSTROUT,backpan,released,0.13,,Catalyst-Model-DBIC-Schema,"DBIx::Class::Schema Model Class"
Number-Format-1.51,2006-04-26T16:52:23,WRW,backpan,released,1.51,,Number-Format,"Perl extension for formatting numbers"
Net-FeedBurner-0.01,2006-04-26T17:10:57,SOCK,backpan,released,0.01,1,Net-FeedBurner,"The great new Net::FeedBurner!"
RFID-Base-0.005,2006-04-26T17:17:19,GIFF,latest,released,0.005,,RFID-Base,"Abstract base class for an RFID tag object"
RFID-Alien-0.003,2006-04-26T17:19:06,GIFF,latest,released,0.003,,RFID-Alien,"Abstract base class for a Alien RFID reader"

 view release on metacpan or  search on metacpan

lib/Template/Plugin/MP3/Tag.pm  view on Meta::CPAN

package Template::Plugin::MP3::Tag;

# ----------------------------------------------------------------------
# $Id: Tag.pm,v 1.7 2006/04/24 03:30:05 travail Exp $
# ----------------------------------------------------------------------

use 5.008002;
use strict;
use warnings;
use vars qw ( $VERSION $AUTOLOAD );
use base qw( Template::Plugin );
use MP3::Tag ();
use Template::Plugin;

my $ETYPE = 'plugin.mp3_tag';
$VERSION = '0.01';

sub new {
    my ( $class, $context, $file ) = @_;

    -e $file || $context->throw( $ETYPE, "File '$file' does not exist" );

    my $mp3_tag = MP3::Tag->new( $file )
        || $context->throw( $ETYPE, "Can't create MP3::Tag object for mp3 file '$file'" );

    bless {
        _CONTEXT => $context,
        _FILE    => $file,
        _MP3_TAG => $mp3_tag

lib/Template/Plugin/MP3/Tag.pm  view on Meta::CPAN

__END__

=head1 NAME

Template::Plugin::MP3::Tag - Interface to the MP3::Tag Module

=head1 SYNOPSIS

    [% USE tag = MP3("path_to_mp3_file") %]

    [% tag.title %]
    [% tag.album %]

    # perldoc MP3::Tag for more ideas

=head1 DESCRIPTION

C<Template::Plugin::MP3::Tag> provides a simple wrapper for using
C<MP3::Tag> in object oriented mode; see L<MP3::Tag> for more
details.

Although C<Template::Plugin::MP3> can fetch MP3 files, but it Supports only ID3v1.
When you have to fetch MP3 files ID3v2, I recommend you to use this module.

=head1 CONSTRUCTIR

C<Template::Plugin::MP3::Tag> tales a filename as primary argument:

    [% USE tag = MP3::Tag("path_to_mp3file") %]
    [% tag.album %] 
    [% tag.artist %]

    # If you need encode the tag information,
    # code just like below.

lib/Template/Plugin/MP3/Tag.pm  view on Meta::CPAN

    [% tag.album.jcode.euc %]
    [% tag.artist.jcode.euc %]

=head1 SEE ALSO

L<Template::Plugin>, L<MP3::Tag>

=head1 AUTHOR

Tomoyuki SAWA, E<lt>travail@cabane.no-ip.orgE<gt>

 view release on metacpan or  search on metacpan

scripts/vmd.pl  view on Meta::CPAN

# Please visit my home page for geting full version of the script

use strict;
use warnings;
use VK::App 0.06;
use MP3::Tag;
use File::Copy;

my $login = 'email or mobile phone';
my $password = 'password';

scripts/vmd.pl  view on Meta::CPAN

	my $mp3_filename = $track->{aid}.'.mp3';
	print "$i/$n Download $url";
	my $req = HTTP::Request->new(GET => $url);
	my $res = $ua->request($req, $mp3_filename);
	if ($res->is_success) {
		my $mp3 = MP3::Tag->new($mp3_filename);
		my $new_mp3_filename = $mp3->artist.'-'.$mp3->title.'-'.$mp3_filename;
		move($mp3_filename, $new_mp3_filename);
		print " - saved as '$new_mp3_filename'\n";
	}
	else {

 view release on metacpan or  search on metacpan

os2/perllocal.pod  view on Meta::CPAN

C<EXE_FILES: >

=back

=head2 Sun Dec 14 21:34:00 2003: C<Module> L<MP3::Tag|MP3::Tag>

=over 4

=item *

os2/perllocal.pod  view on Meta::CPAN

C<EXE_FILES: >

=back

=head2 Mon Dec 15 03:37:28 2003: C<Module> L<MP3::Tag|MP3::Tag>

=over 4

=item *

os2/perllocal.pod  view on Meta::CPAN

C<EXE_FILES: >

=back

=head2 Tue Dec 16 01:17:54 2003: C<Module> L<MP3::Tag|MP3::Tag>

=over 4

=item *

os2/perllocal.pod  view on Meta::CPAN

C<EXE_FILES: >

=back

=head2 Tue Dec 16 01:48:32 2003: C<Module> L<MP3::Tag|MP3::Tag>

=over 4

=item *

 view release on metacpan or  search on metacpan

TAG/ID3v1.pm  view on Meta::CPAN

MP3::TAG::ID3v1 - Perl extension for reading / writing ID3v1 tags of mp3-files

=head1 SYNOPSIS

MP3::TAG::ID3v2 is designed to be called from the MP3::Tag module.
It then returns a ID3v2-tag-object, which can be used in a users
program.

  use MP3::TAG::ID3v1;
  $id3v1 = MP3::TAG::ID3v1->new($mp3obj);

C<$mp3obj> is a object from MP3::Tag. See according documentation.
C<$tag> is undef when no tag is found in the C<$mp3obj>.
  
* Reading the tag

    print "   Song: " .$id3v1->song . "\n";

TAG/ID3v1.pm  view on Meta::CPAN

=pod

=head1 SEE ALSO

MP3::Tag, MP3::TAG::ID3v2

ID3v1 standard - http://www.id3.org

=cut