dowsery - 100biere - sourcecode - SOURCE CODE

#!/usr/bin/perl

use strict;
use Data::Dumper;


my $filein 		= $ARGV[0];
my $inhalt;

my $maxEntrys 	= $ARGV[1];

die "perl $0 infile.csv MaxCounts_in_Decimal\n";

open(C,"<$filein") or die;
my @content	= <C>;
my $header = @content[0];
close C;
#print Dumper @content; exit;

my %hash = ();
my $hash = {};

my $result_codes;
my @result_codes = ("AC01","AC02","AC03","AC09","AC10","AC11","AC12","AC13","AC13","AC15","AC16","AC17","AC18","AC19","AC20","AE01","AE02","AE03","AE05","AE08","AE09","AE10","AE11","AE12","AE13","AE14","AE17","AV11","AV12","AV13","AV14","AV15","AV21","AV22","AV23","AV24","AV25");

my %result_codes = (

"NS01" => "NS01",
"NS02" => "NS02",
"NS03" => "NS03",
"NS04" => "NS04",
"NS05" => "NS05",
"NS06" => "NS06",
"NS07" => "NS07",
"NS08" => "NS08",
"NS99" => "NS99",
"NE01" => "NE01",
"NE02" => "NE02",
"NE03" => "NE03",
"NE04" => "NE04",
"NE05" => "NE05",
"NE06" => "NE06",
"NE08" => "NE08"
"NE99" => "NE99",
"AC01" => "AC01",
"AC02" => "AC02",
"AC03" => "AC03",
"AC09" => "AC09",
"AC10" => "AC10",
"AC11" => "AC11",

... [truncated, 98 more lines] ...

#!/usr/bin/perl

use strict;
use Data::Dumper;


my $filein 		= $ARGV[0];
my $inhalt;

my $maxEntrys 	= $ARGV[1];

warn "I DIED: perl $0 infile.csv MaxCounts_in_Decimal\n";

open(C,"<$filein") or die;
my @content	= <C>;
my $header = @content[0];
close C;
#print Dumper @content; exit;

my %hash = ();
my $hash = {};

my $result_codes;
my @result_codes = ("AC01","AC02","AC03","AC09","AC10","AC11","AC12","AC13","AC13","AC15","AC16","AC17","AC18","AC19","AC20","AE01","AE02","AE03","AE05","AE08","AE09","AE10","AE11","AE12","AE13","AE14","AE17","AV11","AV12","AV13","AV14","AV15","AV21","AV22","AV23","AV24","AV25");

my %result_codes = (

"NS01" => "NS01",
"NS02" => "NS02",
"NS03" => "NS03",
"NS04" => "NS04",
"NS05" => "NS05",
"NS06" => "NS06",
"NS07" => "NS07",
"NS08" => "NS08",
"NS99" => "NS99",
"NE01" => "NE01",
"NE02" => "NE02",
"NE03" => "NE03",
"NE04" => "NE04",
"NE05" => "NE05",
"NE06" => "NE06",
"NE08" => "NE08",
"NE99" => "NE99",
"AC01" => "AC01",
"AC02" => "AC02",
"AC03" => "AC03",
"AC09" => "AC09",
"AC10" => "AC10",
"AC11" => "AC11",

... [truncated, 98 more lines] ...

#!/usr/bin/perl

use strict;
#use Data::Dumper;
use DBI;

my $filein 		= $ARGV[0];
my $inhalt;

my $maxEntrys 	= 1; #$ARGV[1]; # how much entries does the orignal CSV file have?

warn "I DIED: perl $0 infile.csv MaxCounts_in_Decimal\n";

open(C,"<$filein") or die;
my @content	= <C>;
my $header = @content[0];
close C;
#print Dumper @content; exit;

my %hash = ();
my $hash = {};

my $platform = "mysql";
my $database = "onetipp";
my $host = "localhost";
my $port = "3306";
my $tablename = "namen_table_final";	# dort wo alle - auch doppelte syn einträge drin stehen
my $user = "root";
my $pw = "rouTer99";

my $result_codes;
my %result_codes1 = (
"NS01" => "NS01",
"NS02" => "NS02",
"NS03" => "NS03",
"NS04" => "NS04",
"NS05" => "NS05",
"NS06" => "NS06",
"NS07" => "NS07",
"NS08" => "NS08",
"NS99" => "NS99",
"NE01" => "NE01",
"NE02" => "NE02",
"NE03" => "NE03",
"NE04" => "NE04",
"NE05" => "NE05",
"NE06" => "NE06",
"NE08" => "NE08",
"NE99" => "NE99",
"AC01" => "AC01",

... [truncated, 140 more lines] ...

#!/usr/bin/perl

use strict;
#use Data::Dumper;


my $filein 		= $ARGV[0];
my $inhalt;

my $maxEntrys 	= $ARGV[1]; # how much entries does the orignal CSV file have?

warn "I DIED: perl $0 infile.csv MaxCounts_in_Decimal\n";

open(C,"<$filein") or die;
my @content	= <C>;
my $header = @content[0];
close C;
#print Dumper @content; exit;

my %hash = ();
my $hash = {};

my $result_codes;
my %result_codes = (

"NS01" => "NS01",
"NS02" => "NS02",
"NS03" => "NS03",
"NS04" => "NS04",
"NS05" => "NS05",
"NS06" => "NS06",
"NS07" => "NS07",
"NS08" => "NS08",
"NS99" => "NS99",
"NE01" => "NE01",
"NE02" => "NE02",
"NE03" => "NE03",
"NE04" => "NE04",
"NE05" => "NE05",
"NE06" => "NE06",
"NE08" => "NE08",
"NE99" => "NE99",
"AC01" => "AC01",
"AC02" => "AC02",
"AC03" => "AC03",
"AC09" => "AC09",
"AC10" => "AC10",
"AC11" => "AC11",
"AC12" => "AC12",
"AC13" => "AC13",

... [truncated, 94 more lines] ...

#!/usr/bin/perl

#sleep 25000;
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 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);

# CONFIG VARIABLES
my $platform = "mysql";
my $database = "onetipp";
my $host = "localhost";
my $port = "3306";
my $tablename = "synonym_table";	# dort wo alle - auch doppelte syn einträge drin stehen
my $user = "root";
my $pw = "rouTer99";
my $first;
my $synonyms;
my $uid;

# DATA SOURCE NAME
my $dsn = "dbi:mysql:$database:localhost:3306";

# PERL DBI CONNECT
my $connect = DBI->connect($dsn, $user, $pw, 
	{
		RaiseError => 0, PrintError => 1, mysql_enable_utf8 => 1
	});

# PREPARE THE QUERY
my $query = "SELECT word,synonyms FROM $tablename;";
my $query_handle = $connect->prepare($query);


... [truncated, 78 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.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] ...

#!/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/compressed/tmp/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, 219 more lines] ...