contencleaner - db - SOURCE CODE

#!/usr/bin/perl


open(RH,"<synonym-en.txt");

	while(<RH>){
		
		my $string	= $_;
		
		chomp($string);

		$string		=~ s/^\s+//;
		$strlen		= length $string;

		next if ( $strlen == 0 );
		
		if ( $string !~ /,/g ) {
			$mainword = $string; 
		} else {
			
			$string =~ s/ , /,/ig; $string =~ s/ ,/,/ig; $string =~ s/, /,/ig;
			$string	=~ s/\s+/ /;
			if ( $string !~ /\w+\./ ) {
				print "$mainword,$string\n";
			};

		}; 
		

	# print "[$strlen] $string\n";
	# sleep 1;

	}; # while(<RH>){

close RH;

#!/usr/bin/perl

# derb muss raus
# (vulgr) muss raus
# eintrg mit leerzeichen ohne klammern, dieser einzelne eintrag muss raus
# ; (...) wort; -> eintrag: raus
# taktil;Tast...;tastend : 3 punkte raus
# erstes zeichen klammer: dieser eintrag raus: (Zeit) verflieen;ablaufen;vergehen;verlaufen;vorbeigehen -> ablaufen;vergehen;verlaufen;vorbeigehen

open(RH,"<thesaurus.txt");

	while(<RH>){
		
		my $string	= $_;
		my $rstring;

		chomp;
		$strlen		= length $string;
		next if ( $strlen == 0 );

		
		if ( $string =~ /^\(/ ) {
			$rstring = &ReturnValidString($_, 1);
		} else {
			$rstring = &ReturnValidString($_, 2);
		};

		if ( length $rstring > 0 ) { # && $rstring !~ /\,{2,}/ ) {
		#	print "RETURN: $rstring\n";
			print "$rstring\n";
		};

	#	if ( $string !~ /,/g ) {
	#		$mainword = $string; 
	#	} else {
	#		
	#		$string =~ s/ , /,/ig; $string =~ s/ ,/,/ig; $string =~ s/, /,/ig;
	#		$string	=~ s/\s+/ /;
	#		if ( $string !~ /\w+\./ ) {
	#			print "$mainword,$string\n";
	#		};
	#
	#	}; 
		

	#	sleep 1;

	}; # while(<RH>){

close RH;

... [truncated, 70 more lines] ...