Hilfe bei Textvergleich gesucht (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]14772[/thread]

Hilfe bei Textvergleich gesucht

Leser: 17

Articles: hide open all | hide show old branches

+5 replies
bianca

2010-03-05 19:42

User since
2009-09-13
7016 Artikel
BenutzerIn

Guten Abend!

Möchte gern in einer Webanwendung zwei Texte links und rechts gegenüberstellen. Links der alte, rechts der neue. Änderungen sollen irgendwie kenntlich gemacht werden.

Gibt es dafür Hilfsmittel für Perl?

Danke
10 print "Hallo"
20 goto 10
- +4 replies
- pq
  
  2010-03-05 19:44
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  String::Diff - benutz ich hier fürs forum.
  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
  - bianca
    
    2010-03-05 20:02
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2010-03-05T18:44:43 pq
    String::Diff - benutz ich hier fürs forum.
    
    Das Teil ist geil, danke Dir!
    10 print "Hallo"
    20 goto 10
  - +2 replies
  - bianca
    
    2010-03-07 05:38
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Das Teil ist wirklich gut!
    Allerdings vergleiche ich hier zwei Texte, die HTML-Sequenzen wie z.B.
    
    Code: (dl )
    
    <dt style="margin-top: 20px;"><b>§ 2 Überschrift foo bar</b></dt>
    
    enthalten.
    Da das Tool darin auch zu wirken scheint, sehen die Änderungen teilweise etwas haarsträubend aus. Ich verwende es derzeit so:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    $inhalt{rechts} = String::Diff::diff_merge ( $inhalt{links}, $inhalt{rechts}, linebreak => 1, remove_open => '<del>', remove_close => '</del>', append_open => '<ins>', append_close => '</ins>', );
    
    Weiß jemand einen Weg, dem Teil beizubringen, von HTML ganz weg zu bleiben oder kennt jemand ein dafür besser geeignetes Tool?
    
    Danke
    
    EDIT: Noch ein Beispiel, was String::Diff treibt. Das ist das Ende eines Satzes, der in beiden verglichenen Texten identisch ist:
    
    Vor String::Diff:
    
    Code: (dl )
    
    und Nachvollziehbarkeit der Aktionen.
    
    Nach String::Diff:
    
    Code: (dl )
    
    un<del>d Nachvollzieh</del><ins>g<</ins>b<del>a</del>r<del>keit der Aktionen.</del><ins>></ins>
    
    Last edited: 2010-03-07 05:45:58 +0100 (CET)
    10 print "Hallo"
    20 goto 10
    - GwenDragon
      
      2010-03-08 12:09
      
      User since
      2005-01-17
      14890 Artikel
      Admin1
      
      String::Diff vergleicht den reinen Quelltext, in dem Fall das HTML samt Elementen und Attributen.
      
      Was du willst ist ein reiner Textvergleich?
      
      Dann musst du schon das HTML durch HTML::Parser jagen und nur die Textnodes vergleichen.
      Oder HTML::Strip.
      Oder html2text verwenden.
      Oder mit lynx als text dumpen:
      lynx -dump URI
      Oder ... oder ... oder...
      Last edited: 2010-03-08 12:15:58 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2010-03-05 19:42.