#!/usr/bin/perl
###################################################################################
$path='/etc/';		# Pfad Variable
$datei='aliases';	# Datei Variable
$domain='test.de';
$anfang='# AB HIER';
$ende='# BIS HIER';
$out='adress.csv';
while($ARGV[0] =~ /^-/){         		# Schalter Verarbeitung
        $_=shift;
        if (/^-p/){
                $path=(shift);
        }
        elsif (/^-f/){
                $datei=(shift);
        }
        elsif (/^-a/){
                $anfang=(shift);
        }
        elsif (/^-e/){
                $ende=(shift);
        }
        elsif (/^-d/){
                $domain=(shift);
        }
        elsif (/^-h/){
                die "adressbuch [-d domain] [-p path] [-f inputfile] [-a anfangsmarke] [-e endemarke] \n";
        }
        else {
                die "unknown option:$_\n -h for help \n" ;
        }
}                                                            
open (OUT, "> $out") || die  "Kann Datei $out nicht öffnen\n";
open (ALI, $path.$datei)|| die "Datei nicht vorhanden \n";
print OUT "Vorname;Nachname;Name;E-Mail-Adresse\n";
while (<ALI>)
{
   if (/$anfang/ .. /$ende/){    
	s/\ +/\ /;	# ersetze mehere Leerzeichen durch eins
        s/#.*//;
        s/^\s+//;
        if ($_ =~ /^([a-z]+.[a-z]+)/){
           $adress=$1;
           ($name,@rest) = split(/\@/,$adress,2);
           ($vorname,$nachname) = split(/\./,$name,2);
           $vorname= "\u$vorname";
           $nachname= "\u$nachname";
           $name=$vorname." ".$nachname;
           print OUT "$vorname;$nachname;$name;",$adress,"@",$domain,"\n";
        }
   }
}