note to self....

#!/usr/bin/perl -w
#
# azlyricfilter.pl - filters HTML from www.azlyrics.com into text
#
#   Run this on the output of 'html2text -nobs azlyricsURL e.g.
#
#      html2text -nobs  http://www.azlyrics.com/lyrics/u2/exit.html\
#         | azlyricfilter.pl > u2-exit.txt
#
#   The -nobs keeps html2text from marking up the text w/ BS and over-
#   strike characters.
#
#   This program requires the html2text program.
#
# Revision History:
#   2005-10-31: pdwilso@gmail.com - initial version
#
$start=1;
while (<>) {
    chomp;
    next if ($start && /LYRICS/);
    next if ($start && /^\s*$/);
    if(/^\s*\"/) {$start=0;}
    exit if(/\[ www.azlyrics.com \]/);
    s/^\s*//g;
    print;
    print"\n";
}

posted by 0x0000  # 08:37