Schnittmenge von 2 Arrays

5 Lösungen

Anfänger - Perl von Gustl - 06.08.2012 um 22:46 Uhr

Schreiben Sie ein Skript, das Sie auffordert 2 Integer-Arrays einzugeben. Aus diesen 2 Arrays soll dann ein drittes Array erzeugt werden, das nur die Elemente enthält, die in beiden Arrays vorkommen. Also die Schnittlänge dieser beiden Arrays.

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von TooBieee (610 Punkte) - 21.09.2017 um 10:27 Uhr

Perl-Code

use strict;
use warnings;
use feature qw(say);

say "Geben Sie für die erste Zeile (durch Leerzeichen getrennt) mehrere Zahlen ein:";
chomp (my $ersteZeile = <STDIN>);

say "Geben Sie für die zweite Zeile (durch Leerzeichen getrennt mehrere Zahlen ein:";
chomp (my $zweiteZeile = <STDIN>);

my @array1 = split (' ', $ersteZeile);
my @array2 = split (' ', $zweiteZeile);
my @array3;

foreach my $a (@array1) {
	foreach my $b (@array2) {
		if ($a eq $b) {
			push @array3, $a;
		}
	}
}

print "Folgende Zahlen kommen in BEIDEN Zeilen vor: ";
foreach (@array3) {
	print "$_ ";
}