> field is not defined!\n";
517 | return;
518 | }
519 |
520 | if (ref($struct->{code}) ne 'CODE') {
521 | warn "Invalid plugin `$file': the value for <> must be an anonymous subroutine!\n";
522 | return;
523 | }
524 |
525 | push @{$array}, $struct;
526 | return 1;
527 | }
528 |
--------------------------------------------------------------------------------
/plugins/100-azlyrics.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## azlyrics.com support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'azlyrics.com',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{.*?(.*?)}is) {
14 | my $lyrics = $1;
15 | $lyrics =~ s{<.*?>}{}sg;
16 | $lyrics =~ s/^\s+//;
17 | return $lyrics;
18 | }
19 |
20 | return;
21 | }
22 | }
23 |
--------------------------------------------------------------------------------
/plugins/100-songlyrics.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## songlyrics.com support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'songlyrics.com',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{id="songLyricsDiv-outer".*?(.*?)}si) {
14 | my $lyrics = $1;
15 | $lyrics =~ s{<.*?>}{}sg;
16 | return $lyrics;
17 | }
18 |
19 | return;
20 | }
21 | }
22 |
--------------------------------------------------------------------------------
/plugins/110-genius.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## genius.com support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'genius.com',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{window\.__PRELOADED_STATE__\s*=\s*JSON\.parse\('(.*?)'\);}s) {
14 | my $lyrics = $1;
15 |
16 | $lyrics =~ s/\\(.)/$1/gs;
17 |
18 | $lyrics = eval {
19 | require JSON::PP;
20 | my $json = JSON::PP->new;
21 | my $hash = $json->decode($lyrics);
22 | $hash->{songPage}{lyricsData}{body}{html};
23 | };
24 |
25 | $lyrics || return;
26 | $lyrics =~ s/<.*?>//gs;
27 |
28 | return $lyrics;
29 | }
30 | elsif ($content =~ m{(.*?)}s) {
31 | my $lyrics = $1;
32 | $lyrics =~ s/<.*?>//gs;
33 | return $lyrics;
34 | }
35 |
36 | return;
37 | }
38 | }
39 |
--------------------------------------------------------------------------------
/plugins/110-rapgenius.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## rapgenius.com support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'rapgenius.com',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{\s*(.*?)}si) {
14 | my $lyrics = $1;
15 | $lyrics =~ s{<.*?>}{}gs;
16 | return $lyrics;
17 | }
18 |
19 | return;
20 | }
21 | }
22 |
--------------------------------------------------------------------------------
/plugins/150-versuriro.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## versuri.ro support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'versuri.ro',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{(.*?)}is) {
14 | my $lyrics = $1;
15 | $lyrics =~ s{<.*?>}{}sg;
16 | return $lyrics;
17 | }
18 |
19 | return;
20 | }
21 | }
22 |
--------------------------------------------------------------------------------
/plugins/500-uulyrics.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## uulyrics.com support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'uulyrics.com',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{\s+\s+ \s+(.*?)}{\n}ig;
16 | $lyrics =~ s{<.*?>}{}sg;
17 | return $lyrics;
18 | }
19 |
20 | return;
21 | }
22 | }
23 |
--------------------------------------------------------------------------------
/plugins/888-valfm.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## val.fm support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'val.fm',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{class="song-text.*?>(.*?)}si) {
14 | my $lyrics = $1;
15 | $lyrics =~ s{}{\n\n}gi;
16 | $lyrics =~ s{<.*?>}{}sg;
17 | return if unpack('A*', $lyrics) eq '';
18 | return $lyrics;
19 | }
20 |
21 | return;
22 | }
23 | }
24 |
--------------------------------------------------------------------------------
/plugins/998-lyrics_wikia.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## lyrics.wikia.com support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'lyrics.wikia.com',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{(.*?)}is) {
14 | my $lyrics = $1;
15 | $lyrics =~ s{}{\n}gi;
16 | $lyrics =~ s/<.*?>//gs;
17 | return $lyrics;
18 | }
19 |
20 | return;
21 | }
22 | }
23 |
--------------------------------------------------------------------------------
/plugins/999-albumcancionyletra.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## albumcancionyletra.com support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'albumcancionyletra.com',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{(.*?)\s*}si) {
14 | my $lyrics = $1;
15 | $lyrics =~ s{}{}gs;
16 | $lyrics =~ s{}{\n}gi;
17 | $lyrics =~ s{<.*?>}{}sg;
18 | $lyrics =~ s/^\s+//;
19 | return $lyrics;
20 | }
21 |
22 | return;
23 | }
24 | }
25 |
--------------------------------------------------------------------------------
/plugins/999-elyrics.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## elyrics.net support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'elyrics.net',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{.*?(.*?)}is) {
14 | my $lyrics = $1;
15 | $lyrics =~ s{}{\n}gi;
16 | return $lyrics;
17 | }
18 |
19 | return;
20 | }
21 | }
22 |
--------------------------------------------------------------------------------
/plugins/999-letras.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## letras.com support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'letras.com',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{(.*?) }si) {
14 | my $lyrics = $1;
15 | $lyrics =~ s/<\s*\/\s*p>/\n\n/g;
16 | $lyrics =~ s//\n/g;
17 | $lyrics =~ s{<.*?>}{}sg;
18 | return $lyrics;
19 | }
20 |
21 | return;
22 | }
23 | }
24 |
--------------------------------------------------------------------------------
/plugins/999-letssingit.pl:
--------------------------------------------------------------------------------
1 | #
2 | ## artists.letssingit.com support
3 | #
4 |
5 | use strict;
6 | use warnings;
7 |
8 | scalar {
9 | site => 'artists.letssingit.com',
10 | code => sub {
11 | my ($content) = @_;
12 |
13 | if ($content =~ m{\bid=lyrics\b.*?">(.*?)}is) {
14 | my $lyrics = $1;
15 | $lyrics =~ s{<.*?>}{}sg;
16 | return $lyrics;
17 | }
18 |
19 | return;
20 | }
21 | }
22 |
--------------------------------------------------------------------------------