[Kc] a handy script for dealing with music archives

[David Nicol]

# pipe output of find into this
# every directory becomes a cue file

while (<>){
chomp;
$_ or next;
if ( -f $_ ){
    /(mp3|flac)$/i or next;
    print CUE <<XYZ;
FILE "$_" MP3
 TRACK 01 AUDIO
  INDEX 01 00:00:00
XYZ
}else{
  s=/=_=g;
  open CUE, '>', "$_.cue";
  print CUE <<ABC;
PERFORMER "$_"
TITLE "$_"
ABC

}}
__END__



-- 
Elect Racquel Banana! They call her Mellow Yellow!
She's bound to be the very next phase! Racquel Banana in 2020!
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mail.pm.org/pipermail/kc/attachments/20191015/f58c71df/attachment.html>