dowsery - 100biere - sourcecode - namesparser - SOURCE CODE

#!/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);
use Encode qw(encode decode);
use HTML::LinkExtractor; # perl -MCPAN -e 'force install "HTML::LinkExtractor"'
# perl -MCPAN -e 'force install "URI"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'

my $scriptname 		= basename($0);
my $pass 			= new String::Random;
my $LX 				= new HTML::LinkExtractor(undef,undef,1);
my $strip			= HTML::Strip->new();

#my $SourceFolder 	= '/home/sumy/db/synonyme.woxikon.de/synonyme/gut.php';
my $SourceFolder 	= '/home/sumy/name/www.beliebte-vornamen.de/';
my $string;
our $rcount 		= 0;
our $count 			= 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

unlink "text/logfile_$scriptname.txt";
open(L,">text/logfile_$scriptname.txt");
binmode(L, ":$enc");

#eval {

... [truncated, 234 more lines] ...

#!/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);
use Encode qw(encode decode);
use HTML::LinkExtractor; # perl -MCPAN -e 'force install "HTML::LinkExtractor"'
# perl -MCPAN -e 'force install "URI"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'

my $scriptname 		= basename($0);
my $pass 			= new String::Random;
my $LX 				= new HTML::LinkExtractor(undef,undef,1);
my $strip			= HTML::Strip->new();

#my $SourceFolder 	= '/home/sumy/db/synonyme.woxikon.de/synonyme/gut.php';
my $SourceFolder 	= '/home/sumy/name/www.firstname.de/Vorname/';
my $string;
our $rcount 		= 0;
our $count 			= 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

unlink "text/logfile_$scriptname.txt";
open(L,">text/logfile_$scriptname.txt");
binmode(L, ":$enc");

#eval {

... [truncated, 222 more lines] ...

#!/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);
use Encode qw(encode decode);
use HTML::LinkExtractor; # perl -MCPAN -e 'force install "HTML::LinkExtractor"'
# perl -MCPAN -e 'force install "URI"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'

my $scriptname 		= basename($0);
my $pass 			= new String::Random;
my $LX 				= new HTML::LinkExtractor(undef,undef,1);
my $strip			= HTML::Strip->new();

#my $SourceFolder 	= '/home/sumy/db/synonyme.woxikon.de/synonyme/gut.php';
my $SourceFolder 	= '/home/sumy/name/www.namepedia.org';
my $string;
our $rcount 		= 0;
our $count 			= 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

unlink "text/logfile_$scriptname.txt";
open(L,">text/logfile_$scriptname.txt");
binmode(L, ":$enc");

#eval {

... [truncated, 229 more lines] ...

#!/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);
use Encode qw(encode decode);
use HTML::LinkExtractor; # perl -MCPAN -e 'force install "HTML::LinkExtractor"'
# perl -MCPAN -e 'force install "URI"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'

my $scriptname 		= basename($0);
my $pass 			= new String::Random;
my $LX 				= new HTML::LinkExtractor(undef,undef,1);
my $strip			= HTML::Strip->new();

#my $SourceFolder 	= '/home/sumy/db/synonyme.woxikon.de/synonyme/gut.php';
my $SourceFolder 	= '/home/sumy/name/www.onomastik.com/Vornamen-Lexikon/';
my $string;
our $rcount 		= 0;
our $count 			= 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

unlink "text/logfile_$scriptname.txt";
open(L,">text/logfile_$scriptname.txt");
binmode(L, ":$enc");

#eval {

... [truncated, 225 more lines] ...

#!/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);
use Encode qw(encode decode);
use HTML::LinkExtractor; # perl -MCPAN -e 'force install "HTML::LinkExtractor"'
# perl -MCPAN -e 'force install "URI"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'

my $scriptname 		= basename($0);
my $pass 			= new String::Random;
my $LX 				= new HTML::LinkExtractor(undef,undef,1);
my $strip			= HTML::Strip->new();

#my $SourceFolder 	= '/home/sumy/db/synonyme.woxikon.de/synonyme/gut.php';
my $SourceFolder 	= '/home/sumy/name/www.firstname.de/Vorname/';
my $string;
our $rcount 		= 0;
our $count 			= 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

unlink "text/logfile_$scriptname.txt";
open(L,">text/logfile_$scriptname.txt");
binmode(L, ":$enc");

#eval {

... [truncated, 222 more lines] ...

#!/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);
use Encode qw(encode decode);
use HTML::LinkExtractor; # perl -MCPAN -e 'force install "HTML::LinkExtractor"'
# perl -MCPAN -e 'force install "URI"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'

my $scriptname 		= basename($0);
my $pass 			= new String::Random;
my $LX 				= new HTML::LinkExtractor(undef,undef,1);
my $strip			= HTML::Strip->new();

#my $SourceFolder 	= '/home/sumy/db/synonyme.woxikon.de/synonyme/gut.php';
my $SourceFolder 	= '/home/sumy/name/www.vorname.com/';
my $string;
our $rcount 		= 0;
our $count 			= 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

unlink "text/logfile_$scriptname.txt";
open(L,">text/logfile_$scriptname.txt");
binmode(L, ":$enc");

#eval {

... [truncated, 230 more lines] ...