awk收发邮件小脚本

#!/usr/bin/gawk -f
BEGIN {
    #gawk调用socket的网络通信格式：/inet/<tcp|udp|raw>/<0|local_port>/<remote_host>/<remote_port>
    Service = "/inet/tcp/0/mail.test.com/110"
    #gawk从ksh借鉴来的双向管道
    Service |& getline;
    print;
    print "USER raocl" |& Service
    Service |& getline;
    print;
    print "PASS raocl" |& Service
    Service |& getline;
    print;
    print "LIST" |& Service
    while ((Service |& getline line) > 0 && !(line~/^./) && ++mailCount) print line;
    mailCount--;
    if (mailCount > 0){
        print "RETR "mailCount |& Service
        while ((Service |& getline line) > 0 && !(line~/^./)) print line;
    }
    print "QUIT" |& Service
    close(Service)
}

#!/usr/bin/gawk -f
BEGIN {
    Service = "/inet/tcp/0/mail.test.com/25"
    Service |& getline;
    print;
    print "HELO mail.test.com" |& Service
    Service |& getline;
    print;
    print "MAIL FROM: user1@mail.test.com" |& Service
    Service |& getline;
    print;
    print "RCPT TO: user2@mail.test.com" |& Service
    Service |& getline;
    print;
    print "data" |& Service
    
    Service |& getline;
    print;
    print "from: user1@mail.test.com" |& Service
    print "to: <a href="mailto:user2@mail.test.com">user2@mail.test.com</a>" |& Service
    print "date: Fir, 8 Mar 2010 01:11:00 +0800" |& Service
    print "subject: testmail" |& Service
    print "hello, world!" |& Service
    print "." |& Service
    print;
    
    print "QUIT" |& Service
    
    close(Service)
}