Perl-Vergleich für zwei Variabeln gleichzeitig

[hotti]

auf die Schnelle;

Du brauchst ordentliche Datenstrukturen, überlege Dir, wie Du die Datei auf einen Hash bekommst. Der Rest ist dann einfach:

  
use strict;  
use warnings;  
use Data::Dumper;  
  
my $file = {  
	foo => {  
		color => 'red',  
		age => 3,  
	},  
	bar => {  
		color => 'red',  
		age => 4,  
	},  
	baz => {  
		color => 'black',  
		age => 99,  
	},  
};  
  
my @red = grep{ $file->{$_}{color} eq 'red'}keys %{$file};  
my @black = grep{ $file->{$_}{color} eq 'black'}keys %{$file};  
  
print Dumper \@red, \@black;  

Perlhuhn Hotti