read up on substitution. You need to put the array through a foreach loop.
foreach my $mp3 (@mp3s){
$mp3 =~ s#/www/mp3/##;
}
Can you e-mail me that MP3 (the one you used as an example)?
> -----Original Message-----
> From: K Clark [mailto:[EMAIL PROTECTED]]
> Sent: Friday, March 22, 2002 9:14 AM
> To: [EMAIL PROTECTED]
> Subject: RE: how to randomly choose mp3 from dir, print
> mp3_filename for
> e mailing to a list]
>
>
> 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]
>
----------------------------------------------------------------------------
--------------------
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
