Pandey Rajeev-A19514 wrote:
> Hi Bob,
>
> There is a simple problem here
> ********************
> The file is -->
>
> TEST_CASE_FILE_PATH = ../testcases/CAT/
> TEST_CASE_OUTPUT_PATH = ../testlogs/
> SERVER_NAME = sunomcr
> ********************
> $VAR1 = 'TEST_CASE_FILE_PATH';
> $VAR2 = '../testcases/CAT/';
> $VAR3 = 'SERVER_NAME';
> $VAR4 = 'sunomcr';
> $VAR5 = 'TEST_CASE_OUTPUT_PATH';
> $VAR6 = '../testlogs/';
>
> foreach $key (%hash_line) { print "$key => $hash_line{$key}\n";}
> The output is like this -->
>
> TEST_CASE_FILE_PATH => ../testcases/CAT/
> ../testcases/CAT/ =>
> SERVER_NAME => sunomcr
> sunomcr =>
> TEST_CASE_OUTPUT_PATH => ../testlogs/
> ../testlogs/ =>
>
> It seems it takes all the elements in the list as the key.
>
> Regards
> Rajeev
I'm sorry, I don't see what any of this has to do with what you originally
posted. Perhaps we need to start over.
>
> -----Original Message-----
> From: Bob Showalter [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, September 23, 2003 8:56 PM
> To: 'Pandey Rajeev-A19514'; [EMAIL PROTECTED]
> Subject: RE: Need help on Hash Slices. !!
>
>
> Pandey Rajeev-A19514 wrote:
> > Hi,
> >
> > I have a list like
> >
> > @list = ( "key1: Vlan1 :0989\n"
> > "key2: Vlan2 :0989\n"
> > "key3: Vlan3 :0989\n"
> > "key4: Vlan4 :0989\n");
> >
> > I wanted to make a hash with keys as key1, key2 , key3, key4.
> >
> > I want to write something like this :
> > **********************************************
> > my @keys, @values, @key_to_value;
> > (@keys, @values) = map /(key\d+): (\w+).*?$/, @list;
> > @[EMAIL PROTECTED] = @values;
> >
> > But the problem is the map function just creates one list
> > i.e. @keys .. so I am not able to make the hash.
> >
> > ie .. I want to extract @keys and @values in one go and then
> > use the HASH SLICE to get the desired result.
> >
> > Can some one help me. The only this is I don't want to
> > extract @keys and @values separately.
>
> Since map is returning a list in the form key, value, key, value, ...
> you can just assign directly to a hash:
>
> my %key_to_value = map /(key\d+): (\w+)/, @list;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
