Thread zwei Arrays vergleichen und doppelten Inhalt löschen (31 answers)
Opened by Matze2.pl at 2014-11-13 10:27

Raubtier
 2014-11-13 16:42
#178345 #178345
User since
2012-05-04
1075 Artikel
BenutzerIn
[default_avatar]
Und wenn du diese Pfade in @a und @b tust, kommt auch genau die von dir markierte Datei heraus.

Du machst also irgendwas anderes falsch, es liegt nicht an den beiden Zeilen von FIFO.

Zum Nachvollziehen:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

my @a = qw(
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/wochenplan-14-15.pdf
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/k_loesch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/loeschtest.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/Projektleiter.xlsx
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/versuch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/Laufzettel_Aktuell_Formular.doc
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/130218_Persp0000.psd
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/Neuer Ordner/130218_Persp0000_(1).psd
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/Neuer Ordner/Neuer Ordner/130218_Persp0000_(2).psd.filepart
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/test.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/wochenplan-14-15.pdf
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/date.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/k_loesch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/k_loesch_script.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/loeschtest.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/Projektleiter.xlsx
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/love.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/loe.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/versuch.pl
);
my @b = qw(
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/k_loesch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/Projektarchivierung.xlsx
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/loeschtest.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/Projektleiter.xlsx
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/versuch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/Laufzettel_Aktuell_Formular.doc
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/130218_Persp0000.psd
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/Neuer Ordner/130218_Persp0000_(1).psd
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/Neuer Ordner/Neuer Ordner/130218_Persp0000_(2).psd.filepart
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/test.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/wochenplan-14-15.pdf
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/date.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/k_loesch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/k_loesch_script.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/loeschtest.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/Projektleiter.xlsx
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/love.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/loe.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/versuch.pl
);
my %h = map { $_ => 1 } @a;
@b = grep { ! exists $h{$_} } @b;

use Data::Dumper;
print Dumper \@b;

View full thread zwei Arrays vergleichen und doppelten Inhalt löschen