Re: comparing kit names

perl_learner wrote:
> Hi,
> 
> I have these type of kits in unix location.
> 
> aaa.t.z aaa_d.t.z bbb.t.z bbb_d.t.z ccc.t.z ccc_d.t.z ddd.t.z eee.t.z
> (there will be more numbers).
> 
> I have to come up with idea, so that ,
> it compares for each *.t.z kit in that location, that it has the
> corresponding *_d.t.z. If any *.t.z doesn't have corresponding
> *_d.t.z, it will print out the list of that/those kit/kits. In this
> case, it should print out:
> 
> ddd.t.z eee.t.z
> 
> Currently I am putting the kit list in an array, still not able to
> compare them correctly.

One way:

     my @[EMAIL PROTECTED]
 = qw( aaa.t.z aaa_d.t.z bbb.t.z bbb_d.t.z
                   ccc.t.z ccc_d.t.z ddd.t.z eee.t.z );

     my %hash = map {
         ( my $tmp = $_) =~ s/_d(\.t\.z)$/$1/; $tmp => 1
     } grep /_d\.t\.z$/, @[EMAIL PROTECTED]
     foreach my $kit ( grep !/_d\.t\.z$/, @[EMAIL PROTECTED]
 ) {
         print "$kit\n" unless $hash{$kit};
     }

-- 
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl