Re: How to juggle between two arrays that are not same size


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: How to juggle between two arrays that are not same size

by kyle (Abbot)

on Dec 19, 2007 at 17:19 UTC ( #657920=note: print w/replies, xml )

Need Help??

in reply to How to juggle between two arrays that are not same size

use Data::Dumper;

@Names=qw(A B C);
@FullRecord=qw(A_1 D_4 C_3 F_6 B_2);

@name_presence{@Names} = ();
@DesiredRecord
    = grep { exists $name_presence{(split /_/)[0]} } @FullRecord;

print Dumper \@DesiredRecord;
__END__
$VAR1 = [
          'A_1',
          'C_3',
          'B_2'
        ];
[download]