Re: comparing kit names

2008-05-09 Thread perl_learner
On May 8, 9:09 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: > perl_learner wrote: > > On May 7, 4:55 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: > >> perl_learner wrote: > >>> On May 6, 10:08 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: > perl_learner wrote: > > my @kits =

Re: comparing kit names

2008-05-08 Thread Gunnar Hjalmarsson
perl_learner wrote: On May 7, 4:55 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: perl_learner wrote: On May 6, 10:08 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: perl_learner wrote: my @kits = $KIT_LIST; How many elements do you think there are in @kits? I have ~100 elements @kits.

Re: comparing kit names

2008-05-08 Thread perl_learner
On May 7, 4:55 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: > perl_learner wrote: > > On May 6, 10:08 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: > >> perl_learner wrote: > > >>> my @kits = $KIT_LIST; > > >> How many elements do you think there are in @kits? > > > I have ~100 elements @k

Re: comparing kit names

2008-05-07 Thread Gunnar Hjalmarsson
John W. Krahn wrote: Gunnar Hjalmarsson wrote: perl_learner wrote: On May 6, 10:08 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: my @kits = split ' ', $KIT_LIST; Also with little change, "my @kits = split ' ', $KIT_LIST; ## added an extra space to split" I am getting the desired

Re: comparing kit names

2008-05-07 Thread John W. Krahn
Gunnar Hjalmarsson wrote: perl_learner wrote: On May 6, 10:08 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: my @kits = split ' ', $KIT_LIST; Also with little change, "my @kits = split ' ', $KIT_LIST; ## added an extra space to split" I am getting the desired output. The extra sp

Re: comparing kit names

2008-05-07 Thread Gunnar Hjalmarsson
perl_learner wrote: On May 6, 10:08 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: perl_learner wrote: my @kits = $KIT_LIST; How many elements do you think there are in @kits? I have ~100 elements @kits. Why did you ask this question? Because when you just said my @kits = $KIT_LI

Re: comparing kit names

2008-05-07 Thread perl_learner
On May 6, 10:08 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: > perl_learner wrote: > > On May 5, 3:26 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: > > >>      my @kits = 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 %ha

Re: comparing kit names

2008-05-06 Thread Gunnar Hjalmarsson
perl_learner wrote: On May 5, 3:26 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: my @kits = 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

Re: comparing kit names

2008-05-06 Thread perl_learner
On May 5, 3:26 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: > 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 ,

Re: comparing kit names

2008-05-05 Thread Gunnar Hjalmarsson
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.

comparing kit names

2008-05-05 Thread perl_learner
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