🐪 GenerellParser_axaDE.pl (Perl) 4.3 KB 2016-03-28
Perl module for GenerellParser axaDE
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
#
# Author: Sebastian Enger, M.Sc.
# Date: 3/27/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Parse content of current "Versicherungswebsite" for OneTIPP Demo Framework
# Version: 0.0.4
#
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);
use Encode qw/from_to/;
use Encode::Encoder qw(encoder);
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $SourceFolder = '/home/Framework/DemoParser/rawdata/www.axa.de';
my $log_path = "/home/Framework/DemoParser/log";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
my $logfile = "$log_path/$scriptname.txt";
unlink $logfile;
my @array = ();
find(\&SourceStructure, $SourceFolder);
my %hash = map { $_ => 1 } @array;
my @unique = keys(%hash);
open(L,">$logfile");
... [truncated, 99 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "GenerellParser_axaDE.pl",
"description": "Perl module for GenerellParser axaDE",
"dateModified": "2016-03-28",
"dateCreated": "2025-03-23",
"contentSize": "4.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/GenerellParser_axaDE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/"
}
🐪 GenerellParser_check24DE.pl (Perl) 4.2 KB 2016-03-28
Perl module for GenerellParser check24DE
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
#
# Author: Sebastian Enger, M.Sc.
# Date: 3/27/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Parse content of current "Versicherungswebsite" for OneTIPP Demo Framework
# Version: 0.0.4
#
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);
use Encode qw/from_to/;
use Encode::Encoder qw(encoder);
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $SourceFolder = '/home/Framework/DemoParser/rawdata/www.check24.de';
my $log_path = "/home/Framework/DemoParser/log";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
my $logfile = "$log_path/$scriptname.txt";
unlink $logfile;
my @array = ();
find(\&SourceStructure, $SourceFolder);
my %hash = map { $_ => 1 } @array;
my @unique = keys(%hash);
open(L,">$logfile");
... [truncated, 94 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "GenerellParser_check24DE.pl",
"description": "Perl module for GenerellParser check24DE",
"dateModified": "2016-03-28",
"dateCreated": "2025-03-23",
"contentSize": "4.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/GenerellParser_check24DE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/"
}
🐪 GenerellParser_devkDE.pl (Perl) 4.2 KB 2016-03-28
Perl module for GenerellParser devkDE
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
#
# Author: Sebastian Enger, M.Sc.
# Date: 3/27/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Parse content of current "Versicherungswebsite" for OneTIPP Demo Framework
# Version: 0.0.4
#
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);
use Encode qw/from_to/;
use Encode::Encoder qw(encoder);
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $SourceFolder = '/home/Framework/DemoParser/rawdata/www.devk.de';
my $log_path = "/home/Framework/DemoParser/log";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
my $logfile = "$log_path/$scriptname.txt";
unlink $logfile;
my @array = ();
find(\&SourceStructure, $SourceFolder);
my %hash = map { $_ => 1 } @array;
my @unique = keys(%hash);
open(L,">$logfile");
... [truncated, 94 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "GenerellParser_devkDE.pl",
"description": "Perl module for GenerellParser devkDE",
"dateModified": "2016-03-28",
"dateCreated": "2025-03-23",
"contentSize": "4.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/GenerellParser_devkDE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/"
}
🐪 GenerellParser_ergoDE.pl (Perl) 4.2 KB 2016-03-28
Perl module for GenerellParser ergoDE
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
#
# Author: Sebastian Enger, M.Sc.
# Date: 3/27/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Parse content of current "Versicherungswebsite" for OneTIPP Demo Framework
# Version: 0.0.4
#
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);
use Encode qw/from_to/;
use Encode::Encoder qw(encoder);
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $SourceFolder = '/home/Framework/DemoParser/rawdata/www.ergo.de';
my $log_path = "/home/Framework/DemoParser/log";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
my $logfile = "$log_path/$scriptname.txt";
unlink $logfile;
my @array = ();
find(\&SourceStructure, $SourceFolder);
my %hash = map { $_ => 1 } @array;
my @unique = keys(%hash);
open(L,">$logfile");
... [truncated, 94 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "GenerellParser_ergoDE.pl",
"description": "Perl module for GenerellParser ergoDE",
"dateModified": "2016-03-28",
"dateCreated": "2025-03-23",
"contentSize": "4.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/GenerellParser_ergoDE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/"
}
🐪 GenerellParser_feuersozitaetDE.pl (Perl) 4.2 KB 2016-03-28
Perl module for GenerellParser feuersozitaetDE
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
#
# Author: Sebastian Enger, M.Sc.
# Date: 3/27/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Parse content of current "Versicherungswebsite" for OneTIPP Demo Framework
# Version: 0.0.4
#
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);
use Encode qw/from_to/;
use Encode::Encoder qw(encoder);
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $SourceFolder = '/home/Framework/DemoParser/rawdata/www.feuersozietaet.de';
my $log_path = "/home/Framework/DemoParser/log";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
my $logfile = "$log_path/$scriptname.txt";
unlink $logfile;
my @array = ();
find(\&SourceStructure, $SourceFolder);
my %hash = map { $_ => 1 } @array;
my @unique = keys(%hash);
open(L,">$logfile");
... [truncated, 94 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "GenerellParser_feuersozitaetDE.pl",
"description": "Perl module for GenerellParser feuersozitaetDE",
"dateModified": "2016-03-28",
"dateCreated": "2025-03-23",
"contentSize": "4.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/GenerellParser_feuersozitaetDE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/"
}
🐪 GenerellParser_geldDE.pl (Perl) 4.2 KB 2016-03-28
Perl module for GenerellParser geldDE
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
#
# Author: Sebastian Enger, M.Sc.
# Date: 3/27/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Parse content of current "Versicherungswebsite" for OneTIPP Demo Framework
# Version: 0.0.4
#
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);
use Encode qw/from_to/;
use Encode::Encoder qw(encoder);
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $SourceFolder = '/home/Framework/DemoParser/rawdata/www.geld.de';
my $log_path = "/home/Framework/DemoParser/log";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
my $logfile = "$log_path/$scriptname.txt";
unlink $logfile;
my @array = ();
find(\&SourceStructure, $SourceFolder);
my %hash = map { $_ => 1 } @array;
my @unique = keys(%hash);
open(L,">$logfile");
... [truncated, 94 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "GenerellParser_geldDE.pl",
"description": "Perl module for GenerellParser geldDE",
"dateModified": "2016-03-28",
"dateCreated": "2025-03-23",
"contentSize": "4.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/GenerellParser_geldDE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/"
}
🐪 GenerellParser_mymoneyDE.pl (Perl) 4.2 KB 2016-03-28
Perl module for GenerellParser mymoneyDE
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
#
# Author: Sebastian Enger, M.Sc.
# Date: 3/27/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Parse content of current "Versicherungswebsite" for OneTIPP Demo Framework
# Version: 0.0.4
#
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);
use Encode qw/from_to/;
use Encode::Encoder qw(encoder);
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $SourceFolder = '/home/Framework/DemoParser/rawdata/www.mymoney.de';
my $log_path = "/home/Framework/DemoParser/log";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
my $logfile = "$log_path/$scriptname.txt";
unlink $logfile;
my @array = ();
find(\&SourceStructure, $SourceFolder);
my %hash = map { $_ => 1 } @array;
my @unique = keys(%hash);
open(L,">$logfile");
... [truncated, 94 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "GenerellParser_mymoneyDE.pl",
"description": "Perl module for GenerellParser mymoneyDE",
"dateModified": "2016-03-28",
"dateCreated": "2025-03-23",
"contentSize": "4.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/GenerellParser_mymoneyDE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/"
}
🐪 GenerellParser_verivoxDE.pl (Perl) 4.2 KB 2016-03-28
Perl module for GenerellParser verivoxDE
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
#
# Author: Sebastian Enger, M.Sc.
# Date: 3/27/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Parse content of current "Versicherungswebsite" for OneTIPP Demo Framework
# Version: 0.0.4
#
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);
use Encode qw/from_to/;
use Encode::Encoder qw(encoder);
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $SourceFolder = '/home/Framework/DemoParser/rawdata/www.verivox.de';
my $log_path = "/home/Framework/DemoParser/log";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
my $logfile = "$log_path/$scriptname.txt";
unlink $logfile;
my @array = ();
find(\&SourceStructure, $SourceFolder);
my %hash = map { $_ => 1 } @array;
my @unique = keys(%hash);
open(L,">$logfile");
... [truncated, 94 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "GenerellParser_verivoxDE.pl",
"description": "Perl module for GenerellParser verivoxDE",
"dateModified": "2016-03-28",
"dateCreated": "2025-03-23",
"contentSize": "4.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/GenerellParser_verivoxDE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/"
}
🐪 GenerellParser_versicherungenDE.pl (Perl) 4.2 KB 2016-03-28
Perl module for GenerellParser versicherungenDE
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
#
# Author: Sebastian Enger, M.Sc.
# Date: 3/27/2016
# Website: www.OneTIPP.com
# Email: Sebastian.Enger@gmail.com
# Topic: Parse content of current "Versicherungswebsite" for OneTIPP Demo Framework
# Version: 0.0.4
#
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);
use Encode qw/from_to/;
use Encode::Encoder qw(encoder);
my $scriptname = basename($0);
my $count = 0;
my $pass = new String::Random;
my $SourceFolder = '/home/Framework/DemoParser/rawdata/www.versicherungen.de';
my $log_path = "/home/Framework/DemoParser/log";
my $string1;
my $catg;
my $title;
my $string;
my $rcount = 0;
my $Hash;
my $dbh;
my %Hash = ();
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
my $logfile = "$log_path/$scriptname.txt";
unlink $logfile;
my @array = ();
find(\&SourceStructure, $SourceFolder);
my %hash = map { $_ => 1 } @array;
my @unique = keys(%hash);
open(L,">$logfile");
... [truncated, 94 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "GenerellParser_versicherungenDE.pl",
"description": "Perl module for GenerellParser versicherungenDE",
"dateModified": "2016-03-28",
"dateCreated": "2025-03-23",
"contentSize": "4.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/GenerellParser_versicherungenDE.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/onetipp/Framework/DemoParser/parser/"
}