Community  »  Perl: Allgemeines Forum

funktion exists	Seitenanfang
Sorry, Gestern war mein Programm ja gar nichts ich habe es ganz anders gemacht #!/usr/bin/perl -w use strict; my @List = (1, 2, 3, 4, 5); my @List2 = (1, 2); foreach my $item(@List) { if($item == @List2) # if(exists $item[List2]) { print ($item); } } Wenn ich das Programm laufen lasse gibt er nur die 2 aus, er soll aber auch die 1 ausgeben und ich weiss nicht wie ich die Funktion exists ausführen soll Datum: 18.04.2007-09:12
re: funktion exists	Seitenanfang
my @List = (1, 2, 3, 4, 5); my @List2 = (1, 2, 6); my @List3 = (); foreach my $item(@List) { @List3 = grep($item, @List2); # if($item == @List2) # if(exists $item($List2)); { print ($item); } } Wenn ich anstatt exists grep benutze? Nur es überschreibt die Datei und gibt jetzt nur @List zurück Datum: 18.04.2007-10:18
re: funktion exists	Seitenanfang
use strict; use warnings; my @List = (1, 2, 3, 4, 5); my @List2 = (1, 2); my %hash; $hash{$_}++ for @List, @List2; my @equal = grep { 1 < $hash{$_} } keys %hash; print qq($_\n) for @equal; Datum: 18.04.2007-10:39
re: funktion exists	Seitenanfang
Dankesehr :-) Aber ich bin noch Anfängerin habe es jetzt so gemacht und es funktioniert auch: #!/usr/bin/perl -w use strict; my @List = (1, 2, 3, 4, 5); my @List2 = (1, 2, 6); my @List3 = (); foreach my $item(@List) { @List3 = (@List3, grep(/$item/, @List2)); } print @List3; Datum: 18.04.2007-11:17