Opened by Gast at 2005-11-28 02:45
User since
2005-12-09
7 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-12-09
7 Artikel
BenutzerIn
Danke euch für euere Vorschläge recht herzlich. bekomme es aber nicht hin :( ich versuch mal mit 'nem Beispiel deutlicher zu werden. Also habe zB 2 Dateien mit folgendem Inhalt, die ich @A1=split (" ", $file1,5); ausgebe:
Datei 1: Ausgabe: Datei 2:
q1 lm1 lm9 above - Bla1 : q1 q3 lm3 lm5 front likely
q2 lm2 lm8 below directly Bla2 : lm1 q1 lm1 lm9 above -
q4 lm4 - between like Bla3 : lm9
Bla4 : above
Bla5 : -
bevor ich euch den Vergleichscode zeige den ich mal so simple geschrieben habe :blush: möchte ich schriftlich mitteilen was ich erreichen möchte:
ich möchte das erste element im Array mit dem zweiten Element vergleichen und wenn Sie gleich sind, soll er die restlichen elemente Vergleichen und sie ausgeben.
es funktioniert nicht so wie ich es möchte. Freue mich jetzt schon auf die Kritik. Vielen Dank !\n\n
<!--EDIT|renee|1134112419-->
Datei 1: Ausgabe: Datei 2:
q1 lm1 lm9 above - Bla1 : q1 q3 lm3 lm5 front likely
q2 lm2 lm8 below directly Bla2 : lm1 q1 lm1 lm9 above -
q4 lm4 - between like Bla3 : lm9
Bla4 : above
Bla5 : -
bevor ich euch den Vergleichscode zeige den ich mal so simple geschrieben habe :blush: möchte ich schriftlich mitteilen was ich erreichen möchte:
ich möchte das erste element im Array mit dem zweiten Element vergleichen und wenn Sie gleich sind, soll er die restlichen elemente Vergleichen und sie ausgeben.
Code: (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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
foreach my $x (@A1)
{
foreach my $y (@A2)
{
if ($A1[0] eq $A2[0]) # Bla1
{
if ($A1[1] eq $A2[1]) # für Bla2
{
print"\nIm $A1[0]: \n";
print "\ngemeinsame Bla2 : 1. $A1[1] 2. $A2[1]\n";
$x++;
}
else
{
print "\nBla2 nicht gleich: $A1[1] $A2[1]\n";
$y++;
}
if ($A1[2] eq $A2[2]) # für Bla3
{
print "gemeinsame Bla3 : 1. $A1[2] 2. $A2[2]\n";
$x++;
}
else
{
print "\nBla3 nicht gleich $A1[2] $A2[2]\n";
$y++;
}
if ($A1[3] eq $A2[3]) # für Bla4
{
print "gemeinsame Bla4 : 1. $A1[3] 2. $A2[3]\n";
$x++;
}
else
{
print "\nBla4 nicht gleich $A1[3] $A2[3]\n";
$y++;
}
if ($A1[4] eq $A2[4]) # für Bla5
{
print "gemeinsame Bla5 : 1. $A1[4] 2. $eA2[4]\n";
}
else
{
print "\nBla5 nicht gleich $A1[4] $A2[4]\n";
}
}
}
}
es funktioniert nicht so wie ich es möchte. Freue mich jetzt schon auf die Kritik. Vielen Dank !\n\n
<!--EDIT|renee|1134112419-->