awk: extracting data

Given a simple address book with poor formatting:

john doe john@domain.com 555-111-1212
sally@domain.co.uk 555-555-1212 sally doe
515-1212   joe blow    joe@domain.info
jane doe     jane@domain.com       bob doe  bob@domain.com
etc...

How can just the email addresses be extracted to a new file using awk
alone?

Please do not answer this question unless you have an answer that
works using only awk.

bash-2.03$ awk '
           {
              for(i=1;i<=NF;i++){
                  if($i ~ /@/){
                      print $i
                  }
              }
         }
' awktest
john@domain.com
sally@domain.co.uk
joe@domain.info
jane@domain.com
bob@domain.com

Thank you for using Google! Answers.

---

Clarification of Answer by bookface-ga on 07 Jun 2002 01:23 PDT

Thought I'd post a few comments to help you better understand the code.

In each line:

for(i=1;i<=NF;i++){ 
   for each field up to the number of fields,
if($i ~ /@/){ 
   if the current field contains an @ sign,
print $i 
   then it's an email address, print it.

Many, many thanks for the excellent answer and blazing fast response
time. Also appreciated the extra information you kindly added in the
clarification.