Grundsatz für den Aufbau einer Perl-Funktion (Allgemeines zu Perl)

[thread]13412[/thread]

Grundsatz für den Aufbau einer Perl-Funktion

Leser: 32

Articles: hide open all | hide show old branches

+15 replies
jan999

2009-04-20 09:22

User since
2009-04-02
109 Artikel
BenutzerIn

Moin !

ich möchte mich an mein erstes größeres Projekt wagen und wollte Euch vorab fragen wie ich das am besten umsetze.

Es geht darum das ich zwei listen habe die zu vergleichende Werte haben. Als beispiel kann man sich Daten mit Apothekennamen im Ist-Zustand vorstellen und eine Soll-Liste

Ich möchte ermitteln welche Namen aus der Soll-Liste in den Daten enthalten sind, welche noch fehlen und welche in der Datenliste enthalten sind - aber in der Soll-Liste fehlen.

Ich könnte jetzt für jeden Wert in den Spalten eine Variable definieren und dann vergleichen und immer die verschiedenen Variablen und Idx mitführen.

... wie würdet Ihr soetwas angehen oder hat einer vielleicht ein Beispiel (Link) aus dem ich mir die entsprechenden Info's ziehen könnte ??

Gruß Jan :-)
- +14 replies
- renee
  
  2009-04-20 09:47
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  So wie ich das verstehe, würde ich einen Hash mit den Zuständen benutzen. Dabei dienen die Namen als Schlüssel und als Werte diese Zustände:
  
  1: Nur Ist
  2: Nur Soll
  3: Beide
  
  mal als kleines Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  my @ist = qw(name1 name2 name3); my @soll = qw(name2 name4); my %zustand; # speichere alle "ist"-namen in Hash mit Zustand 1 @zustand{@ist} = (1) x @ist; # überprüfe die "soll"-namen for my $sollname ( @soll ){ if( exists $zustand{$sollname} ){ $zustand{$sollname} = 3; } else{ $zustand{$sollname} = 2; } }
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +13 replies
  - jan999
    
    2009-04-20 10:08
    
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    hi !
    
    erst einmal vielen dank für den tipp - werde ich mir mal näher ansehen und mich dann ggf. nochmal melden.
    
    gruß Jan :-)
    - +12 replies
    - jan999
      
      2009-04-20 10:40
      
      User since
      2009-04-02
      109 Artikel
      BenutzerIn
      
      hallo renee !
      
      ich muss nochmal was fragen.
      
      du schreibst "Dabei dienen die Namen als Schlüssel" ... Schlüssel dürfen doch sicherlich keine Leerzeichen, Sonderzeichen etc. enthalten ???
      
      z.B. Löwen-Apotheke oder Apothke am Brunnen ...
      
      Wie würdest Du soetwas lösen ???
      
      Gruß Jan :-)
      - +2 replies
      - Gast wer
        
        2009-04-20 10:50
        
        Schlüssel dürfen jedes belibe Zeichen enthalten. Zwischen hex 00 und hex FF ist jedes Zeichen erlaubt. Nur das Abfragen könnte dabei komlizierter werden.
        
        sid burn
        
        2009-04-21 17:25
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Guest wer
        Schlüssel dürfen jedes belibe Zeichen enthalten. Zwischen hex 00 und hex FF ist jedes Zeichen erlaubt.
        
        Der Schlüssel ist ein beliebiger String. Daher kann er weitaus mehr enthalten als nur zeichen von hex 00 bis hex ff.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
      - +4 replies
      - Linuxer
        
        2009-04-20 10:50
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Warum dürfen Schlüssel keine Leerzeichen (etc.) enthalten?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my %hash = ( "Apotheke am Brunnen" => 123, ); $hash{"Löwen-Apotheke"} = "bla"; for my $k ( keys %hash ) { print "$k: $hash{$k}\n"; }
        
        Eventuell muss bei der Ein-/Ausgabe auf den Zeichensatz geachtet werden, aber das ist kein Problem des Hash-Keys.
        Last edited: 2009-04-20 10:52:20 +0200 (CEST)
        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!
        
        +3 replies
        
        jan999
        
        2009-04-20 10:58
        
        User since
        2009-04-02
        109 Artikel
        BenutzerIn
        
        hi !
        
        dann ergänze ich meine Frage noch um einen Punkt !
        
        im Abschnitt
        
        Quote
        # überprüfe die "soll"-namen
        for my $sollname ( @soll ){
        if( exists $zustand{$sollname} ){
        $zustand{$sollname} = 3;
        }
        else{
        $zustand{$sollname} = 2;
        }
        }
        
        wie sieht das denn dort mit der Groß-/Kleinschreibung aus ?!?!?
        
        Gruß Jan :-)
        
        nepos
        
        2009-04-20 11:00
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Gross-/Kleinschreibung wird berücksichtigt. Wenn du das nicht willst, dann musst du dich selber drum kümmern, dass die Dateinamen immer gross/klein geschrieben werden. Siehe uc und lc.
        
        Linuxer
        
        2009-04-20 11:38
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Was glaubst Du, wie es damit aussieht?
        
        Was haben Deine Tests ergeben?
        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!
      - +5 replies
      - pq
        
        2009-04-20 11:03
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-04-20T08:40:49 jan999
        Schlüssel dürfen doch sicherlich keine Leerzeichen, Sonderzeichen etc. enthalten ???
        
        warum nicht? hash-keys sind einfach strings, die dürfen jedes zeichen enthalten.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        jan999
        
        2009-04-22 08:17
        
        User since
        2009-04-02
        109 Artikel
        BenutzerIn
        
        Moin !
        
        ich habe jetzt noch so ein Gedankeproblem um weiter zu kommen.
        
        Es werden zunächst die Daten aus einer Datei eingelesen und sollen in ein HASH gespeichert werden. Vereinfacht gesagt stelle ich mir das so vor:
        
        Quote
        key1 => value1 value2 value3 ....
        key2 => value1 value2 value3 ....
        key3 => value1 value2 value3 ....
        
        da ein HASH als Value keine Arrays - meines wissens enthalten kann habe ich folgendes erstellt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        open( IN, $go_POIFileName ) or die( "$go_POIFileName: $!" ); while( <IN> ) { chomp; my @tmp = split( /;/ ); $g_POIRead{ lc($tmp[0]) } = @tmp; } close( IN );
        
        Für das Verständnis möchte ich zu einem späteren Zeitpunkt mir diese Daten einmal anzeigen lassen - macht weiter erst einmal keinen Sinn!
        
        Dafür habe ich folgendes erstellt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        foreach my $schluessel ( keys %g_POIRead ) { my $value = $g_POIRead{ $schluessel }; print "Schluessel: ".$schluessel." := ".$value."\n"; print "[0] ".$value[0]."\n"; print "[1] ".$value[1]."\n"; print "[2] ".$value[2]."\n"; print "[3] ".$value[3]."\n"; }#end-foreach
        
        Die erste Ausgabe gibt auch noch das erwartete Ergebnis aus - aber die $value[x]-Zugriffe bleiben leer.
        
        Man muss doch auf die einzelnen Werte auch irgendwie zugreifen können - oder liegt hier ein grundsätzlicher Gedankenfehler vor ???
        
        Was müßte ich dann machen um mein Ziel zu erreichen ?
        
        Gruß Jan :-)
        
        Gast wer
        
        2009-04-22 08:30
        
        Du brauchst eine Arrayrefferenz allso:
        
        Code (perl): (dl )
        
        $g_POIRead{ lc($tmp[0]) } = \@tmp;
        
        oder
        
        Code (perl): (dl )
        
        $g_POIRead{ lc($tmp[0]) } = [@tmp];
        
        der Zugriff erfolgt über:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        my $value = $g_POIRead{ $schluessel }; print $value->[0]; #oder print $$value[0]; #oder my @array=@$value; print $array[0]
        
        +2 replies
        
        Crian
        
        2009-04-22 12:09
        
        User since
        2003-08-04
        5873 Artikel
        ModeratorIn
        
        2009-04-22T06:17:41 jan999
        Quote
        key1 => value1 value2 value3 ....
        key2 => value1 value2 value3 ....
        key3 => value1 value2 value3 ....
        
        da ein HASH als Value keine Arrays - meines wissens enthalten kann
        
        Du hast noch nie von einem HoA gehört?
        
        Code: (dl )
        
        1 2 3 4 5
        
        my %hash = ( 'diese hier' => [ 15, 17, 847 ], 'jenes dort' => [ 0, 8, 15 ], 'das da' => [ 47, 11], );
        
        Last edited: 2009-04-22 12:11:45 +0200 (CEST)
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite
        
        jan999
        
        2009-04-22 19:16
        
        User since
        2009-04-02
        109 Artikel
        BenutzerIn
        
        hi !
        
        der obere Teil soll nur eine "allgemeine" und keine Perl-Beschreibung sein.
        
        Gruß Jan :-)

View all threads created 2009-04-20 09:22.