2 Arrays vergleichen: und die ergebnisse in arrays speichern (Allgemeines zu Perl)

[thread]8592[/thread]

2 Arrays vergleichen: und die ergebnisse in arrays speichern

jane_templar

2006-12-18 20:18

User since
2003-11-26
23 Artikel
BenutzerIn
[default_avatar]

Hallo Leute,

ich habe hier ein Problem, ich habe 2 arrays, die als Inhalt alle Dateien eines Verzeichnisses haben (zB. d:\temp\sepp\test.txt).

Die Daten in den Arrays sind nicht alle gleich, ich hätte gerne am Ende 2 Arrays, in denen nur die Unterschiede enthalten sind.

Etwa in dieser Art:
vorher
Array1: 1, 2, 3, 4, 5
Array2: 3, 4, 5, 6

nachher
Array1: 1, 2
Array2: 6

Ideen??

Grüße,
JanE

renee

2006-12-18 20:35

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my @array1 = (1, 2, 3, 4, 5);
my @array2 = (3, 4, 5, 6);

my @nur_array1 = grep{my $i = $_; !grep{$_ eq $i}@array2}@array1;
my @nur_array2 = grep{my $i = $_; !grep{$_ eq $i}@array1}@array2;

print join(",",@nur_array1),"\n",join(",",@nur_array2),"\n";

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/

jane_templar

2006-12-19 07:23

User since
2003-11-26
23 Artikel
BenutzerIn
[default_avatar]

Uuups, jetzt bin ich wieder mal geplättet!

Funktioniert wunderbar, genau das was ich gesucht habe, vielen Dank!

JanE

View all threads created 2006-12-18 20:18.