Zwei strings vergleichen (gelöst) (Allgemeines zu Perl)

[thread]19213[/thread]

Zwei strings vergleichen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+4 replies
Gast Enzio

2014-07-30 17:48

Hallo Leute,
ich habe einen master-string $A='abcdefg'; der immer Fix bleibt und will ihn mit nem zweiten string $B='abcdgef'; mit der selben Anzahl von Zeichen vergleichen also ob die beiden passen oder ob dort Fehler gefunden werden bzw. in der Reihenfolge oder an Zeichen die gar nicht in den ersten String zu finden sind.
Frage: Wie kann ich am Ende die Anzahl dieser Zeichen [in diesem Fall eine Meldung "3 mismatches"], anzeigen lassen?
Danke Euch
Last edited: 2014-07-30 17:52:13 +0200 (CEST)
- payx
  
  2014-07-30 18:18
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Enzio,
  
  hier ein sehr verboser Lösungsvorschlag:
  
  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 24 25 26 27 28 29 30 31 32 33
  
  #!/usr/bin/perl use strict; use warnings; my $fix = 'abcdefg'; my $new = 'abcdgrf'; my %fhash; my $count; for (split //, $fix) { $count ++; $fhash{$_} = $count; } $count = 0; my $errcount; for my $char (split //, $new) { $count ++; if (!$fhash{$char}) { print "Zusaetzliches Zeichen: $char\n"; $errcount ++; } elsif ($fhash{$char} != $count) { print "Zeichen an Pos. $count statt an Pos. $fhash{$char}: $char\n"; $errcount ++; } } print "Anzahl Fehler: $errcount" if $errcount;
  
  Deinen Input-String habe ich ein bisschen verändert, damit beide Fehlerfälle vorkommen.
  
  Wenn Du Fragen hast, stelle sie.
  
  Ich mutmaße, dass gleich auch noch feine Einzeiler-Lösungen kommen.
  
  HTH
  Grüße
  payx
- +2 replies
- murphy
  
  2014-07-30 20:10
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Wenn Du nur die Anzahl der nicht übereinstimmenden Stellen haben möchtest, fällt mir da eine hübsche Golflösung ein:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  #!/usr/bin/env perl use 5.012; use warnings; my $fix = 'abcdefg'; my $new = 'abcdgrf'; say(($fix ^ $new) =~ tr/\0//c);
  
  Klarer ist aber vermutlich ein Ansatz wie payx ihn wählte :-)
  
  Wenn man aber nicht nur Buchstaben an der gleichen Position in zwei Zeichenketten vergleichen möchte, sondern herausfinden, wo etwas eingefügt, ersetzt oder weggelassen wurde, dann sollte man wohl eher auf einen Diff-Algorithmus zurückgreifen (siehe z.B. Algorithm::Diff) oder, falls weiterhin nur die Anzahl der Änderungen interessant ist, auf einen Algorithmus zur Berechnung der Editierdistanz (siehe z.B. Text::Levenshtein).
  When C++ is your hammer, every problem looks like your thumb.
  - Gast Enzio
    
    2014-07-31 21:21
    
    Besten Dank Leute :)
    Last edited: 2014-07-31 22:17:27 +0200 (CEST)

View all threads created 2014-07-30 17:48.