zwei string arrays auf gleichheit prüfen (gelöst) (Allgemeines zu Perl)

[thread]17643[/thread]

zwei string arrays auf gleichheit prüfen [gelöst]

Leser: 17

Articles: hide open all | hide show old branches

+24 replies
Iggy86

2012-08-08 09:37

User since
2012-07-26
41 Artikel
BenutzerIn

hi ich suche schon die ganze zeit rum und kann irgendwie nix brauchbares finden.
wie kann ich denn zwei arrays in denen jeweils ein längerer string ist auf ihr gleichheit prüfen??
wenn möglich ohne module zu verwenden.
danke schon mal
- +20 replies
- Muffi
  
  2012-08-08 10:06
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Laut deiner Beschreibung (2 Arrays mit jeweils einem String drin) ist es:
  
  Code (perl): (dl )
  
  if ($array1[0] eq $array2[0])
  
  Allerdings glaub ich nicht so recht, dass das die Lösung ist. Magst dus viellciht nochmal richtig beschreiben?
  1 + 1 = 10
  - +19 replies
  - Iggy86
    
    2012-08-08 10:10
    User since
    2012-07-26
    41 Artikel
    BenutzerIn
    
    also die strings sehen in etwa so aus:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    /* a handle to an object is opaque as far as the client is concerned */ /* the object id is opaque as far as the user is concerned */ typedef struct ps_objid { } ps_objid_t; /* Persistent Store Flags */ /* End Flags */
    
    ich denke man müsste zeile für zeile vergleichen, weis aber nicht wie :)
    Last edited: 2012-08-14 13:32:34 +0200 (CEST)
    - +16 replies
    - Linuxer
      
      2012-08-08 10:15
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Und was willst Du? Willst Du nur wissen, ob sie gleich sind oder nicht ($array1[0] eq $array2[0])?
      Oder willst Du die Unterschiede aufgezeigt bekommen?
      
      Und warum schon wieder "ohne Module"...?
      Wozu einfach, wenn man sich die Mühe selber machen kann...
      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!
      - +15 replies
      - Iggy86
        
        2012-08-08 10:22
        
        User since
        2012-07-26
        41 Artikel
        BenutzerIn
        
        ich will nur wissen, ob die arrays gleich sind.
        
        Code: (dl )
        
        @array1[0] eq @array2[0]
        
        prüft ja nur ob die erste zeile gleich ist, denn der string wurde zeile für zeile in das array eingelesen.
        
        ohne module, weil das programm auf mehreren rechnern nutzbar sein soll, ohne sich etwas runterladen zu müssen.
        wenn es ein modul ist, das von anfang an dabei ist, dann ist es ok.
        
        +12 replies
        
        Muffi
        
        2012-08-08 10:24
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ah, doch nicht einer, sondern mehrere Strings im Array.
        Also du willst wissen, ob @array1 und @array2 inhaltich gleich sind?
        1 + 1 = 10
        
        +11 replies
        
        Iggy86
        
        2012-08-08 10:51
        
        User since
        2012-07-26
        41 Artikel
        BenutzerIn
        
        genau!
        
        +10 replies
        
        Muffi
        
        2012-08-08 10:59
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Da ich der Meinung bin, dass
        http://search.cpan.org/~makamaka/JSON-2.53/lib/JSO...
        in keiner guten Küche fehlen sollte:
        
        Code (perl): (dl )
        
        if (to_json(\@array1) eq to_json(\@array2))
        
        1 + 1 = 10
        
        +9 replies
        
        pq
        
        2012-08-08 11:04
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        kanonen auf spatzen?
        
        bei diesem problem dürfte was simpleres reichen:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        { local $" = ''; if ("@array1" eq "@array2") { ... } }
        
        (vorausgesetzt, die linebreaks sind bei beiden arrays noch an der richtigen stelle.)
        aber ich sehe auch nicht, was an linuxers lösung schlecht sein soll.
        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
        
        +8 replies
        
        Muffi
        
        2012-08-08 11:11
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Wenn die Kanonenlösung die Einfachste und mit Abstand Kürzeste ist, warum nicht?
        Deine Lösung kann funktionieren, muss sie aber nicht.
        1 + 1 = 10
        
        +7 replies
        
        pq
        
        2012-08-08 11:21
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2012-08-08T09:11:24 Muffi
        Wenn die Kanonenlösung die Einfachste und mit Abstand Kürzeste ist, warum nicht?
        
        nun, die kürzteste ist nicht immer die beste lösung. bei weitem nicht. und "einfach" solltest du mir hier in dem zusammenhang auch noch mal definieren.
        
        und wenn wir zu "effizient" kommen, dürftest du spätestens dann die schlechtesten karten haben =)
        aber anscheinend zählt effizientes programmieren heute nicht mehr so.
        
        (und nein, ich will jetzt nichts von premature optimization hören, die wenigsten kennen den kompletten spruch und bei mir bist du damit an der falschen adresse, durch meine optimierungen in beruf und freizeit hab ich schon ne menge sparen können)
        
        Quote
        Deine Lösung kann funktionieren, muss sie aber nicht.
        
        die voraussetzung habe ich druntergeschrieben.
        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
        
        +6 replies
        
        Muffi
        
        2012-08-08 11:34
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Was "einfach" heisst?
        Du kannst da nix falsch machen. Selbst wenn das Ding wer wo anders hinkopiert und als Element ne Hashreferenz reinsteckt wirds noch funktionieren.
        
        Freilich kann man definieren, dass eine Lösung mit
        
        Code (perl): (dl )
        
        @a = (1, 23); @b = (12, 3)
        
        nicht mehr funktioniert, aber in einem Jahr weiss das kein Mensch mehr. Und wenns doch mal vorkommt debuggst dich zu tode.
        
        Das ist für mich einfach.
        
        Und ansonsten ist mir ehrlich gesagt die Laufzeit relativ wurscht, solang sie nicht negativ auffällt. Und wenn sie negativ auffällt, und erst dann, guck ich was schneller geht.
        1 + 1 = 10
        
        +2 replies
        
        Raubtier
        
        2012-08-08 11:40
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        2012-08-08T09:34:34 Muffi
        Was "einfach" heisst?
        Du kannst da nix falsch machen. Selbst wenn das Ding wer wo anders hinkopiert und als Element ne Hashreferenz reinsteckt wirds noch funktionieren.
        
        Bist du da sicher? Warum sollte das so sein?
        
        Weder bei JSON noch bei einem Hash ist die Reihenfolge der Keys festgelegt. Sortiert das Modul beim JSON-Export?
        
        Ansonsten sehe ich das wie pq: Kanonen auf Spatzen!
        
        Muffi
        
        2012-08-08 11:49
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Stimmt, die Option ist standardmässig nicht an. Hast recht.
        1 + 1 = 10
        
        pq
        
        2012-08-08 11:49
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2012-08-08T09:34:34 Muffi
        Freilich kann man definieren, dass eine Lösung mit
        
        Code (perl): (dl )
        
        @a = (1, 23); @b = (12, 3)
        
        nicht mehr funktioniert, aber in einem Jahr weiss das kein Mensch mehr. Und wenns doch mal vorkommt debuggst dich zu tode.
        
        es gibt da ein relativ einfaches mittel: dokumentieren =)
        
        aber wie gesagt, ich sehe nicht, was an linuxers lösung schlecht sein sollte.
        bisschen viel schreibarbeit, ja. aber sonst...?
        
        es geht mir hauptsächlich darum, das "am kürzesten" nicht automatisch am besten ist. das gehört eher zu den tugenden bei perl, die es auszurotten gilt.
        
        ich habe es bei perlgolf tatsächlich mal erlebt, dass ich durch kürzen auch eine effizientere lösung gefunden habe. aber das ist eher die ausnahme.
        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
        
        +2 replies
        
        pq
        
        2012-08-08 11:54
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2012-08-08T09:34:34 Muffi
        Was "einfach" heisst?
        Du kannst da nix falsch machen.
        
        wenn ich nix falsch machen können will, programmier ich java ;-)
        
        ok, das war jetzt vom niveau her ungefähr so wie "wenn du optimieren willst, programmier assembler" (*). aber ich konnt nicht widerstehen =)
        
        (*) ja, sowas muss ich mir häufiger anhören.
        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
        
        Muffi
        
        2012-08-08 12:01
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Wirklich?
        Bei meinen ersten Javaversuchen hat nicht mal das HelloWorld kompiliert.
        Ich glaub die Datei hiess anders als die Klasse. Und aus der Fehlermeldung wurd ich auch nicht schlau.
        
        Aber gut, OT ;)
        
        Ansonsten ist bei mir json eh immer da, da ich irgendwann genug von Eigenbau-Serialisierung, -Datenspeicherung, -CSV-Parsern, ... hatte.
        Jeder bauts anders und stöpselt an und 99% davon funktionieren nicht richtig.
        Aber gut, vielleicht ist es wirklich ein bisserl gross für Strings vergleichen.
        1 + 1 = 10
        
        +2 replies
        
        Linuxer
        
        2012-08-08 10:38
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Aber Du schriebst doch eingangs:
        
        Quote
        wie kann ich denn zwei arrays in denen jeweils ein längerer string ist auf ihr gleichheit prüfen??
        
        Und jetzt sind es doch mehrere Strings/Elemente pro Array.
        
        Wie soll man da das Richtige raten?
        
        ein geratener, möglicher Lösungsansatz:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        if ( $#array1 != $#array2 ) { die "Arrays sind verschieden groß!\n"; } else { for my $i ( 0 .. $#array1 ) { if ( $array1[$i] ne $array2[$i] ) { die "Arrays sind unterschiedlich in Zeile $i.\n"; } } }
        
        Wahrscheinlich würde ich es anders lösen; aber da die Randbedingungen und Umstände gänzlich unbekannt sind,
        verschwende ich keine weiteren Gedanken daran.
        Last edited: 2012-08-08 10:45:04 +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!
        
        Iggy86
        
        2012-08-08 11:05
        
        User since
        2012-07-26
        41 Artikel
        BenutzerIn
        
        danke genau sowas habe ich gesucht!
        sorry für die unpräzise formulierung
    - +2 replies
    - pq
      
      2012-08-14 13:41
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      es gibt da so ein textfeld beim editieren, unter der textare, da steht daneben "Comment about edit". wär in dem fall ganz nett gewesen, wenn du einfach "Beispiel gekürzt" reingeschrieben hättest.
      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
      - Iggy86
        
        2012-08-14 14:19
        
        User since
        2012-07-26
        41 Artikel
        BenutzerIn
        
        ok sry. next time.
        irgendwann schaffe ich auch mal einen sauberen post! :D
- +3 replies
- pq
  
  2012-08-08 10:57
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  ich möchte hier nochmal was anmerken, was ich häufiger tue:
  
  wie du an den antworten siehst, ist es ziemlich wichtig, genau in der definition zu sein.
  warum? keiner kann hellsehen und im zweifelsfall kriegst du eine lösung, die gar nicht passt.
  
  aber nicht nur darum. die spezifikation ist schon die halbe miete. und programmieren ist auch keine magie (na gut, mit perl manchmal). wenn es wirklich so ist wie vermutet, dann arbeitest du hier genau wie du es machen würdest, als wenn du 2 kartons mit jeweils einem stapel büchern vor dir hättest und du überprüfen musst, ob genau die gleichen bücher in der gleichen reihenfolge drin liegen. manchmal ist programmieren wirklich so simpel.
  für einige solcher operationen gibt es in perl auch eigene praktische operatoren, aber auch dafür solltest du dir erstmal genau bewusst sein, wie deine problemstellung lautet.
  auch schon erlebt: nach genauer ausformulierung im forum kommt einem die idee und man bricht das posting ab.
  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
  - +2 replies
  - Iggy86
    
    2012-08-08 11:07
    
    User since
    2012-07-26
    41 Artikel
    BenutzerIn
    
    ja es is ja nicht so, dass ich es extra unpräzise formuliere.
    bin halt kein profi und formuliere manche sachen eventuell falsch..
    
    wie aber schon mal gesagt werde ich mich bemühen es zu verbessern.
    - pq
      
      2012-08-08 12:09
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      war ja nur eine anregung, etwas intensiver nachzudenken und immer vor augen zu haben, dass die leser hier nicht wissen, was du vorliegen hast. lieber ein detail mehr hinschreiben als zuwenig.
      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

View all threads created 2012-08-08 09:37.