Anrede umsetzen (Allgemeines zu Perl)

[thread]19616[/thread]

Anrede umsetzen

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+8 replies
cowan

2015-04-13 20:17

User since
2011-10-23
1 Artikel
BenutzerIn

Hallo zusammen,
ich habe da ein kleines Problem mit der Umsetzung von Anreden.
Ich benutze ein Programm, wo ich Adressen einlesen kann und kleine Einzeller-Skripte laufen lassen kann.
Die Adresse ist so aufgebaut: Anrede; Titel; Vorname; Nachname;....
Die Umsetzung mit Frau oder Herr klappt.
Aber wie bekomme ich es hin wenn die Anrede leer ist
Sowas habe ich gebaut klappt aber leider nicht bei leerer Anrede :-(
$1 =~ s/^\s(.)/Sehr geehrte Damen und Herren/; $1 =~ s/Frau/Sehr geehrte Frau $2/ ;$1 =~ s/Herr/Sehr geehrter Herr $2/ ;$1;

$1 Anrede
$2 bezieht sich auf den Titel Nachnamen

Grüße cowan
Last edited: 2015-04-13 20:43:15 +0200 (CEST)
- +5 replies
- Linuxer
  
  2015-04-13 20:55
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi,
  
  $1 oder $2 sind Variablen, die nur zum Lesen geeignet sind, von daher ist das Beispiel schlecht (ich hoffe, es ist nur im Beispiel so). Eine Substitution sollte mit diesen Variablen nicht möglich sein.
  Leider wird aus Deinem Beitrag nicht klar, wie Du die Adresse verarbeitest; Gehst Du auf die gesamte Zeile los oder hast Du die Adresse in Felder gesplittet?
  
  Nehmen wir an, die Adresse ist gesplittet und in $Anrede steht eben der Wert des ersten Feldes (Herr, Frau oder nix) und soll dann durch die gewünschte Grußformel ersetzt werden.
  Dann könnte man den ternären Operator verwenden und folgendes schreiben:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  # $Anrede kann sein: Herr, Frau oder leer (bzw. alles andere wird wie leer gewertet) $Anrede = $Anrede eq 'Frau' ? 'Sehr geehrte Frau' : $Anrede eq 'Herr' ? 'Sehr geehrter Herr' : 'Sehr geehrte Damen und Herren';
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +4 replies
  - Gast cowan
    
    2015-04-14 09:24
    
    Hallo Linuxer,
    der Aufbau sieht so aus
    Anrede;Titel;Vorname;Nachname
    Herr;xx;xx;xx
    Frau;xx;xx;xx
    nix;xx;xx;xxx
    
    leider klappt das mit deiner Lösung nicht
    Kann man das hier nicht anpassen
    $1 =~ s/^\s(.)/Sehr geehrte Damen und Herren/;
    Grüße cowan
    Last edited: 2015-04-14 09:41:17 +0200 (CEST)
    - +3 replies
    - Linuxer
      
      2015-04-14 13:09
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Keine Ahnung, was bei Dir nicht klappt. Brauchbare Infos lieferst Du leider nicht und auf gelieferte Infos gehst Du auch nicht ein. Bei mir funktioniert mein Vorschlag.
      
      Was willst Du an der nicht funktionierenden Zeile anpassen? $1 ist nur lesbar. Sie funktioniert so nicht!
      Und was der Regex unabhängig davon machen soll, wird mir auch nicht klar. Worauf soll /^\s(.)/ bitte zutreffen? Auf "Frau"? Auf "Herr"? Auf "nix"?
      
      Beispiel:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
      
      #! /usr/bin/perl use strict; use warnings; while ( my $dataset = <DATA> ) { chomp $dataset; my ( $anrede, $titel, $vorname, $nachname ) = split m/;/, $dataset; # $anrede kann sein: Herr, Frau oder leer (bzw. alles andere wird wie leer gewertet) $anrede = $anrede eq 'Frau' ? "Sehr geehrte Frau" : $anrede eq 'Herr' ? "Sehr geehrter Herr" : 'Sehr geehrte Damen und Herren'; my $name = defined($titel) ? "$titel $nachname" : $nachname; print "$anrede $name\n"; } __DATA__ Herr;;Fritz;Mueller Frau;Dr.;Liese;Meier ;;;
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +2 replies
      - Gast cowan
        
        2015-04-14 14:26
        
        Hallo Linuxer,
        
        sorry, das ich so unverständlich schreibe.
        Die Software was ich benutze erlaubt nur kleine Perl Schnipsel.
        Also ich kann keine langen Perlskripte einfügen und laufen lassen.
        z.B. sowas: substr($1,93,1)
        oder
        my $a = substr($1,75,5);$a = $a/100;$a = sprintf("%.2f",$a); $a =~ tr/\./,/;return $a;
        
        ich habe nur eine Zeile für eine Skript zur Verfügung.
        
        Die Adressen bekomme ich als Excel,Semikolon,Tabstopp,...
        
        /^\s(.)/ - damit wollte ich auf '"nix" abfragen was nicht klappt.
        
        Grüße cowan
        Last edited: 2015-04-14 14:45:54 +0200 (CEST)
        
        Linuxer
        
        2015-04-14 21:02
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Na, damit wird doch schon mal etwas Hintergrund klarer.
        
        Wenn das "nix" als Text so in den Daten steht, dann nutze den String wie "Herr" oder "Frau".
        Wenn es wirklich ein Leerstring ist, dann prüfe eben darauf. Falls alternativ Leerzeichen verwendet werden, dann auch darauf.
        
        Code (perl): (dl )
        
        1 2
        
        $text = "nix;xx;xx;xxx"; $text =~ s/^nix/Sehr geehrte Damen und Herren/;
        
        Oder wenn die Anrede ein Leerstring oder Leerzeichen sind:
        
        Code (perl): (dl )
        
        1 2 3
        
        $text = ";xx;xx;xxx"; # das ";" muss fuer die Suche da sein, wird aber nicht zum Treffer dazugezaehlt $text =~ s/^\s*(?=;)/Sehr geehrte Damen und Herren/;
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- hlubenow
  
  2015-04-14 01:56
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  2015-04-13T18:17:12 cowan
  Ich benutze ein Programm, wo ich Adressen einlesen kann und kleine Einzeller-Skripte laufen lassen kann.
  
  Ich würde dafür lieber ein etwas größeres Perl-Skript schreiben, und das dann vernünftig lösen.
  
  (Hab' ich auch schonmal gemacht: Adressen aus einer Datenbank, mit denen dann Briefe in MS Word zusammengestellt werden. Die Sache mit "Firma/Herr/Frau/Dr./Prof./Prof. Dr./Sehr geehrte Damen und Herren" hat damals etwas länger gedauert, als ich dachte. Problem war vor allem, daß manchmal eine natürliche Person und manchmal eine Firma/Institution mit oder ohne Ansprechpartner/in angeschrieben werden sollte, was im Skript jeweils anders verarbeitet werden mußte).
  Last edited: 2015-04-14 01:59:31 +0200 (CEST)
  - TGoonie
    
    2015-04-16 10:54
    User since
    2013-10-21
    6 Artikel
    BenutzerIn
    
    So als schnell hingetippterten Code hätte ich das in etwa so gemacht:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
    
    #!/usr/bin/perl -w use strict; my $DAT = <<"EOF"; Herr;xx;xx;xx Frau;xx;xx;xx ;xx;xx;www nix;xx;xx;xxx unbekannt;xx;xx;xx EOF my $Anrede={"Herr" => "Sehr geehrter Herr", "Frau" => "Sehr geehrte Frau", "nix" => "Sehr geehrte Damen und Herren"}; foreach my $line(split("\n",$DAT)){ if(my @tmp=split(";",$line)){ if(scalar(@tmp) eq 4){ my $Titel=$Anrede->{'nix'}; # default Anrede if (defined($Anrede->{$tmp[0]})){ $Titel=$Anrede->{$tmp[0]}; } printf("%s %s %s %s\n",$Titel,$tmp[1],$tmp[2],$tmp[3]); }else{ printf("Fehlerhafte Daten: $line\n"); } }else{ printf("Fehlerhafte Daten: $line\n"); } }
    
    Last edited: 2015-04-16 11:54:31 +0200 (CEST)
    „Zwei Dinge sind unendlich, das Universum und die menschliche Dummheit, aber bei dem Universum bin ich mir noch nicht ganz sicher.“ ( Albert Einstein )

View all threads created 2015-04-13 20:17.