🐪 Strip.pm (Perl) 5.9 KB 2014-01-04
Perl module for Strip
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | package HTML::Strip;
use 5.006;
#use warnings;
use strict;
use Carp qw( carp croak );
require Exporter;
require DynaLoader;
our @ISA = qw(Exporter DynaLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# This allows declaration use HTML::Strip ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();
our $VERSION = '1.06';
bootstrap HTML::Strip $VERSION;
# Preloaded methods go here.
my $_html_entities_p = eval 'require HTML::Entities';
my %defaults = (
striptags => [qw( title
style
script
applet )],
emit_spaces => 1,
decode_entities => 1,
);
sub new {
my $class = shift;
my $obj = create();
bless $obj, $class;
my %args = (%defaults, @_);
... [truncated, 193 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "Strip.pm",
"description": "Perl module for Strip",
"dateModified": "2014-01-04",
"dateCreated": "2025-03-23",
"contentSize": "5.9 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/Strip.pm",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 absolutelyrics.pl (Perl) 9.0 KB 2013-12-07
Perl module for absolutelyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.absolutelyrics.com/l/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 266 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "absolutelyrics.pl",
"description": "Perl module for absolutelyrics",
"dateModified": "2013-12-07",
"dateCreated": "2025-03-23",
"contentSize": "9.0 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/absolutelyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 alllyrics.pl (Perl) 9.4 KB 2013-12-13
Perl module for alllyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/neuigkeiten/www.allyrics.net/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 273 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "alllyrics.pl",
"description": "Perl module for alllyrics",
"dateModified": "2013-12-13",
"dateCreated": "2025-03-23",
"contentSize": "9.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/alllyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 alloflyrics.pl (Perl) 13.4 KB 2014-06-04
Perl module for alloflyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags); # perl -MCPAN -e 'force install "HTML::StripTags"'
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/may2014/www.alloflyrics.com/lyrics';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 382 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "alloflyrics.pl",
"description": "Perl module for alloflyrics",
"dateModified": "2014-06-04",
"dateCreated": "2025-03-23",
"contentSize": "13.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/alloflyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 azlyrics.pl (Perl) 10.9 KB 2014-01-04
Perl module for azlyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/www.azlyricdb.com/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 321 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "azlyrics.pl",
"description": "Perl module for azlyrics",
"dateModified": "2014-01-04",
"dateCreated": "2025-03-23",
"contentSize": "10.9 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/azlyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 count.pl (Perl) 1.7 KB 2013-12-04
Perl module for count
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
#eval {
find(\&SourceStructure, $SourceFolder);
#};
print "I found $count entries\n";
#$dbh->disconnect();
exit;
sub SourceStructure(){
... [truncated, 15 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "count.pl",
"description": "Perl module for count",
"dateModified": "2013-12-04",
"dateCreated": "2025-03-23",
"contentSize": "1.7 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/count.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 countFiles.pl (Perl) 377 bytes 2014-01-16
Perl module for countFiles
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 | #!/usr/bin/perl
use strict;
use warnings;
use Cwd;
use File::Find;
#my $dir = getcwd; # Get the current working directory
my $dir = '/home/songtexts/neuigkeiten/www.lyricsty.com/lyrics/';
my $counter = 0;
find(\&wanted, $dir);
print "Found $counter files at and below $dir\n";
sub wanted {
if ( $_ =~ /\.html/ig ) {
$counter++; # Only count files
}
}
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "countFiles.pl",
"description": "Perl module for countFiles",
"dateModified": "2014-01-16",
"dateCreated": "2025-03-23",
"contentSize": "377 bytes",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/countFiles.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 countrytabs.pl (Perl) 12.8 KB 2014-01-24
Perl module for countrytabs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/214/www.allcountrytabs.com/tabs/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 377 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "countrytabs.pl",
"description": "Perl module for countrytabs",
"dateModified": "2014-01-24",
"dateCreated": "2025-03-23",
"contentSize": "12.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/countrytabs.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 cowboy.pl (Perl) 12.6 KB 2014-01-18
Perl module for cowboy
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/012014/www.cowboylyrics.com/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 376 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "cowboy.pl",
"description": "Perl module for cowboy",
"dateModified": "2014-01-18",
"dateCreated": "2025-03-23",
"contentSize": "12.6 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/cowboy.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 crawler.pl (Perl) 12.8 KB 2014-01-18
Perl module for crawler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/012014/www.lyred.com/lyrics';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 377 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "crawler.pl",
"description": "Perl module for crawler",
"dateModified": "2014-01-18",
"dateCreated": "2025-03-23",
"contentSize": "12.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/crawler.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 dance.pl (Perl) 13.0 KB 2014-01-24
Perl module for dance
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/214/www.dance-lyrics.com/songs/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 379 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "dance.pl",
"description": "Perl module for dance",
"dateModified": "2014-01-24",
"dateCreated": "2025-03-23",
"contentSize": "13.0 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/dance.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 darklyrics.pl (Perl) 10.3 KB 2013-12-28
Perl module for darklyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/www.darklyrics.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 304 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "darklyrics.pl",
"description": "Perl module for darklyrics",
"dateModified": "2013-12-28",
"dateCreated": "2025-03-23",
"contentSize": "10.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/darklyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 deineseite.pl (Perl) 13.2 KB 2014-03-07
Perl module for deineseite
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/4/www.deine-seite.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 381 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "deineseite.pl",
"description": "Perl module for deineseite",
"dateModified": "2014-03-07",
"dateCreated": "2025-03-23",
"contentSize": "13.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/deineseite.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 deleteunwanted.pl (Perl) 2.0 KB 2014-01-02
Perl module for deleteunwanted
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 0;
my $SourceFolder = '/home/songtexts/neuigkeiten/www.songteksten.nl/songteksten/';
# prepare files from SourceFolder
#eval {
find(\&SourceStructure, $SourceFolder);
#};
print "I found $count entries\n";
#$dbh->disconnect();
exit;
sub SourceStructure(){
# $_ is set to the current file name
# $File::Find::dir is set to the current directory
# $File::Find::name is set to "$File::Find::dir/$_"
# you are chdir()'d to $File::Find::dir
... [truncated, 14 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "deleteunwanted.pl",
"description": "Perl module for deleteunwanted",
"dateModified": "2014-01-02",
"dateCreated": "2025-03-23",
"contentSize": "2.0 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/deleteunwanted.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 directlyrics.pl (Perl) 9.3 KB 2013-12-14
Perl module for directlyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/neuigkeiten/www.directlyrics.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 277 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "directlyrics.pl",
"description": "Perl module for directlyrics",
"dateModified": "2013-12-14",
"dateCreated": "2025-03-23",
"contentSize": "9.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/directlyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 elyrics.pl (Perl) 10.9 KB 2014-01-04
Perl module for elyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/www.elyrics.net/read/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 321 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "elyrics.pl",
"description": "Perl module for elyrics",
"dateModified": "2014-01-04",
"dateCreated": "2025-03-23",
"contentSize": "10.9 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/elyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 esonglyrics.pl (Perl) 9.2 KB 2013-12-11
Perl module for esonglyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.esonglyrics.net/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 268 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "esonglyrics.pl",
"description": "Perl module for esonglyrics",
"dateModified": "2013-12-11",
"dateCreated": "2025-03-23",
"contentSize": "9.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/esonglyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 freiwild.pl (Perl) 12.5 KB 2014-01-18
Perl module for freiwild
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/songs.frei-wild.net/song/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 371 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "freiwild.pl",
"description": "Perl module for freiwild",
"dateModified": "2014-01-18",
"dateCreated": "2025-03-23",
"contentSize": "12.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/freiwild.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 golyr_de.pl (Perl) 13.4 KB 2014-03-30
Perl module for golyr de
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/new/www.golyr.de/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 382 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "golyr_de.pl",
"description": "Perl module for golyr de",
"dateModified": "2014-03-30",
"dateCreated": "2025-03-23",
"contentSize": "13.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/golyr_de.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 golyr_fr.pl (Perl) 13.3 KB 2014-03-29
Perl module for golyr fr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/new/www.golyr.fr/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 382 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "golyr_fr.pl",
"description": "Perl module for golyr fr",
"dateModified": "2014-03-29",
"dateCreated": "2025-03-23",
"contentSize": "13.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/golyr_fr.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 golyrics.pl (Perl) 9.2 KB 2013-12-07
Perl module for golyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.golyr.de/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 271 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "golyrics.pl",
"description": "Perl module for golyrics",
"dateModified": "2013-12-07",
"dateCreated": "2025-03-23",
"contentSize": "9.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/golyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 hitslyrics.pl (Perl) 12.8 KB 2014-01-24
Perl module for hitslyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/214/www.hitslyrics.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 377 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "hitslyrics.pl",
"description": "Perl module for hitslyrics",
"dateModified": "2014-01-24",
"dateCreated": "2025-03-23",
"contentSize": "12.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/hitslyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 jazzlyrics.pl (Perl) 12.9 KB 2014-01-24
Perl module for jazzlyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/214/www.jazzblueslyrics.com/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 377 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "jazzlyrics.pl",
"description": "Perl module for jazzlyrics",
"dateModified": "2014-01-24",
"dateCreated": "2025-03-23",
"contentSize": "12.9 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/jazzlyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 kissthisguy.pl (Perl) 9.3 KB 2013-12-07
Perl module for kissthisguy
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.magistrix.de/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 273 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "kissthisguy.pl",
"description": "Perl module for kissthisguy",
"dateModified": "2013-12-07",
"dateCreated": "2025-03-23",
"contentSize": "9.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/kissthisguy.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 kostenlos.pl (Perl) 13.5 KB 2014-06-05
Perl module for kostenlos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags); # perl -MCPAN -e 'force install "HTML::StripTags"'
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/may2014/www.songtexte-kostenlos.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 384 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "kostenlos.pl",
"description": "Perl module for kostenlos",
"dateModified": "2014-06-05",
"dateCreated": "2025-03-23",
"contentSize": "13.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/kostenlos.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 leos.pl (Perl) 13.5 KB 2014-03-07
Perl module for leos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/4/www.leoslyrics.com/-til-i-can-make-it-on-my-own/-til-i-can-make-it-on-my-own-lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 387 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "leos.pl",
"description": "Perl module for leos",
"dateModified": "2014-03-07",
"dateCreated": "2025-03-23",
"contentSize": "13.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/leos.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 letitsing.pl (Perl) 12.3 KB 2014-01-05
Perl module for letitsing
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/artists.letssingit.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 366 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "letitsing.pl",
"description": "Perl module for letitsing",
"dateModified": "2014-01-05",
"dateCreated": "2025-03-23",
"contentSize": "12.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/letitsing.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 liedtexte.pl (Perl) 13.3 KB 2014-03-07
Perl module for liedtexte
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/4/www.liedtexte.eu/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 381 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "liedtexte.pl",
"description": "Perl module for liedtexte",
"dateModified": "2014-03-07",
"dateCreated": "2025-03-23",
"contentSize": "13.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/liedtexte.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 ls.pl (Perl) 814 bytes 2013-12-06
Perl module for ls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 | #!/usr/bin/perl
# See http://search.cpan.org/~rclamp/File-Find-Rule-0.32/README
use File::Find::Rule; # perl -MCPAN -e 'force install "File::Find::Rule"'
# If a base directory was not past to the script, assume current working director
my $base_dir = shift // '.';
my $find_rule = File::Find::Rule->new;
# Do not descend past the first level
$find_rule->maxdepth(1);
# Only return directories
$find_rule->directory;
# Apply the rule and retrieve the subdirectories
my @sub_dirs = $find_rule->in($base_dir);
# Print out the name of each directory on its own line
foreach my $dir (@sub_dirs){
next if ($dir eq "/home/songtexts");
my @array = split("\/", $dir);
my $filename = $array[$#array];
print "dir: $dir --> filename: $filename\n";
system("ls -lh $dir > $filename.txt");
}
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "ls.pl",
"description": "Perl module for ls",
"dateModified": "2013-12-06",
"dateCreated": "2025-03-23",
"contentSize": "814 bytes",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/ls.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyrics-songtext.pl (Perl) 13.8 KB 2014-06-05
Perl module for lyrics songtext
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags); # perl -MCPAN -e 'force install "HTML::StripTags"'
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/may2014/www.lyrics-songtexte.com';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 395 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyrics-songtext.pl",
"description": "Perl module for lyrics songtext",
"dateModified": "2014-06-05",
"dateCreated": "2025-03-23",
"contentSize": "13.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyrics-songtext.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyrics.net.pl (Perl) 13.3 KB 2014-02-15
Perl module for lyrics.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/1/www.lyrics.net/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 386 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyrics.net.pl",
"description": "Perl module for lyrics.net",
"dateModified": "2014-02-15",
"dateCreated": "2025-03-23",
"contentSize": "13.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyrics.net.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyrics007.pl (Perl) 9.4 KB 2013-12-21
Perl module for lyrics007
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/neuigkeiten/www.lyrics007.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 277 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyrics007.pl",
"description": "Perl module for lyrics007",
"dateModified": "2013-12-21",
"dateCreated": "2025-03-23",
"contentSize": "9.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyrics007.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyrics_de.pl (Perl) 13.3 KB 2014-04-02
Perl module for lyrics de
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/new/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 382 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyrics_de.pl",
"description": "Perl module for lyrics de",
"dateModified": "2014-04-02",
"dateCreated": "2025-03-23",
"contentSize": "13.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyrics_de.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricsbox.com.pl (Perl) 13.3 KB 2014-02-18
Perl module for lyricsbox.com
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricsbox.com.pl",
"description": "Perl module for lyricsbox.com",
"dateModified": "2014-02-18",
"dateCreated": "2025-03-23",
"contentSize": "13.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricsbox.com.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricsdown.pl (Perl) 9.2 KB 2013-12-11
Perl module for lyricsdown
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.lyricsdown.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 266 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricsdown.pl",
"description": "Perl module for lyricsdown",
"dateModified": "2013-12-11",
"dateCreated": "2025-03-23",
"contentSize": "9.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricsdown.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricsfreak.pl (Perl) 8.1 KB 2013-12-05
Perl module for lyricsfreak
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.lyricsfreak.com';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 232 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricsfreak.pl",
"description": "Perl module for lyricsfreak",
"dateModified": "2013-12-05",
"dateCreated": "2025-03-23",
"contentSize": "8.1 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricsfreak.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricskid.pl (Perl) 9.4 KB 2013-12-29
Perl module for lyricskid
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/neuigkeiten/www.lyricskid.us/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 278 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricskid.pl",
"description": "Perl module for lyricskid",
"dateModified": "2013-12-29",
"dateCreated": "2025-03-23",
"contentSize": "9.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricskid.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricsmode.pl (Perl) 7.6 KB 2013-12-04
Perl module for lyricsmode
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.lyricsmode.com/lyrics';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
my $req_lenght = 100; # 1500
my $sd = $SourceFolder =~ /(\w+)\.(com|net|org|eu|de|\.co\.nz|biz|to|tv|ws|in|me)$/ig;
... [truncated, 212 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricsmode.pl",
"description": "Perl module for lyricsmode",
"dateModified": "2013-12-04",
"dateCreated": "2025-03-23",
"contentSize": "7.6 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricsmode.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricsondeman.pl (Perl) 9.3 KB 2013-12-13
Perl module for lyricsondeman
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/neuigkeiten/www.lyricsondemand.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 270 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricsondeman.pl",
"description": "Perl module for lyricsondeman",
"dateModified": "2013-12-13",
"dateCreated": "2025-03-23",
"contentSize": "9.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricsondeman.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricsplanet.pl (Perl) 9.4 KB 2013-12-07
Perl module for lyricsplanet
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
system("cls");system("clear");
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.lyricsplanet.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 277 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricsplanet.pl",
"description": "Perl module for lyricsplanet",
"dateModified": "2013-12-07",
"dateCreated": "2025-03-23",
"contentSize": "9.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricsplanet.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricsplayground.pl (Perl) 12.3 KB 2014-01-05
Perl module for lyricsplayground
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/lyricsplayground.com/alpha/songs/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 368 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricsplayground.pl",
"description": "Perl module for lyricsplayground",
"dateModified": "2014-01-05",
"dateCreated": "2025-03-23",
"contentSize": "12.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricsplayground.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricspond.com.pl (Perl) 13.2 KB 2014-02-17
Perl module for lyricspond.com
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricspond.com.pl",
"description": "Perl module for lyricspond.com",
"dateModified": "2014-02-17",
"dateCreated": "2025-03-23",
"contentSize": "13.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricspond.com.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricsreg.pl (Perl) 9.4 KB 2013-12-08
Perl module for lyricsreg
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.lyricsreg.com/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 273 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricsreg.pl",
"description": "Perl module for lyricsreg",
"dateModified": "2013-12-08",
"dateCreated": "2025-03-23",
"contentSize": "9.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricsreg.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyricsts.pl (Perl) 12.5 KB 2014-01-16
Perl module for lyricsts
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/www.lyricsty.com/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 369 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyricsts.pl",
"description": "Perl module for lyricsts",
"dateModified": "2014-01-16",
"dateCreated": "2025-03-23",
"contentSize": "12.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyricsts.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyrid.pl (Perl) 12.9 KB 2014-01-18
Perl module for lyrid
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/012014/www.popular-lyrics.com/lyrics';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 379 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyrid.pl",
"description": "Perl module for lyrid",
"dateModified": "2014-01-18",
"dateCreated": "2025-03-23",
"contentSize": "12.9 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyrid.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyriks.de.pl (Perl) 8.9 KB 2013-12-06
Perl module for lyriks.de
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.lyriks.de/songtext/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 262 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyriks.de.pl",
"description": "Perl module for lyriks.de",
"dateModified": "2013-12-06",
"dateCreated": "2025-03-23",
"contentSize": "8.9 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyriks.de.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 lyrixat.pl (Perl) 9.4 KB 2013-12-13
Perl module for lyrixat
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/neuigkeiten/www.lyrix.at/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 271 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "lyrixat.pl",
"description": "Perl module for lyrixat",
"dateModified": "2013-12-13",
"dateCreated": "2025-03-23",
"contentSize": "9.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/lyrixat.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 magistix.pl (Perl) 9.3 KB 2013-12-07
Perl module for magistix
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.magistrix.de/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 273 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "magistix.pl",
"description": "Perl module for magistix",
"dateModified": "2013-12-07",
"dateCreated": "2025-03-23",
"contentSize": "9.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/magistix.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 metrolyrics.pl (Perl) 9.5 KB 2013-12-14
Perl module for metrolyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/neuigkeiten/www.metrolyrics.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 277 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "metrolyrics.pl",
"description": "Perl module for metrolyrics",
"dateModified": "2013-12-14",
"dateCreated": "2025-03-23",
"contentSize": "9.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/metrolyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 mldb.pl (Perl) 12.5 KB 2014-01-09
Perl module for mldb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/www.mldb.org/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 369 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "mldb.pl",
"description": "Perl module for mldb",
"dateModified": "2014-01-09",
"dateCreated": "2025-03-23",
"contentSize": "12.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/mldb.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 mp3lyrics.pl (Perl) 11.4 KB 2014-01-05
Perl module for mp3lyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/www.mp3lyrics.org/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 340 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "mp3lyrics.pl",
"description": "Perl module for mp3lyrics",
"dateModified": "2014-01-05",
"dateCreated": "2025-03-23",
"contentSize": "11.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/mp3lyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 musiksonglyrics.pl (Perl) 12.4 KB 2014-01-09
Perl module for musiksonglyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/www.musicsonglyrics.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 369 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "musiksonglyrics.pl",
"description": "Perl module for musiksonglyrics",
"dateModified": "2014-01-09",
"dateCreated": "2025-03-23",
"contentSize": "12.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/musiksonglyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 musiksongtext.pl (Perl) 12.4 KB 2014-01-07
Perl module for musiksongtext
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/www.musiksongtext.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 368 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "musiksongtext.pl",
"description": "Perl module for musiksongtext",
"dateModified": "2014-01-07",
"dateCreated": "2025-03-23",
"contentSize": "12.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/musiksongtext.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 oohloa.pl (Perl) 11.3 KB 2014-01-04
Perl module for oohloa
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/ohhla.com/anonymous/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 336 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "oohloa.pl",
"description": "Perl module for oohloa",
"dateModified": "2014-01-04",
"dateCreated": "2025-03-23",
"contentSize": "11.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/oohloa.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 popular.pl (Perl) 12.8 KB 2014-01-18
Perl module for popular
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/012014/www.popular-lyrics.com/lyrics';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 377 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "popular.pl",
"description": "Perl module for popular",
"dateModified": "2014-01-18",
"dateCreated": "2025-03-23",
"contentSize": "12.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/popular.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
📄 rm list to long.txt (Text) 41 bytes 2014-01-11
Source code file for rm list to long
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "rm list to long.txt",
"description": "Source code file for rm list to long",
"dateModified": "2014-01-11",
"dateCreated": "2025-03-23",
"contentSize": "41 bytes",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/rm list to long.txt",
"encodingFormat": "text/plain",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Text"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 rockmagic.pl (Perl) 13.3 KB 2014-02-16
Perl module for rockmagic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/2/lyrics.rockmagic.net/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 387 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "rockmagic.pl",
"description": "Perl module for rockmagic",
"dateModified": "2014-02-16",
"dateCreated": "2025-03-23",
"contentSize": "13.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/rockmagic.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 scoutsongs.com.pl (Perl) 13.3 KB 2014-02-16
Perl module for scoutsongs.com
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "scoutsongs.com.pl",
"description": "Perl module for scoutsongs.com",
"dateModified": "2014-02-16",
"dateCreated": "2025-03-23",
"contentSize": "13.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/scoutsongs.com.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 sitevip.pl (Perl) 13.0 KB 2014-02-06
Perl module for sitevip
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/www.sitevip.net/lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 381 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "sitevip.pl",
"description": "Perl module for sitevip",
"dateModified": "2014-02-06",
"dateCreated": "2025-03-23",
"contentSize": "13.0 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/sitevip.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 song365.pl (Perl) 9.3 KB 2013-12-09
Perl module for song365
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.sing365.com/music/lyric.nsf/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 270 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "song365.pl",
"description": "Perl module for song365",
"dateModified": "2013-12-09",
"dateCreated": "2025-03-23",
"contentSize": "9.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/song365.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 songfacts.pl (Perl) 12.7 KB 2014-01-18
Perl module for songfacts
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/012014/lyrics.songfacts.com';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 377 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "songfacts.pl",
"description": "Perl module for songfacts",
"dateModified": "2014-01-18",
"dateCreated": "2025-03-23",
"contentSize": "12.7 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/songfacts.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 songlyrics.pl (Perl) 8.1 KB 2013-12-05
Perl module for songlyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/www.songlyrics.com';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 231 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "songlyrics.pl",
"description": "Perl module for songlyrics",
"dateModified": "2013-12-05",
"dateCreated": "2025-03-23",
"contentSize": "8.1 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/songlyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 songmeanings.pl (Perl) 9.4 KB 2013-12-08
Perl module for songmeanings
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/songmeanings.com/songs/view/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 274 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "songmeanings.pl",
"description": "Perl module for songmeanings",
"dateModified": "2013-12-08",
"dateCreated": "2025-03-23",
"contentSize": "9.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/songmeanings.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 songteksten.pl (Perl) 10.6 KB 2014-01-01
Perl module for songteksten
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/neuigkeiten/www.songteksten.nl/songteksten/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 308 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "songteksten.pl",
"description": "Perl module for songteksten",
"dateModified": "2014-01-01",
"dateCreated": "2025-03-23",
"contentSize": "10.6 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/songteksten.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 songteksten.tv.pl (Perl) 13.3 KB 2014-03-09
Perl module for songteksten.tv
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/4/www.songteksten.tv/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 382 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "songteksten.tv.pl",
"description": "Perl module for songteksten.tv",
"dateModified": "2014-03-09",
"dateCreated": "2025-03-23",
"contentSize": "13.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/songteksten.tv.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 songtext.bz.pl (Perl) 12.9 KB 2014-01-20
Perl module for songtext.bz
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/214/www.songtexte.bz/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 378 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "songtext.bz.pl",
"description": "Perl module for songtext.bz",
"dateModified": "2014-01-20",
"dateCreated": "2025-03-23",
"contentSize": "12.9 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/songtext.bz.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 songtext4free.pl (Perl) 12.8 KB 2014-01-18
Perl module for songtext4free
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/012014/www.songtext4free.de/kostenlose-songtexte.php/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 377 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "songtext4free.pl",
"description": "Perl module for songtext4free",
"dateModified": "2014-01-18",
"dateCreated": "2025-03-23",
"contentSize": "12.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/songtext4free.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 songtexte.pl (Perl) 9.4 KB 2013-12-12
Perl module for songtexte
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/neuigkeiten/www.songtexte.com/songtext/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 270 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "songtexte.pl",
"description": "Perl module for songtexte",
"dateModified": "2013-12-12",
"dateCreated": "2025-03-23",
"contentSize": "9.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/songtexte.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 songtextlyrics.pl (Perl) 12.9 KB 2014-01-22
Perl module for songtextlyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/214/www.soundtracklyrics.net/song-lyrics/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 378 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "songtextlyrics.pl",
"description": "Perl module for songtextlyrics",
"dateModified": "2014-01-22",
"dateCreated": "2025-03-23",
"contentSize": "12.9 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/songtextlyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 stlyrics.pl (Perl) 12.8 KB 2014-01-20
Perl module for stlyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/012014/www.stlyrics.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 377 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "stlyrics.pl",
"description": "Perl module for stlyrics",
"dateModified": "2014-01-20",
"dateCreated": "2025-03-23",
"contentSize": "12.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/stlyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 tar.pl (Perl) 855 bytes 2013-12-04
Perl module for tar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 | #!/usr/bin/perl
# See http://search.cpan.org/~rclamp/File-Find-Rule-0.32/README
use File::Find::Rule; # perl -MCPAN -e 'force install "File::Find::Rule"'
# If a base directory was not past to the script, assume current working director
my $base_dir = shift // '.';
my $find_rule = File::Find::Rule->new;
# Do not descend past the first level
$find_rule->maxdepth(1);
# Only return directories
$find_rule->directory;
# Apply the rule and retrieve the subdirectories
my @sub_dirs = $find_rule->in($base_dir);
# Print out the name of each directory on its own line
foreach my $dir (@sub_dirs){
next if ($dir eq "/home/songtexts");
my @array = split("\/", $dir);
my $filename = $array[$#array];
print "dir: $dir --> filename: $filename\n";
system("tar cfj $filename.tar.bz2 $dir");
system("ls -lh $filename.tar.bz2");
}
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "tar.pl",
"description": "Perl module for tar",
"dateModified": "2013-12-04",
"dateCreated": "2025-03-23",
"contentSize": "855 bytes",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/tar.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 uplyrcis.pl (Perl) 8.1 KB 2013-12-06
Perl module for uplyrcis
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/uplyrics.com';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 232 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "uplyrcis.pl",
"description": "Perl module for uplyrcis",
"dateModified": "2013-12-06",
"dateCreated": "2025-03-23",
"contentSize": "8.1 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/uplyrcis.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 usongtexte.pl (Perl) 9.4 KB 2013-12-12
Perl module for usongtexte
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/neuigkeiten/www.songtexte.com/uebersetzung/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 271 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "usongtexte.pl",
"description": "Perl module for usongtexte",
"dateModified": "2013-12-12",
"dateCreated": "2025-03-23",
"contentSize": "9.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/usongtexte.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 utterlyrics.pl (Perl) 12.4 KB 2014-01-17
Perl module for utterlyrics
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/012014/www.utterlyrics.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 370 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "utterlyrics.pl",
"description": "Perl module for utterlyrics",
"dateModified": "2014-01-17",
"dateCreated": "2025-03-23",
"contentSize": "12.4 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/utterlyrics.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 volkslieder.pl (Perl) 13.3 KB 2014-03-07
Perl module for volkslieder
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
# perl -MCPAN -e 'force install "HTML::StripTags"'
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/4/www.volkslieder.de/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
... [truncated, 381 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "volkslieder.pl",
"description": "Perl module for volkslieder",
"dateModified": "2014-03-07",
"dateCreated": "2025-03-23",
"contentSize": "13.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/volkslieder.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 wiki.pl (Perl) 9.5 KB 2013-12-21
Perl module for wiki
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $count = 1;
my $SourceFolder = '/home/songtexts/neuigkeiten/lyrics.wikia.com/';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my %Hash = ();
... [truncated, 283 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "wiki.pl",
"description": "Perl module for wiki",
"dateModified": "2013-12-21",
"dateCreated": "2025-03-23",
"contentSize": "9.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/wiki.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}
🐪 übersetzung.pl (Perl) 12.9 KB 2014-01-18
Perl module for übersetzung
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
no warnings;
use strict;
use DBI;
use URI; # perl -MCPAN -e 'force install "CPan"'
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags);
use File::Basename;
use Data::Dumper;
use LWP::Simple;
use Text::Unidecode qw(unidecode); # perl -MCPAN -e 'force install "Text::Unidecode"'
use HTML::Entities qw(decode_entities); # perl -MCPAN -e 'force install "HTML::Entities"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
use Email::MIME; # perl -MCPAN -e 'force install "Email::MIME"'
use Email::Sender::Simple qw(sendmail); # perl -MCPAN -e 'force install "Email::Sender::Simple"'
use Encode qw(encode decode);
my $scriptname = basename($0);
my $count = 1;
my $enc = 'utf-8'; # in dieser Kodierung ist das Script gespeichert
my $SourceFolder = '/home/songtexts/012014/www.bluegrasslyrics.com/print/node';
my $CopySrcFolder = '/home/songtexts/logs';
my $logfile = '/home/songtexts/logs/';
$logfile .= $scriptname."_log.txt";
my $allowedTags = "<li></li></ul><ul><ol></ol><strong><b></strong></b><h1><h2><h3><h4><h5></h1></h2></h3></h4></h5><br><br /><br/>";
# my $SourceFolder = 'E:\Working 2013\www.youtube-mp3.mobi\songtexte\www.lyricsmode.com\www.lyricsmode\home\songtexts\www.lyricsmode.com\lyrics';
# my $CopySrcFolder = 'E:\Working 2012\www.nookiestar.com\mirror\crawler';
# my $logfile = 'E:\Working 2012\www.nookiestar.com\mirror\crawler\logfile\\';
# $logfile .= $scriptname."_log.txt";
my $string1;
my $catg;
my $title;
... [truncated, 379 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "\u00fcbersetzung.pl",
"description": "Perl module for \u00fcbersetzung",
"dateModified": "2014-01-18",
"dateCreated": "2025-03-23",
"contentSize": "12.9 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/\u00fcbersetzung.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/lyrics-crawler/tools/"
}