🐪 parser_immobilienscout24.pl (Perl) 6.6 KB 2016-02-07
Perl module for parser immobilienscout24
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 File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex); # perl -MCPAN -e 'force install "Digest::SHA"'
use Encode qw(encode decode);
use HTML::Strip;
use MongoDB; # http://perlmaven.com/getting-started-with-mongodb-using-perl-insert-and-update
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $hs = HTML::Strip->new();
my $client = MongoDB->connect('mongodb://localhost');
my $collection = $client->ns('OneTipp.B2Cv2'); # database foo, collection bar
my $SourceFolder = '/home/onetipp/b2c/374';
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
open(L,">logfile_witze.txt");
# prepare files from SourceFolder
... [truncated, 185 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "parser_immobilienscout24.pl",
"description": "Perl module for parser immobilienscout24",
"dateModified": "2016-02-07",
"dateCreated": "2025-03-23",
"contentSize": "6.6 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/parser_immobilienscout24.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/"
}
🐪 parser_immonetDE.pl (Perl) 7.0 KB 2016-02-07
Perl module for parser immonetDE
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 File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex); # perl -MCPAN -e 'force install "Digest::SHA"'
use Encode qw(encode decode);
use HTML::Strip;
use MongoDB; # http://perlmaven.com/getting-started-with-mongodb-using-perl-insert-and-update
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $hs = HTML::Strip->new();
my $client = MongoDB->connect('mongodb://localhost');
my $collection = $client->ns('OneTipp.B2Cv2'); # database foo, collection bar
my $SourceFolder = '/home/immo/www.immonet.de/angebot';
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
open(L,">logfile_witze.txt");
# prepare files from SourceFolder
... [truncated, 190 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "parser_immonetDE.pl",
"description": "Perl module for parser immonetDE",
"dateModified": "2016-02-07",
"dateCreated": "2025-03-23",
"contentSize": "7.0 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/parser_immonetDE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/"
}
🐪 parser_immonetDE_scan.pl (Perl) 7.0 KB 2016-02-07
Perl module for parser immonetDE scan
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 File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex); # perl -MCPAN -e 'force install "Digest::SHA"'
use Encode qw(encode decode);
use HTML::Strip;
use MongoDB; # http://perlmaven.com/getting-started-with-mongodb-using-perl-insert-and-update
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $hs = HTML::Strip->new();
my $client = MongoDB->connect('mongodb://localhost');
my $collection = $client->ns('OneTipp.B2Cv2'); # database foo, collection bar
my $SourceFolder = '/home/onetipp/b2c/441';
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
open(L,">logfile_witze.txt");
# prepare files from SourceFolder
... [truncated, 190 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "parser_immonetDE_scan.pl",
"description": "Perl module for parser immonetDE scan",
"dateModified": "2016-02-07",
"dateCreated": "2025-03-23",
"contentSize": "7.0 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/parser_immonetDE_scan.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/"
}
🐪 parser_immoweltDE.pl (Perl) 6.8 KB 2016-02-07
Perl module for parser immoweltDE
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 File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex); # perl -MCPAN -e 'force install "Digest::SHA"'
use Encode qw(encode decode);
use HTML::Strip;
use MongoDB; # http://perlmaven.com/getting-started-with-mongodb-using-perl-insert-and-update
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $hs = HTML::Strip->new();
my $client = MongoDB->connect('mongodb://localhost');
my $collection = $client->ns('OneTipp.B2Cv2'); # database foo, collection bar
my $SourceFolder = '/home/onetipp/b2c/442';
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
open(L,">logfile_witze.txt");
# prepare files from SourceFolder
... [truncated, 188 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "parser_immoweltDE.pl",
"description": "Perl module for parser immoweltDE",
"dateModified": "2016-02-07",
"dateCreated": "2025-03-23",
"contentSize": "6.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/parser_immoweltDE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/"
}
🐪 parser_immoweltDE_scan.pl (Perl) 6.8 KB 2016-02-07
Perl module for parser immoweltDE scan
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 File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex); # perl -MCPAN -e 'force install "Digest::SHA"'
use Encode qw(encode decode);
use HTML::Strip;
use MongoDB; # http://perlmaven.com/getting-started-with-mongodb-using-perl-insert-and-update
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $hs = HTML::Strip->new();
my $client = MongoDB->connect('mongodb://localhost');
my $collection = $client->ns('OneTipp.B2Cv2'); # database foo, collection bar
my $SourceFolder = '/home/onetipp/b2c/442';
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
open(L,">logfile_witze.txt");
# prepare files from SourceFolder
... [truncated, 188 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "parser_immoweltDE_scan.pl",
"description": "Perl module for parser immoweltDE scan",
"dateModified": "2016-02-07",
"dateCreated": "2025-03-23",
"contentSize": "6.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/parser_immoweltDE_scan.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/"
}
🐪 parser_ohnemaklerNET.pl (Perl) 6.8 KB 2016-02-07
Perl module for parser ohnemaklerNET
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 File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex); # perl -MCPAN -e 'force install "Digest::SHA"'
use Encode qw(encode decode);
use HTML::Strip;
use MongoDB; # http://perlmaven.com/getting-started-with-mongodb-using-perl-insert-and-update
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $hs = HTML::Strip->new();
my $client = MongoDB->connect('mongodb://localhost');
my $collection = $client->ns('OneTipp.B2Cv2'); # database foo, collection bar
my $SourceFolder = '/home/immo/www.ohne-makler.net/immobilie';
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
open(L,">logfile_witze.txt");
# prepare files from SourceFolder
... [truncated, 188 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "parser_ohnemaklerNET.pl",
"description": "Perl module for parser ohnemaklerNET",
"dateModified": "2016-02-07",
"dateCreated": "2025-03-23",
"contentSize": "6.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/parser_ohnemaklerNET.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/"
}
🐪 parser_ohnemaklerNET_scan.pl (Perl) 6.8 KB 2016-02-07
Perl module for parser ohnemaklerNET scan
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 File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex); # perl -MCPAN -e 'force install "Digest::SHA"'
use Encode qw(encode decode);
use HTML::Strip;
use MongoDB; # http://perlmaven.com/getting-started-with-mongodb-using-perl-insert-and-update
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $hs = HTML::Strip->new();
my $client = MongoDB->connect('mongodb://localhost');
my $collection = $client->ns('OneTipp.B2Cv2'); # database foo, collection bar
my $SourceFolder = '/home/onetipp/b2c/441';
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
open(L,">logfile_witze.txt");
# prepare files from SourceFolder
... [truncated, 188 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "parser_ohnemaklerNET_scan.pl",
"description": "Perl module for parser ohnemaklerNET scan",
"dateModified": "2016-02-07",
"dateCreated": "2025-03-23",
"contentSize": "6.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/parser_ohnemaklerNET_scan.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Server/b2c/parser/"
}