Automatic Processing System on Internet Text Messages Hiroyuki EDO abd Yoshiyuki SAKAMOTO 1 Return-Path: Return- Path: RFC822: Standard f

Size: px

Start display at page:

Download "Automatic Processing System on Internet Text Messages Hiroyuki EDO abd Yoshiyuki SAKAMOTO 1 Return-Path: Return- Path: RFC822: Standard f"

なごみさどひら
5 years ago
Views:

1 Automatic Processing System on Internet Text Messages Hiroyuki EDO abd Yoshiyuki SAKAMOTO 1 Return-Path: Return- Path: RFC822: Standard for ARPA Internet Text Messages 163

2 2000 RFC822:ARPA RCF Requests for Comments 1200 RFC822Standard for ARPA Internet Text Messages Return-Path: <liberoevo@mail7.dddd.ne.jp> Received: from sumichan1a.kasei.ac.jp (sumichan.kasei.ac.jp [ ]) by inm-svr1.inst.kasei.ac.jp (Post.Office MTA v3.1.2 release (PO c) ID# U1000L2S100) with ESMTP id AAA254 for <edo@in.kasei.ac.jp>; Mon, 27 Sep :43: Received: from webmaster.dddd.ne.jp (webmaster.dddd.ne.jp [ ]) by sumichan1a.kasei.ac.jp ( Wbeta7/3.7W) with SMTP id OAA11518 for <edo@in.kasei.ac.jp>; Mon, 27 Sep :43: (JST) Received: (qmail 7516 invoked by uid 200); 27 Sep :43: Message-ID: <936oAfP1kTtxs8Q91TZAsnepXVQm8ShXiLsCkyokYaWS UWUnu5exxA gtwbuxsj.n@mail7.dddd.ne.jp> Date: Mon, 27 Sep :43: X-Mailer: RobotMail Ver2.00b2 X-Priority: 3 X-MSMail-Priority: Normal From: Hiroyuki-E <liberoevo@mail7.dddd.ne.jp> To: Hiroyuki EDO <edo@in.kasei.ac.jp> Subject: MIME-Version: 1.0 Content-Type: text/plain; charset=iso-2022-jp Content-Transfer-Encoding: 7bit 164

3 . From: From. in.kasei. ac. jp 1. From: hanako tsukuba <tsukuba@in.kasei.ac.jp> 2. From: <tsukuba@in.kasei.ac.jp> 3. From: ibaraki@in.kasei.ac.jp kenji ibaraki 4. From: ibaraki@in.kasei.ac.jp 5. From: aduma@in.kasei.ac.jp. Date: Date 1. Date: Mon, 10 May :10: Date: Sat, 28 Aug :34: Date: Tue, 20 Mar :50:28 EST 4. Date: Fri, 12 Mar :28:23 PST ESTPST 1. GMT: Greenwich Mean Time 2. E S T: Eastern Standard Time 3. P S T: Pacific Standard Time. Subject: Subject 1. Subject: 2. Subject: Re: Re:Reply 165

4 2000. From From: ().. < > From: hanako tsukuba < >.. From: From: Date Date: Tue, 20 Mar :50: Date:. Subject: Subject: Subject:., LISP AWK Perl AWK MS-DOS UNIX AWK AWK 4) 5) AWK 3Alfred V.Aho Peter J.Weinberger Brian W.Kernighan AWK AWK 166

5 AWK AWK GUN AWK GAWK JGAWK AWK Microsoft-Excel Microsoft-Excel Microsoft-Windows Excel Spread Sheet 1 1 cell 4. mail.awk.begin END AWK BEGIN END BEGIN{ print MailAddress, Date, Week, StandardTime, Subject ; BEGIN { MailAddress Date Week StandardTime Subject END{ { 167

6 2000 BEGIN { print MailAddress, Date, Week, StandardTime, Subject ; /^Return-Path: /{ mode=0; from= ; date= ; subject= ; /^From:/{ from=address($0); /^Date:/{ date=day($0); /^Subject:/{ subject=splithead($0); /^$/ { if(mode==0){ mode=1; print from, date, subject; END { function address(ptr) { addr1=splithead($0); n=split(addr1,addr2, < ); if(n>1){ n=split(addr2[2],addr3, > ); addr=addr3[1]; else{ addr=addr1; gsub(/ /,,addr); gsub(/ ([^( )] )/,,addr); gsub(/ ([^( )] )/,,addr); return addr; function day(ptr){ addr1=splithead($0); split(addr1,addr2, ); addr=addr2[2] addr2[3] addr2[4] addr2[5], addr2[1] addr2[6]; return addr; function splithead(ptr){ m=index(ptr, : )+2; addr1=substr(ptr,m); return addr1; mail.awk 168

7 . /.. /^Return-Path:/{ mode=0; from= ; date= ; subject= ; Return-Path: { mode Return-Path: from datesubject.. From /^From:/{ from=address($0); From: { address.. Date /^Date:/{ date=day($0); Date: { day.. Subject /^Subject:/{ subject=splithead($0); Subject: { splithead.. /^$/ { if(mode==0){ mode=1; print from, date, subject; $ { if mode==0 mode( )mode, fromdatesubject mode. AWK function { return return. From From address address function address(ptr){ addr1=splithead($0); n=split(addr1,addr2, < ); if(n>1) { 169

8 2000 n=split(addr2[2],addr3, > ); addr=addr3[1]; else { addr=addr1; gsub(/ /,,addr); gsub(/ ([^( )] )/,,addr); gsub(/ ([^( )] )/,,addr); return addr;.. addr1=splithead($0) From splithead From: hanako tsukuba <tsukuba@in.kasei.ac.jp> addr1.. <addr1 n=split(addr1,addr2, < ) addr1 < addr2 addr2[1]=hanako tsukuba addr2[2]= tsukuba@in.kasei.ac.jp>n < addr1n.. if(n>1) { n=split(addr2[2],addr3, > ); addr=addr3[1]; else { addr=addr1; if n>1 else.. > 5.4.3n n=split(addr2[2],addr3, > ) addr2[2] tsukuba@in.kasei.ac.jp> > tsukuba@in.kasei.ac.jp addr3[1] addr=addr3[1] addr 5.4.3n addr addr1 < > ibaraki@in.kasei.ac.jp aduma@in.kasei.ac.jp.. addr gsub(/ /,,addr); gsub(/ ([^( )] )/,,addr); gsub(/ ([^( )] )/,,addr); gsub(/ /,,addr) addr gsub(/ ([^( )] )/,, addr)addr ( ) (suzuki(satou) kazuko).. return addr address 170

9 5.2.2 from. Date Date day day function day(ptr) { addr1=splithead($0); split(addr1,addr2, ); addr=addr2[2] addr2[3] addr2[4] addr2[5], addr2[1] addr2[6]; return addr; addr1=splithead($0); Date Date: Mon, 10 May :10: addr1.. return addr day date. Subject Subject splithead FromDate splithead function splithead(ptr) { m=index(ptr, : )+2; addr1=substr(ptr,m); return addr1;.. m=index(ptr, : )+2 : : m.. addr1 split(addr1,addr2, ) addr1 addr2 addr2[1]=mon, addr2[2]=10 addr2[3] =May addr2[4]=1999 addr2[5]=10:10:10 addr 2[6]= addr=addr2[2] addr2[3] addr2[4] addr 2[5], addr2[1] addr2[6];,,, addr 10 May :10:10, Mon, +900 subject: m addr1=substr(ptr,m) m addr1 subject: addr1.. return addr splithead subject 171

10 2000. AWK MS-DOS awk JGAWK.EXE mail.awk JGAWK.EXE MS-DOS MS-DOS C: awkjgawk. EXEEnter JGAWK. mail. awk AWK 1.AWK - 2. AWK f mail.awk Enter jgawk-f mail.awk c: eudora.mbx { print> mail.csv mail.csv AWK MS-DOS 172

11 JGAWK.EXE mail.awk. MS-DOS C: awkexit EnterMS-DOS ( ). MS-Excel mail.csv MS-Excel ExcelExcel CSV Excel mail.csv Excel CSV CSVComma Separated Value format 173

12 2000 MS-DOS Excel Excel 174

13 , Excel. Excel Excel mail.xls Excel 11 Excel 175

14 2000. mail. csv MailAddress,Date,Week,StandardTime,Subject May :12:09,Wed, +0200,Re: Apr :06:18,Thu, +0300, Apr :27:39,Fri, +0900,1998 Apr :17:15,Fri, +0900, Apr :31:31,Thu, +0900, May :03:50,Tue, +0900,Notification for Jun :33:36,Fri, +0900,1 Jul :37:08,Tue, +0900, Aug :11:00,Wed, +0900, Aug :33:33,Thu, +0900, Sep :01:20,Thu, +0900, Sep :25:30,Fri, +0900, Sep :47:58,Thu, +0900,. mail.xls MailAddress Date Week StandardTime Subject 1998/5/27 14:12 Wed Re: 1998/4/917:06 Thu /4/10 12:27 Fri /4/10 17:17 Fri /4/30 10:31 Thu /5/25 16:03 Tue Notification for 1998/6/19 11:33 Fri /7/21 17:37 Tue /8/59:11 Wed /8/69:33 Thu /9/311:01 Thu /9/414:25 Fri /9/10 14:47 Thu

15 AWK Excel 1 RFC822: Standard for ARPA InternetText Messages David H. Crocker 2 sendmail Bryan Costales Eric Allman Neil ricket Alfred V.Aho Peter J.Weinberger Brian W.Kernighan 177

untitled

untitled 2013. Apr.4 Mon Tue Wed Thu Fri Sat Sun 4/1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 5/1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 TEL WEB 1 2 3 4 1 2 3! ENTER 2013. 329 2013.