a short perl script for logging all the musich I listen to in audiacious

sdmMusicLogger.pl

#!/usr/bin/perl
use strict;
use warnings; 
use POSIX;
use English qw( -no_match_vars ) ;
my $logFile = "/home/music/logging/musicListenedLog.log";
use IO::All; 


#this script :
#
# is run by audacious on song change
# it writes the song info passed by audacious to a log file
# it cleans up the text, and prefixes a timestamp
# Note: this must be run at the START of each song, else audacious looses 
# the tag data (album, band....) and retains only the filename
#

#say "In sdmMusicLogger"	; 

# --- get the input data
my $infoToLog;
chomp (@ARGV); 
foreach (@ARGV) { $infoToLog .= "$_ + ";}
#$infoToLog = $ARGV[0]; 
#chop $infoToLog;
my $inInfo = $infoToLog; 


# --- process the data
$infoToLog =~ s/%20/ /g;		# clean filename of webtext
$infoToLog =~ s/%5B/\[/g;
$infoToLog =~ s/%5D/\]/g;
$infoToLog =~ s/%28/\(/g;
$infoToLog =~ s/%29/\)/g;
$infoToLog =~ s/ \+ \+//g;		# remove empty categories
$infoToLog =~ s/^\s*\+\s*|\s*\+\s*$//g;
# \s* - zero or more spaces

my $timestamp = `datetime`; 
chomp $timestamp; 


# --- write it out
$timestamp." :: ".$infoToLog."\n" >> io($logFile);

# `xmessage "IN: \"$inInfo\" OUT: $infoToLog"`;