#!/usr/local/bin/perl -w # # Script to create an index file for all these funny mp3s in here. # Created at the secret-wg office... # Copyright.. ah.. forget it.. copy whatever you want.. use strict; my $mp3file; my %by_artist; my $key; use MP3::Info; if (! opendir (DOMAINDIR,"./")){ print "Could not open ./"; exit; } foreach $mp3file (sort (readdir DOMAINDIR)){ no utf8; next if -d $mp3file; next if $mp3file !~ /mp3$/; my $mp3=MP3::Info->new($mp3file); my $filename=$mp3file; $filename =~ s/ /%20/g; my $title=$mp3->{"TITLE"}; if (!$title ){ $title=$mp3file; $title =~ s/\.mp3$//; } $by_artist{$mp3->{"ARTIST"}}.= "

". #$mp3->{"ARTIST"} .": ". $title." ".$mp3->{"ALBUM"}." (".$mp3file.")

\n" ; } header(); foreach $key (sort keys %by_artist ){ print "

$key

"; print $by_artist{$key}; print "\n"; } footer(); sub header { print < Ernie...

My MP3 Repository

This page is for my personal use. Do not spread the URL if you happen to stumble on this page.

Currently available

ENDHEADER } sub footer{ print < Page created using this script. Simple ain't it... ENDFOOTER #' }