File Coverage

blib/lib/Email/ECGListe.pm

Criterion	Covered	Total	%
statement	16	64	25.0
branch	0	40	0.0
condition	0	9	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	21	120	17.5

package Email::ECGListe;

use warnings;
use strict;
use Digest::SHA1 qw( sha1 );

our $VERSION = '0.07';

BEGIN {
	use Exporter;
	our @ISA         = qw( Exporter );
	our @EXPORT      = qw( );
	our %EXPORT_TAGS = ( );
	our @EXPORT_OK   = qw( &Abgleich );
} # BEGIN

sub Abgleich($$;$$$;$$$$;$$$$$) {

	my ($dateiEcgHash, $dateiEin, $gesOrFixOrDel, $feld, $trennZ) = (shift, shift, shift, shift, shift);

	die $! if not -e $dateiEcgHash;
	die $! if not -e $dateiEin;
	my $dateiAus = $dateiEin.".txt";

	if (not($gesOrFixOrDel)) {
		print "Bitte Dateiformat angeben (F/D/G): ";
		chomp($gesOrFixOrDel = uc());
		die $! if $gesOrFixOrDel ne "F" and $gesOrFixOrDel ne "D" and $gesOrFixOrDel ne "G";
	} # if

	$gesOrFixOrDel = uc($gesOrFixOrDel);
	if (not($feld)) {
		if ($gesOrFixOrDel eq "F") {
			print "Bitte Stelle,Laenge eingeben: ";
			chomp($feld = );
			die $! if not $feld;
		} # if
		elsif ($gesOrFixOrDel eq "D") {
			print "Bitte Feldnummer eingeben: ";
			chomp($feld = );
			die $! if not $feld;
			print "Bitte Trennzeichen eingeben: ";
			chomp(my $trennZ = );
			die $! if not $trennZ;
		} # elsif
		elsif ($gesOrFixOrDel eq "G") {
			print "Ganze Zeile ist die Emailadresse.\n";
		} # elsif
		else {
			die $!;
		} # else
	} # if

	my %verboten;
	my ($bytes, $hashwert) = ("", "");

	open(my $fhHash, "<", $dateiEcgHash) or die $!;
	do {
		$bytes = read($fhHash, $hashwert, 20);
	   $verboten{$hashwert} = 1;
	} # do
	while ( $bytes == 20 );
	close($fhHash) or die $!;

	open(my $fhEin, "<", $dateiEin) or die $!;
	open(my $fhAus, ">", $dateiAus) or die $!;

	while (my $zeile = <$fhEin>) {
		chomp $zeile;
		my $email = "";
		if ($gesOrFixOrDel eq "F") {
			my @aiFeld = ();
			@aiFeld    = split(/,/, $feld);
			$email     = substr($zeile,$aiFeld[0],$aiFeld[1]);
		} # if
		elsif ($gesOrFixOrDel eq "D") {
			my @satz = ();
			@satz    = split(/$trennZ/, $zeile);
			$email   = $satz[$feld];
		} # elsif
		else {
			$email = $zeile;
		} # else
		my $domain = "";
		($domain = $email) =~ s%.*\@%%;
		if (not($verboten{sha1($email)}) and not($verboten{sha1("\@".$domain)})) {
			print $fhAus $zeile."\n";
		} # if
	} # while

	close($fhEin) or die $!;
	close($fhAus) or die $!;

} # Abgleich

1;
__END__