Here is a Perl Problem that was posed to me. I was given one day time to solve.� Unfortunately I did not know enough Perl to do it. And� sadly, I did not get selected.� However I wish to share this question with all. Please pose your answers or programs on this forum for the benefit of all friends. Submitted by� ilangocal.

Here is the link for the full questions in exforsys forum, see if you can answer ttp://www.exforsys.com/forum/showthread.php?t=499

Interview Candidate
Apr 16th, 2005
1
4270

Perl

Answer

First
Prev
Next
Last

Showing Answers 1 - 1 of 1 Answers

Vadivel raja

Dec 7th, 2005

i think the problem is straight forward and should be very simple to write a perl program for the same, below is the program. i havent run it to check if it works fine. comments are welcome
1. Assuming table 1 having the address has a structure
address_tbl (mailaddress char(255))
2. Assuming table 2 having the count of domains has a structure
domain_count_tbl (domain char(255), count int)

=========================================================================================
@maillist = query("select * from address_tbl")
for(i=0;i<scalar(@maillist;i++)
{
(name,domain) = split(/@/, myvar[i])
mylist[domain]++
}
foreach $key (keys %mylist)
{
@res = query("select 1 from domain_count_tbl where domain=$key")
if (scalar(@res) == 0 )
{
query(insert into domain_count_tbl values("$key",mylist[$key]))
}
else
{
query(update domain_count_tbl set count=mylist[$key] where domain="$key")
}
}