Here's what i have, and here's the problem. and here's what i 'think' i
have to learn/do to fix it:
#/usr/bin/perl -w
use strict;
#
# script to randomly choose a song
# and embed html with a link to it
#
my @mp3 = glob("/www/mp3/*.mp3");
#
# put while statement
my $mp3 =~ s#.*/##;
srand;
print "http://www.quantifier.org/mp3"; . "$mp3[rand(@mp3)]";
# end
this returns
[ken:bin](09:04am)$ perl randomsong.pl
http://www.quantifier.org/mp3/www/mp3/Hooverphonic vs Sneaker Pimps
- Shake the Underground Disease (Puppeteer Remix).mp3
so i get my random song, but i'm not trimming off the directory pathname
of /www/mp3. so i see something in 'learning perl' about globs, and
using a while statement. i can't figure out how to add that while still
declaring my $mp3.
hints?
ken
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
