Re: Trying to capture a value from a list of values

[flexvault]

parthodas,

Here's how I would like to see your script: ( YMMV )

     use strict;
     . . .
     my @mylnxsrvrs = split(',', $myhash{SBLLNXSRVRHOSTS});
     foreach my $something ( @mylnxsrvrs )
     {    my $lnxsrvr = "$something";
          print "$something $lnxsrvr\n\n";
     }
     print "$lnxsrvr\n";              ## Undefined now!
     print "@mylnxsrvrs";

Save the 'printf' for formatted printing, so that it becomes obvious upon review. And if you had used structures, you would have known that '$lnxsrvr' is undefined when you exit the 'foreach' loop. Perl allows for generous whitespace, so use whitespace to help you follow the flow of your work. Originally when I looked at your code, I didn't notice the closure to the 'foreach' loop.

But I suspect your problem is in the 'split' and without seeing what '$myhash{SBLLNXSRVRHOSTS})' looks like, we can't help solve your problem.

Regards...Ed

[parthodas]

'$myhash{SBLLNXSRVRHOSTS})' has server names like -- dvapoms1,dvapoms2
The code shows below things --

@mylnxsrvrs = split(',', $myhash{SBLLNXSRVRHOSTS});
@mywinsrvrs = split(',', $myhash{SBLWINSRVRHOSTS});
@mysblroot = split(',', $myhash{SIEBELROOT});
@mysblsrvrpath = (',',$myhash{SBLSRVRPATH});
foreach $something (@mylnxsrvrs)
{my $lnxsrvr = "$something";
printf "$something $lnxsrvr\n\n";}  ##dvapoms1 dvapoms1
                                    ##dvapoms2 dvapoms2
printf "$lnxsrvr\n";                ##"shows null"
printf "@mylnxsrvrs";               ##dvapoms1 dvapoms2

Hope this clears the point. I need to catch dvapoms1 in $lnxsrvr.

[tangent]

Why have you completely ignored Ed's advice?

To get the first value of your array:

my $first_value = $mylnxsrvrs[0];

[parthodas]

I did not ignored Ed's advise. But could not apply it. Though using my $first_value = $mylnxsrvrs[0]; solved my issue. Thanks a lot.