Given an associative
array as the one given below:
NOMINET => {
name => 'omain Name:\s+(\S+)',
registrant => 'egistered For:\s*(.*?)\n',
ips_tag => 'omain Registered By:\s*(.*?)\n',
record_updated_date => 'Record last updated on\s*(.*?)\s+',
record_updated_by => 'Record last updated on\s*.*?\s+by\s+(.*?)\n',
nameservers => 'listed in order:[\s\n]+(\S+)\s.*?\n\s+(\S*?)\s.*?\n\s*\n',
whois_updated => 'database last updated at\s*(.*?)\n',
},
name => 'omain Name:\s+(\S+)',
registrant => 'egistered For:\s*(.*?)\n',
ips_tag => 'omain Registered By:\s*(.*?)\n',
record_updated_date => 'Record last updated on\s*(.*?)\s+',
record_updated_by => 'Record last updated on\s*.*?\s+by\s+(.*?)\n',
nameservers => 'listed in order:[\s\n]+(\S+)\s.*?\n\s+(\S*?)\s.*?\n\s*\n',
whois_updated => 'database last updated at\s*(.*?)\n',
},
How can I retrieve
the values for each of the keys within this array? I am assuming with my
perl program that these keys are getting filled, because I have
specified that the whois server needs to use this parser format in its
response.
Pls help with any
clues that you might have...
Thanks,
Kavita Chhabria
Systems Developer
Apogent Technologies
(269) 544-7515
