perl diff tool (Perl/CGI) - Perl-Community.de

[thread]14269[/thread]

perl diff tool

Leser: 14

Articles: hide open all | hide show old branches

+10 replies
Gast panthera

2009-11-19 17:06
Hallo zusammen,

ich muss ein bestehendes perl cgi debuggen, kenn mich mit dem Synthax nicht so gut. In dem Skript wird u.a. das diff aufgerufen, um zwei Dateien zu vergleichen. Die Datein unterscheiden sich an Zeilenende-Zeichen. Die eine hat nämlich LF und die andere CRLF. Es gibt wohl ein flag, mit dem man dem diff sagen kann, er soll die o.g. Unterschiede ignorieren. Kann mir jemand sagen, wie es heißt und wie ich das bei Aufruf mitgeben kann?

Mein Aufruf ist folgender Maßen:
Code (perl): (dl )

diff(file, file2, { STYLE => "OldStyle", CONTEXT => "0" })
Herzlichen Dank im voraus.
Panthera
- +3 replies
- renee
  
  2009-11-19 17:24
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Es handelt sich offenbar um das Modul Text::Diff. Dort kann man das nicht einstellen...
  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/
  - +2 replies
  - pq
    
    2009-11-19 18:24
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    2009-11-19T16:24:40 renee
    Es handelt sich offenbar um das Modul Text::Diff. Dort kann man das nicht einstellen...
    
    wer weiss... könnte auch String::Diff sein...
    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
    - renee
      
      2009-11-19 19:23
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Nicht von den Optionen her...
      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/
- +6 replies
- murphy
  
  2009-11-19 17:28
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Aufgrund der genannten Syntax des Aufrufes von diff vermute ich mal, Du verwendest das Modul Text::Diff, was soweit ich weiß keine Option unterstützt, um verschiedene Zeilentrennzeichen gleich zu behandeln. Allerdings kann man der diff-Funktion aus diesem Modul statt Dateinamen auch Dateihandles übergeben — mit Hilfe des IO-Layers :crlf sollte sich das gewünschte Verhalten also erreichen lassen.
  When C++ is your hammer, every problem looks like your thumb.
  - +5 replies
  - Gast panthera
    
    2009-11-20 10:34
    
    Vielen Dank für die antworten. Es ist in der Tat Text::Diff. Gibt es für String::Diff die Option? Vielleicht kann ich das umbauen.
    
    Grüße, Panthera
    - +4 replies
    - renee
      
      2009-11-20 11:30
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Ich würde es eher mit dem Vorschlag von murphy probieren. Das dürfte weit weniger Arbeit sein...
      
      Probier mal das (ungetestet):
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      use IO::File; my $io_file1 = IO::File->new( $file1, 'r' ); my $io_file2 = IO::File->new( $file2, 'r' ); $io_file1->binmode( ':crlf' ); $io_file2->binmode( ':crlf' ); my $diff = diff( $io_file1, $io_file2, { STYLE => "OldStyle", CONTEXT => "0" });
      
      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/
      - +3 replies
      - Gast panthera
        
        2009-11-20 15:39
        
        Hallo Renee!
        
        vielen Dank, das würde ich dann einbauen.
        Kannst Du mir sagen, was diese Abfrage und diese Zuweisung bedeuten?
        
        Code: (dl )
        
        1 2 3 4
        
        if ( $dls_file =~ /\r\n/ ) { $dls_file =~ s/\r\n/\n/g; }
        
        Danke & Grüße
        
        +2 replies
        
        bianca
        
        2009-11-20 15:50
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Guest panthera
        Hallo Renee!
        
        vielen Dank, das würde ich dann einbauen.
        Kannst Du mir sagen, was diese Abfrage und diese Zuweisung bedeuten?
        
        Code: (dl )
        
        1 2 3 4
        
        if ( $dls_file =~ /\r\n/ ) { $dls_file =~ s/\r\n/\n/g; }
        
        Danke & Grüße
        
        Das sind sog. Regular Expressions (RegEx).
        \r ist Wagenrücklauf (für Windows)
        \n ist newline, Neue Zeile.
        Der erste Regex fragt, ob das enthalten ist und wenn ja ersetzt der zweite Regex alle Vorkommen von Windows \r\n gegen Unix/Linux \n, weil \n reicht. Das zusätzliche \r davor kennt nur Windoof.
        
        Edit: s/kennt nur Windoof/nutzt nur Windoof als Zeilentrenner in ASCII-Dateien/
        Last edited: 2009-11-20 16:03:04 +0100 (CET)
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2009-11-20 15:55
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        zwei anmerkungen/ergänzungen:
        das if ist unnötig. es reicht einfach das s///
        
        "Das zusätzliche \r davor kennt nur Windoof." - das zeichen ist in ascii enthalten und von daher natürlich auch unter linux etc. bekannt. protokolle wie http benutzen das z.b. als zeilenende.
        
        windows benutzt aber CRLF, um zeilen in dateien abzuschliessen, unter linux wird da nur ein linefeed benutzt, das ist der unterschied. aber "kennen" tun das zeichen auch andere systeme.
        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 2009-11-19 17:06.