Perl one liner help!

[rublind]

I'm writing a freedb type thing, and I need some help converting my perl script to a one liner so I can use it in a shell script.


#!/usr/bin/perl -w

$working = "200 jazz 980a930c Serj Tankian (System Of A Down) / Elect The Dead";
if ($working =~ /^([0-9]+) ([a-z]+) ([a-z0-9]+) (.+)\/ (.+)$/) {
# $1: status, 200 = ok
# $2: category
# $3: discid
# $4: artist
# $5: album
print "status:\t\t$1\ncategory:\t$2\ndiscid:\t\t$3\nartist:\t\t$4\nalbum:\t\t$5\n";
}

# one liner:
# perl -e "('200 jazz 980a930c Serj Tankian (System Of A Down) / Elect The Dead' =~ /^([0-9]+) ([a-z]+) ([a-z0-9]+) (.+)\/ (.+)$/) and print $1;"

print $4 if '200 jazz 980a930c Serj Tankian (System Of A Down) / Elect The Dead' =~ m/^([0-9]+) ([a-z]+) ([a-z0-9]+) (.+)\/ (.+)$/;



$working is what is returned by the freedb server, but I need to extract just the artist (which is $4 in the regexp).

The second to last line is basically what the one-liner should look like (in my mind) but it doesn't work when executed via perl -e, however, when executed within that script (as in the last line), it does work.

I can't figure it out, and was hoping someone would be able to help...

Thanks! :)

figured it out.

perl -wle did that trick =]