changma_ha has asked for the wisdom of the Perl Monks concerning the following question:
Hi all. i am actually trying a program which searched my whole computer for Mp3 files. I am able to search for only a particular drive. I am using windows. And here is my code
#!/usr/bin/perl use warnings; my @content =( "Artist","Title","Album","Year","Genre"); use MP3::Tag; # import module @files = <c:/*.mp3>; # find MP3 files in current directory #i want to search my whole computer instead of a particular drive..How +????? # loop over file list # print tag information foreach (@files) { $mp3 = MP3::Tag->new($_); $mp3->get_tags(); if (exists $mp3->{ID3v1}) { #print $_, "\n", #print "Filename: $filename\n"; print "Artist: " . $mp3->{ID3v2}->artist . "\t"; #print "Length", $mp3 ->{ID3v1}->duration(hh:mm:ss) "\n"; print "Title: " . $mp3->{ID3v1}->title . "\t"; print "Album: " . $mp3->{ID3v1}->album . "\t"; print "Year: " . $mp3->{ID3v1}->year . "\t"; print "Genre: " . $mp3->{ID3v1}->genre . "\n";
Also can anybody give me some ideas of how to search for all music files in my Computer? plz spread the wisdom...Thanks in advance.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Searching for a music files
by dasgar (Priest) on Aug 12, 2010 at 04:42 UTC | |
by Ratazong (Monsignor) on Aug 12, 2010 at 07:16 UTC | |
Re: Searching for a music files
by hawtin (Prior) on Aug 12, 2010 at 08:18 UTC | |
Re: Searching for a music files
by ikegami (Patriarch) on Aug 12, 2010 at 04:34 UTC | |
by changma_ha (Sexton) on Aug 12, 2010 at 05:20 UTC | |
by ikegami (Patriarch) on Aug 12, 2010 at 06:51 UTC | |
Re: Searching for a music files
by Marshall (Canon) on Aug 13, 2010 at 08:31 UTC |
Back to
Seekers of Perl Wisdom