|
Rockbox mail archiveSubject: Re: Play songs by tracknumRe: Play songs by tracknum
From: Matthew A. R. Sherian <mars_at_mars-tmc.hq.themunicenter.com>
Date: Thu, 04 Mar 2004 19:48:54 -0500 Ah there are dependencies on external modules. you must install tagged-0.40 this can be manually downloaded from cpan.org or installed in cygwin via the command perl -MCPAN -e'shell' This will probably invoke the manual installer, you may go through the prompts and select the mirrors from which you wish to download CPAN applications. Or you may let it auto-generate a config. once CPAN is configure you will be at a prompt like this: cpan> just install MP3::Tag and with the command cpan>install MP3::Tag or to download the source and install manually http://search.cpan.org/CPAN/authors/id/T/TH/THOGEE/tagged-0.40.tar.gz tar xzvf tagged-0.40.tar.gz cd tagged-0.40 perl Makefile.PL make && make install On Wed, 2004-03-03 at 09:08, David Newhook wrote: > That's great Matt thanks very much. > > I'm a novice with Perl, I'm getting the following running the script in my > home cygwin directory with a couple of mp3 files... > > $ ./rename.sh > Can't locate MP3/Tag.pm in _at_INC (_at_INC contains: > /usr/lib/perl5/5.8.2/cygwin-thre > ad-multi-64int /usr/lib/perl5/5.8.2 > /usr/lib/perl5/site_perl/5.8.2/cygwin-thread > -multi-64int /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl .) at > /ren > ame.sh line 3. > BEGIN failed--compilation aborted at ./rename.sh line 3. > > Do I need to re-run cygwin setup to get the MP3/Tag.pm module? > > Cheers, > Dave > > ----- Original Message ----- > From: "Matthew A. R. Sherian" <mars_at_mars-tmc.hq.themunicenter.com> > To: "Rockbox development" <rockbox_at_cool.haxx.se> > Sent: Wednesday, March 03, 2004 1:37 PM > Subject: Re: Play songs by tracknum > > > > Here is a little perl script I I wrote to rename files. If you are using > > linux or have Cygwin (www.cygwin.com) > > > > #!/usr/bin/perl > > > > use MP3::Tag; > > use Getopt::Long; > > my $basedir; > > GetOptions( > > "batch" => \$batch, > > "single" => \$single, > > "help" => \$help > > ); > > unless($batch||$single){ > > die "usage: mp3rename.pl {--single|--batch}\n"; > > } > > if ( defined($help) ){ > > print "usage: mp3rename.pl {--single|--batch}\n"; > > } > > > > if ( $batch ){ > > _at_ls = split(/\n/,`ls -1`); > > foreach $filename (_at_ls){ > > chomp($filename); > > if ($filename =~ /\.mp3/){ > > RN(); > > } > > } > > } > > > > if ( $single ){ > > $filename = $ARGV[0] or print "You must supply a file\n"; > > chomp($filename); > > if ($filename =~ m#/#){ > > _at_path=split(/\//,$filename); > > pop(_at_path); > > foreach $e (_at_path){ > > $basedir .= "$e/"; > > } > > } > > if ($filename =~ /\.mp3/){ > > RN(); > > } > > } > > sub RN{ > > $mp3 = MP3::Tag->new($filename); > > > > # get some information about the file in the easiest way > > ($song, $track, $artist, $album) = $mp3->autoinfo(); > > if ( ! defined $track ){die "No Track Data, please use id3tag to > > provide\n";} > > $song =~ s/\?//g; > > if ($track <= 9 ){ > > $track =~ s/(\d)/0$1/g; > > } > > $mp3->close(); > > if ($basedir){ > > print "Moving from $filename -> $basedir/$track $song.mp3\n"; > > rename ($filename, "$basedir/$track $song.mp3") > > } > > else{ > > print "Moving from $filename -> $track $song.mp3\n"; > > rename ($filename, "$track $song.mp3") > > } > > } > > > > > > On Wed, 2004-03-03 at 04:47, David Newhook wrote: > > > Hi there, > > > > > > I'm new to the list but a longtime owner of an archos player 6000. I've > > > only got 4.5gb now thanks to an incident with the original drive during > a > > > very wet hike on a glacier... :p > > > > > > I just wanted to know if anyone knows how to, or would like to be able > to, > > > play a directory of tunes sorted by artist, tracknum then title. > > > > > > I haven't found a way to do this yet. I know this can be achieved with > > > playlists, but I haven't found a tool for compiling lists in the order I > > > want (any suggestions) and to be honest, I think generating all those > > > playlists for achieving a simple sort, would be overkill. > > > > > > Or maybe everyone simply enjoys listening to their album tracks in > > > alphabetical order? > > > > > > Suggestions on a postcard please... > > > > > > Dave > > > > > > _______________________________________________ > > > http://cool.haxx.se/mailman/listinfo/rockbox > > > > > _______________________________________________ > > http://cool.haxx.se/mailman/listinfo/rockbox > > > _______________________________________________ > http://cool.haxx.se/mailman/listinfo/rockbox _______________________________________________ http://cool.haxx.se/mailman/listinfo/rockbox Received on 2004-03-05 Page template was last modified "Tue Sep 7 00:00:02 2021" The Rockbox Crew -- Privacy Policy |