diff in Array einlesen

08/09/2008 - 11:04 von Helmut Schneider | Report spam
Hi,

ich möchte ein diff zweier Dateien in ein Array einlesen und bestimmte
Zeilen ausgeben. Leider ist mir die Syntax noch nicht ganz klar. Wie muss es
richtig heissen?

#!/usr/bin/perl
use strict;

use File::Temp qw(tempfile);
use Text::Diff;

my $line;
my @diff = (diff "/root/a.txt", "/root/b.txt", { STYLE => "Unified" });
foreach $line (@diff) {
if ($line =~ /^\-/) {
print $line . "";
}
}
exit 0;

[root@BSDHelmut ~]# perl ./test.pl
/root/a.txt Mon Sep 8 10:53:26 2008
+++ /root/b.txt Mon Sep 8 10:53:36 2008
@@ -1,9 +1,7 @@
1
-2
3
4
5
6
-7
8
9
[root@BSDHelmut ~]#

Danke und Gruß, Helmut

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

Lesen sie die antworten

#1 Frank Seitz
08/09/2008 - 12:00 | Warnen spam
Helmut Schneider wrote:

Wie muss es richtig heissen?



Was genau ist dein Problem?

Grüße
Frank
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel

Ähnliche fragen