Meijer My Info

SYNOPSIS my $mi = Movie::Info->new || die "Couldnt find an mplayer to usen"; foreach my $file (@ARGV) { my %info = $mi->info($file) || warn "Couldnt read info from $filen" && next; print "$file (WxH) - $info{width}x$info{height}n"; } Movie::Info is a thin layer around MPlayers...

Video::Info can retrieve video properties such as: height width codec fps. SYNOPSIS use Video::Info; my $info = Video::Info->new(-file=>my.mpg); $info->fps(); $info->aspect(); ## ... see methods below Video::Info is a factory class for working with video files. When you create a new...

MP3::Info is a Perl module that can manipulate / fetch info from MP3 audio files. SYNOPSIS #!perl -w use MP3::Info; my $file = Pearls_Before_Swine.mp3; set_mp3tag($file, Pearls Before Swine, q"77s", Sticks and Stones, 1990, q"(c) 1990 77s LTD.", rock & roll); my $tag =...


Platforms: *nix

FLV::Info is an extract metadata from Flash Video files. SYNOPSIS use FLV::Info; my $reader = FLV::Info->new(); $reader->parse(video.flv); my %info = $reader->get_info(); print "$info{video_count} video framesn"; print $reader->report(); This module reads Macromedia FLV files and...


Platforms: *nix

MP4::Info is a Perl module that can fetch info from MPEG-4 files (.mp4, .m4a, .m4p, .3gp). SYNOPSIS #!perl -w use MP4::Info; my $file = Pearls_Before_Swine.m4a; my $tag = get_mp4tag($file) or die "No TAG info"; printf "$file is a %s trackn", $tag->{GENRE}; my $info =...


Platforms: *nix

This is my version of a Nokia PC Suite(r) but for Ubuntu and open source. THE HELP FORUM have a lot of usefull info, PLEASE USE IT!! TRANSLATE NOKUNTU TO YOUR LANGUAGE IT'S REALLY EASY!! See "translate" help forum topic for details


Platforms: *nix

AudioCD::Mac is a MacPerl extension for controlling Audio CDs. SYNOPSIS #!perl -w use AudioCD; use strict; my $cd = new AudioCD; $cd->volume(255); $cd->play(2); print "Now playingn" if $cd->status == CD_PLAY; printf "Volume is %dn", $cd->volume; sleep(5); $cd->pause; print "Now...


Platforms: *nix

Object::InsideOut is a comprehensive inside-out object support module. SYNOPSIS package My::Class; { use Object::InsideOut; # Numeric field # With combined get+set accessor my @data :Field :Type(numeric) :Accessor(data); # Takes INPUT (or input, etc.) as a mandatory parameter to...


Platforms: *nix

Debug::Message is a Perl module that eases the use of debug print with level, indentation and color. SYNOPSIS use Debug::Message; use Log::Dispatch; use Log::Dispatch::Screen; my $dispatcher = Log::Dispatch->new; $dispatcher->add( Log::Dispatch::Screen->new( name => screen, min_level =>...


Platforms: *nix

MP3::Tag::ID3v2 is a Read / Write ID3v2.x.y tags from mp3 audio files. SYNOPSIS MP3::Tag::ID3v2 supports * Reading of ID3v2.2.0 and ID3v2.3.0 tags (some ID3v2.4.0 frames too) * Writing of ID3v2.3.0 tags MP3::Tag::ID3v2 is designed to be called from the MP3::Tag module. use MP3::Tag; $mp3...


Platforms: *nix

MP3::Icecast is a Perl module to generate Icecast streams, as well as M3U and PLSv2 playlists. SYNOPSIS use MP3::Icecast; use MP3::Info; use IO::Socket; my $listen_socket = IO::Socket::INET->new( LocalPort => 8000, #standard Icecast port Listen => 20, Proto => tcp, Reuse => 1,...


Platforms: *nix

MasonX::Resolver::CVS is a Perl component path resolver for components in CVS. SYNOPSIS my $resolver = MasonX::Resolver::CVS->new( cvs_module => cvs/module, cvs_repository => /var/cvs ); my $info = $resolver->get_info(/some/comp.html); This HTML::Mason::Resolver(3) subclass is used when...


Platforms: *nix

Games::Quakeworld::Query is a class for querying QuakeWorld servers. SYNOPSIS use Games::Quakeworld::Query; my $QWQ = Games::Quakeworld::Query->new("quake.server.com", "27500"); my %info = $QWQ->getinfo(); # obsoleted, use $qwq->get("") instead print "Server uses map:...


Platforms: *nix

MP3::M3U::Parser is a MP3 playlist parser. SYNOPSIS use MP3::M3U::Parser; my $parser = MP3::M3U::Parser->new(%options); $parser->parse(*FILEHANDLE, $scalar, "/path/to/playlist.m3u"); my $result = $parser->result; my %info = $parser->info; $parser->export(-format => xml, -file =>...


Platforms: *nix

WWW::Curl::Easy is a Perl extension interface for libcurl. SYNOPSIS use WWW::Curl::Easy; my $curl = new WWW::Curl::Easy; $curl->setopt(CURLOPT_URL, http://oook.de); $curl->perform; my $err = $curl->errbuf; my $info = $curl->getinfo(CURLINFO_HTTP_CODE); WWW::Curl::Easy is a Perl...


Platforms: *nix

B::LexInfo is a Perl module that shows information about subroutine lexical variables. SYNOPSIS use B::ShowLex (); my $lexi = B::ShowLex->new; Perl stores lexical variable names and values inside a padlist within the subroutine. Certain lexicals will maintain certain attributes after the...


Platforms: *nix

Audio::CD is a Perl interface to libcdaudio (cd + cddb). SYNOPSIS use Audio::CD (); my $cd = Audio::CD->init; Audio::CD provides a Perl interface to libcdaudio by Tony Arcieri, available from http://cdcd.undergrid.net/ Several classes provide glue for the libcdaudio functions and data...


Platforms: *nix

Finance::Quote::Yahoo::Australia is a Perl module to fetch Australian stock quotes via Yahoo. SYNOPSIS use Finance::Quote; my $q = Finance::Quote->new; my %info = $q->fetch("yahoo_australia","BHP"); # Use this module only. my %info = $q->fetch("australia","BHP"); # Failover with other...


Platforms: *nix

Finance::Quote::Yahoo::Brasil is a Perl module to fetch Brasilian stock quotes via Yahoo. SYNOPSIS use Finance::Quote; my $q = Finance::Quote->new; my %info = $q->fetch("yahoo_brasil","BHP"); # Use this module only. my %info = $q->fetch("brasil","BHP"); # Failover with other methods....


Platforms: *nix

Finance::Quote::Yahoo::nz is a Perl module to fetch nzn stock quotes via Yahoo. SYNOPSIS use Finance::Quote; my $q = Finance::Quote->new; my %info = $q->fetch("yahoo_nz","DPC"); # Use this module only. my %info = $q->fetch("nz","DPC"); # Failover with other methods. This module allows...


Platforms: *nix