/*
 * 从文件里得到邮件地址 2003-2-8 17:15
 */
#include
#include
#define mailMaxLen 20
#define bufMaxLen 200

long filesize(FILE *stream)
{
 long curpos, length;
 curpos = ftell(stream);
 fseek(stream, 0L, SEEK_END);
 length = ftell(stream);
 fseek(stream, curpos, SEEK_SET);
 return length;
}

int main(int argc,char *argv[])
{
 FILE *fp,*fp_write;
 int i,temp_len;
 int bool_find=0,bool_finished=0;
 long file_len=0;
 char fileName[30],write_file[30];
 char mail_data[50];     //保存得到的临时邮件
 char *buf;
 char *p,*mail_begin,*temp_p;
 if(argc!=2)
 { printf("error!\nExp: %s yourmail.dat\n",argv[0]);
  return 0;
 }
 sprintf(write_file, "tmp_%s", argv[1]);  //生成要写入的文件名
 strcpy(fileName, argv[1]);
 if((fp=fopen(fileName,"rb"))==NULL)
 { printf("\nCan't open The file for %s to read! \n",fileName);
  printf("Press any key to halt!");
  return(0);
 }

 if((fp_write=fopen(write_file,"w"))==NULL)
 { printf("\nCan't open The file for %s to write! \n",fp_write);
  printf("Press any key to halt!");
  return(0);
 }

 file_len=filesize(fp);
 buf=(char *)malloc(file_len);
 fread(buf,file_len,1, fp);
 for(p=buf;*p!='\0';p++)
 {
//  if(*p=='_' || *p=='.' || (*p>='0' && *p<='9') || (*p>='a' && *p<='z') || (*p>='A' && *p<='Z') )

  if(*p=='@')
  {
   bool_finished=0;
   bool_find=0;
   mail_begin=p;
   temp_len=0;
   while(temp_len   {
    p--;
//如果符合标准的
    if(*p=='_' || *p=='-' ||  *p=='.' || (*p>='0' && *p<='9') || (*p>='a' && *p<='z') || (*p>='A' && *p<='Z'))
    {
     temp_len++;
    }
    else
    {
     break;
    }
   }
   p++;//指向正确的开始
//eregi("^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3}$",$email))
   if(mail_begin!=p)   //符合条件了
   {
    temp_p=mail_begin;  //这时temp_p 指向@处
    mail_begin=p;   //记录邮件名开始地址
    p=++temp_p;    //p指向@后的第一个字符
//    printf("%s %c","ok",*temp_p);

    //接下来的第1个字符应该是a-z 0-9 之间
    while((*p>='0' && *p<='9') || (*p>='a' && *p<='z') || (*p>='A' && *p<='Z') && *p!='\0')
    {
     p++;
     //紧接着应该是a-z -
     if(*p=='-' || (*p>='0' && *p<='9')  || (*p>='a' && *p<='z') || (*p>='A' && *p<='Z'))
     { p++;
     }
     else
     { bool_find=0;
      break;
     }
     temp_len=0;   //cd.digital@cfan.com.cn
     while(temp_len     { if(*p=='-' || (*p>='0' && *p<='9')  || (*p>='a' && *p<='z') || (*p>='A' && *p<='Z'))
      { p++;
       temp_len++;
      }//
      else if(*p=='.')//找到点.了  +[a-z]{2,3}$
      { bool_find++;//找到一段了
       temp_p=p;  //temp_p 指向.所在的位置
       p++;
       break;
      }
      else
      { bool_finished=1; //退出循环
       break;
      }
     }//while(temp_len     if(bool_finished==1 && bool_find==0)//不符合
      break;
    }//while
   }//   if(mail_begin!=p)   //符合条件了
// ggg@chinatoolsnet.cnggg _w@163.net
   if(bool_find>0)
   {
    p=temp_p;  //p退到最后一个.的位置
    p=p+3;
    if(!((*p>='a' && *p<='z') || (*p>='A' && *p<='Z'))) //最后的 .net 不符合
    { p--;
    }
/*
    for(temp_p=mail_begin;temp_p<=p;temp_p++)
    { printf("%c",*temp_p);
    }
*/
//   strncpy(mail_data, mail_begin, 3);
    fwrite(mail_begin, p-mail_begin+1, 1, fp_write);
    fputc('\n',fp_write);
//    printf("%c",'\n');
    *p=' '; //这样做是为了下次检查时从此开始
   }
  }//  if(*p=='@')
//  printf("%c",*p);
 }//for
 fclose(fp);
 fclose(fp_write);
 free(buf);
 printf("\n--------------------\nok!");
 printf("\nfile writed to '%s'!",write_file);

 return(0);
}