# Im VORNAMEN suchen: my $vorname=$ba_data{'vorname'}; my $s_ttl=$search_pattern{'titel'}; my $s_vor=$search_pattern{'name_vorsatz'}; my $s_sec=$search_pattern{'titel_secondary'}; if (($ba_config{'search_prename'} == 1) and ($ba_config{'vorname_col'} <= $#top_headlines)) # zus.: Wenn Vorname und Nachname NICHT zusammen { #Titel + Vorname: if ($vorname =~ /^\s*($s_ttl)\s*(.*?)(?: +($s_vor))?\s*$/sio) { ($ba_data{'titel'}, $ba_data{'vorname'}) = ($1, $2); # + Namensvorsatz if($3 ne '') { $ba_data{'name_vorsatz'}=$3; push(@ba_info, 'Titel und Namensvorsatz im Vornamen'); } else { push(@ba_info, 'Titel im Vornamen'); } } #Sekundärtitel + Vorname: elsif ($vorname =~ /^\s*($s_sec)\s*(.*?)(?: +($s_vor))\s*$/sio) { ($ba_data{'titel_secondary'}, $ba_data{'vorname'}) = ($1, $2); # + Namensvorsatz if($3 ne '') { $ba_data{'name_vorsatz'}=$3; push(@ba_info, 'Sekundärtitel und Namensvorsatz im Vornamen'); } else { push(@ba_info, 'Sekundärtitel im Vornamen'); } } #Vorname + Titel + Namensvorsatz: elsif ($vorname =~ /^\s*(.*?) +($s_ttl)\s*($s_vor)$/sio) { ($ba_data{'vorname'}, $ba_data{'titel'}, $ba_data{'name_vorsatz'}) = ($1, $2, $3); push(@ba_info, 'Namensvorsatz und Titel im Vornamen'); } }