# sample program - all available methods are used

#!c:/perl/bin/perl -w
$| = 1;

use strict;
use LyricFinder;

# 'more' is used because of both win32 and *nix support.
# you can change this to 'less', /vim?/, 'notepad', etc etc.
my $viewer = 'more';

my $lf = LyricFinder->new();

find_lyrics() while 1;


sub find_lyrics {
    print "Artist: ";
    chomp( my $artist = <STDIN> );

    print "Song Title: ";
    chomp( my $song = <STDIN> );

    my $search = $lf->search(50, $artist, $song);

    print "\nFound ", $search->count(), " possible results!\n";

    while ( my $page = $search->fetch() ) {
        if ( $page->error() ) {
            print "Fetch for ", $page->source(), " failed (", $page->e
+rror(), ")\n";
            next;
        }

        print "Fetch from ", $page->source(), " successfull (200).\n\n
+";
        sleep 2;

        open( my $fh, '>', '.lyrics' ) or die "open failed: $!";
        print $fh $page->lyrics();
        close($fh) or die "close failed: $!";

        system "$viewer .lyrics";
        unlink '.lyrics';

PROMPT:
        print "\n\n>> ";
        chomp( my $cmd = <STDIN> );

        if ($cmd =~ /^[qQ]/) {
            exit(0);
        }
        elsif ($cmd =~ /^[rR]/) {
            print "\n"; last;
        }
        elsif ($cmd =~ /^[nN]/) {
            next;
        }
        else {
            goto PROMPT;
        }
    }

    print "\nNo more lyrics found for given artist and song.\n\n";
}




# LyricFinder.pm - all code below here goes in same file!
package LyricFinder;

use URI::Escape;
use LWP::UserAgent;

my @sites = qw(
    sing365.com
    musicsonglyrics.com
    lyricsdepot.com
    123lyrics.net
    lyricsfreak.com
    azlyrics.com
    elyrics.net
);

sub new {
    my ($class) = @_;

    my $self = {
        _ua         => LWP::UserAgent->new(
            timeout => 30,
            agent   => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 
+5.1) ' .
                       'Opera 7.23 [en]'
        )
    };

    return( bless($self, $class) );
}

sub search {
    my ($self, $count, @terms) = @_;

    my $res = $self->{_ua}->get(
        'http://www.google.com/search?q=lyrics%20' .
         uri_escape( join(' ', @terms) ) . '&num=' . $count .
        '&ie=UTF-8&oe=UTF-8&hl=en&btnG=Google%20Search',

        Referer => 'http://www.google.com/'
    );

    die("Unable to retrieve search results: ${\$res->status_line()}\n"
+)
        unless ( $res->is_success() );

    my @links = grep {
        my $link = $_;
        grep { $link =~ m!^http://(?:www.)?$_! } @sites
    } $res->content() =~ m!<p class=g><a href=([^>]+)>!g;

    return( LyricsFinder::Search->new($self->{_ua}, \@links) );
}


package LyricsFinder::Search;

sub new {
    my ($class, $ua, $links) = @_;

    my $self = {
        _ua    => $ua,
        _links => $links
    };

    return( bless($self, $class) );
}

sub count { scalar @{shift->{_links}} }

sub fetch {
    my ($self) = @_;

    if ( defined( my $page = shift(@{$self->{_links}}) ) ) {
        return( LyricsFinder::Page->new($self->{_ua}, $page) );
    }
    else {
        return( undef );
    }
}


package LyricsFinder::Page;

use HTML::Entities;

sub new {
    my ($class, $ua, $uri) = @_;

    my $source = ($uri =~ m!^http://(?:www.)?([^/]+)/!)[0];

    my $self = {
        _ua     => $ua,
        _uri    => $uri,
        _source => $source
    };

    my $res = $self->{_ua}->get($uri);
    my ($lyrics);

    unless ( $res->is_error() ) {
        $lyrics = $res->content();

        $lyrics =~ y!\r!!d;
        $lyrics =~ s!(?:\342\200\231|\306|\221|\222)!'!g;

        $lyrics =~ s!\n?<\s*br\s*(?:/\s*)?>\n?!\n!ig;
        $lyrics =~ s!<\!\-\-.*?\-\->!!gs;
        $lyrics =~ s!<([^>]+)>!\001!gs;

        ($lyrics) = sort { length($b) <=> length($a) } split(/\001/, $
+lyrics);

        $lyrics =~ s!\A\s*(?:\]\s*)?!!;
        $lyrics =~ s!(?:\s*\[)?\s*\z!!;
        $lyrics = decode_entities($lyrics);
    }

    if ( $res->is_error() or not defined($lyrics)     or
         $lyrics =~ /hotlog_js/ or $lyrics =~ /td {/  or
         $lyrics =~ /All lyrics are property/
       ) {
        $self->{_error} = $res->is_error() ? $res->code() : 'no lyrics
+ found';
    }
    else {
        $self->{_lyrics} = $lyrics;
    }

    return( bless($self, $class) );
}

sub uri    { shift->{_uri}    }
sub error  { shift->{_error}  }
sub source { shift->{_source} }
sub lyrics { shift->{_lyrics} }

1;

[download]

In reply to Lyrics Fetcher by saskaqueer

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.