Arrays vergleichen

18/09/2009 - 10:41 von Helmut Schneider | Report spam
Hi,

Ich möchte Arrays vergleichen und verwende derzeit Text::Diff[0]. Das ist
eigentlich kein Problem:


use Data::Dumper;
use Text::Diff;

my @array1 = ( "A", "B", "c" );
my @array2 = ( "a", "B", "C" );

@diff = (diff \@array1, \@array2, {STYLE => "Unified"});

print Dumper(@diff);


# perl ./test.pl
$VAR1 = '@@ -1,3 +1,3 @@
-A+a B-c+C';
#

Nur, wie bekomme ich die Diffs zeilenweise[1]?

$VAR1 = '@@ -1,3 +1,3 @@
-A
+a
B
-c
+C';

Mache ich den Diff nicht von Arrays, sondern von Dateien, klappt das.

Liegt es an Text::Diff, oder an mir?

Danke und Gruß, Helmut

[0] http://kobesearch.cpan.org/htdocs/T.../Diff.html
[1]
http://kobesearch.cpan.org/htdocs/T...ff_Unified

No Swen today, my love has gone away
My mailbox stands for lorn, a symbol of the dawn
 

Lesen sie die antworten

#1 Helmut Schneider
20/09/2009 - 02:09 | Warnen spam
Helmut 'Ingrid' Schneider wrote:

Liegt es an Text::Diff, oder an mir?




An mir, diff() liefert einen String zurück, steht da ja auch:
http://kobesearch.cpan.org/htdocs/T...l#SYNOPSIS

No Swen today, my love has gone away
My mailbox stands for lorn, a symbol of the dawn

Ähnliche fragen