tucano has asked for the wisdom of the Perl Monks concerning the following question:
Realy simple you can see... it just take the file, read with the module Mp3::Info, and give a string with print#!/usr/bin/perl #use strict; use warnings; use MP3::Info; my $file=$ARGV[0]; open (CURRENT, "$file") or die "can't open file"; my $line=<CURRENT>; chomp $line; $line=~s/u=//; #print "FILE CURRENT:\n",$line,"\n"; close (CURRENT); my $tag = get_mp3tag ($line, ID3v2); print "AUTORE=",$tag->{ARTIST},"&ALBUM=",$tag->{ALBUM},"&BRANO=",$tag- +>{TITLE};
<? system ("/path/to/script/mp3tagfinder.pl".escapeshellarg('/path/to/har +d/link/file/current')); ?>
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Flash and perl
by dondelelcaro (Monk) on May 27, 2004 at 06:50 UTC |