Skip to content

Instantly share code, notes, and snippets.

@z448
Last active December 28, 2015 02:17
Show Gist options
  • Save z448/ca140bb5260d88114248 to your computer and use it in GitHub Desktop.
Save z448/ca140bb5260d88114248 to your computer and use it in GitHub Desktop.
tmp
#!/bin/bash
#./prsr mp3list
perl -e 'push @l,qx!cat mp3list!; for(@l){if (/\.[0-9][0-9]/){s/\>(.*?)\</$1/;print "BPM\:\t$1\n"}elsif(/..\.mp3/){s/\>(.*?)\</$1/;print "PATH\:\t$1\n\n"}}'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment