Textdateien vergleichen *war Dani the Newbie (Allgemeines zu Perl)

[thread]17521[/thread]

Textdateien vergleichen *war Dani the Newbie

Tags: perl5 regex diff text Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+14 replies
Gast Dani

2012-06-27 15:57

Hallo, perl ist doch berühmt für Textuntersuchungen... Sowas wie http://de.wikipedia.org/w/index.php?title=Perl&dif... würde ich gerne machen - es sollen zwei Text-Dateien verglichen werden. Aber ich schaffe es einfach nicht :-(((

Bin totaler Newbie. Wie geht sowas in perl? Oder ist perl bei Text gar nicht so gut?

modedit Editiert von GwenDragon: Titel umbenannt
Last edited: 2012-06-27 16:23:48 +0200 (CEST)
- +5 replies
- lichtkind
  
  2012-06-27 16:02
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  Text ist perls Paradedisziplin. Für sowas braucht man nur das passende Modul. Schau mal Text::Diff oder Diff::LibXDiff an.
  Last edited: 2012-06-27 16:03:16 +0200 (CEST)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +4 replies
  - Gast Dani Newbie
    
    2012-06-27 16:24
    Diff::LibXDiff laesst sich nicht installieren :-(
    Mit Text:Diff komme ich nicht hin, was nur irgendwie für JEDEN verständlich wird :-(
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
    
    use Text::Diff; use Text::Diff::Table; my $diff = Text::Diff::Table->new; $tst1 = '/home/dani/perl/test12.pl'; $tst2 = '/home/dani/perl/test12.pl.old'; $diff = diff $tst2, $tst1, { STYLE => "Table" }; $diff = diff $tst2 => $tst1; use Algorithm::Diff; $diff = Algorithm::Diff::sdiff($tst2,$tst1); use YAML::Dumper; my $dumper = YAML::Dumper->new; $dumper->indent_width(4); $bla = $dumper->dump($diff); $bla =~ s/</</g; $bla =~ s/$tst2/Neue Version/g; $bla =~ s/$tst1/Alte Datei/g; print '<pre>'.$bla.'</pre>';
    
    modedit Editiert von GwenDragon: CODE-Tags hinzugefügt
    - +3 replies
    - GwenDragon
      
      2012-06-27 17:16
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Guest Dani Newbie
      Mit Text:Diff komme ich nicht hin, was nur irgendwie für JEDEN verständlich wird :-(
      Was bedeutet das genau?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - Gast Dani Newbie
        
        2012-06-27 17:32
        
        2012-06-27T15:16:09 GwenDragon
        Guest Dani Newbie
        Mit Text:Diff komme ich nicht hin, was nur irgendwie für JEDEN verständlich wird :-(
        Was bedeutet das genau?
        
        Ich bekomme nur Ereignisse hin, die mit pre ausgegeben werden können. Das sieht aus wie vor hundert Jahren und hat mit dem Wikipedia-Beispiel keinen Zusammenhang. Da perl aber doch geschaffen ist für Text-Vergleiche - wie geht man an so ein "einfaches" Beispiel (Vergleichen) heran um ein Ergebnis zu bekommen, dass irgendwie dem Wikipedia-Versionenvergleich entspricht? Da muss doch perl eine Stärke zeigen können, bevor man sich gleich windiff installiert...
        Last edited: 2012-06-27 17:37:18 +0200 (CEST)
        
        GwenDragon
        
        2012-06-27 17:40
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Dann benutze bitte Text::Diff und packe die Ergebnisse selbst in eine mit CSS formatierte HTML-Tabelle wie du es brauchst oder (ungetestet) Text-Diff-FormattedHTML oder Text-Diff-HTML.
        Last edited: 2012-06-27 17:44:36 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Gast Muffi
  
  2012-06-27 16:12
  
  Falls "machen" heisst: "Ich wills mal per Hand programmieren"
  google mal z.B. nach "Levenshtein".
  Last edited: 2012-06-27 16:22:45 +0200 (CEST)
- GwenDragon
  
  2012-06-27 16:24
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  @Gast Dani
  Bitte das nächste Mal einen Titel, der das Problem zum Inhalt hat.
  Und Perl-Code in CODE- oder PERL-Tags stellen wie in /bat/poard/markup_help/ zu lesen ist.
  Last edited: 2012-06-27 16:26:22 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- roli
  
  2012-06-27 20:22
  
  User since
  2004-12-31
  424 Artikel
  BenutzerIn
  
  Hi,
  
  für den Fall das du Linux nutzt, könntest du auch einfach "diff" nutzen.
  Roland
  --
  "Steh vorn, während du fragst;
  sitzen soll, wer antwortet."
  Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- +5 replies
- bianca
  
  2012-06-27 21:54
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Ich hatte seinerzeit hier im Forum die Empfehlung für String::Diff erhalten und nutze es seit dem ganz einwandfrei. Das Ding ist super für Textvergleiche. Damit vergleiche ich ganze AGB's miteinander ohne Probleme.
  Kann gern mit Code helfen bei Bedarf.
  Last edited: 2012-06-27 21:56:05 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - pq
    
    2012-06-27 21:56
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    String::Diff kann aber leicht sehr langsam werden. ich habe das auch mal benutzt, empfehle jetzt aber auch Text::Diff oder ggfs. Algorithm::Diff
    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
    - +3 replies
    - bianca
      
      2012-06-27 21:59
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2012-06-27T19:56:30 pq
      String::Diff kann aber leicht sehr langsam werden. ich habe das auch mal benutzt, empfehle jetzt aber auch Text::Diff oder ggfs. Algorithm::Diff
      
      OK, habe ich bisher nichts von gemerkt, reicht noch für meine Zwecke. Aber ich glaube auch, dass es für diese Fragestellung zu wenig Logik bezüglich Textformatierung/Absätze usw. bietet, kann das sein?
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - Gast Dani Newbie
        
        2012-06-28 15:04
        
        2012-06-27T19:59:24 bianca
        2012-06-27T19:56:30 pq
        Aber ich glaube auch, dass es für diese Fragestellung zu wenig Logik bezüglich Textformatierung/Absätze usw. bietet, kann das sein?
        
        Danke Bianca! Das wollte ich ausdrücken, schaffte es aber nicht.
        
        Ja, ich habe auch schon Unix-diff verwendet. Dann die diversen diff-Bibliotheken. Aber alles ist eher "mathematisch" und geht nicht auf die "Logik" der deutschen Sprache ein. d.h. wenn in der anderen Version ein Satz fehlt, dann ist ja alles "verrutscht" und das erkennen diese diffs nicht. Die Wikipedia-Leute haben das aber (mit PHP?) ordentlich gelöst. Noch "ordentlicher" oder zumindest einfacher sollte es in perl gehen. Aber ich komme zu keiner zufriedenstellenden Lösung :-(
        
        Last edited: 2012-06-28 15:12:58 +0200 (CEST)
        
        pq
        
        2012-06-28 15:14
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        da ist irgrndwas mit deinem zitat schiefgelaufen. der text, den bianca schrieb, steht jetzt bei mir als zitat.
        
        vielleicht findest du ja irgendwo im mediawiki-code, wie es gelöst wurde und kannst es in perl nachprogrammieren.
        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-06-27 15:57.