May 04, 2007
��돫ҏ�������������ď��¾��Ï����я���½Ð»���·������̏���������¡��½�������돪���������¡�²��ď������« SPAM �����㏢��������������\������¼\������̏���������������������𡯏��������·�����ď�¡�
�� ISP ���������½�������������������������������돢돢�·������·���²���\������¼\���\��\���\���\¹����������½Ð���·������������������������������������¡�돩�²��������·��������������ԏ�������¡�
������������\������¼\��������������я�������¡�²���¼��ҏ�����\������¼\��������ҡ�������������������Ð�돫������� 1,000 �������돪�¾���������¼��؏�ď��·������������������������������¡�����ď�������쏢����������³��������������������Ï����������������������������я��������¹���̏�¡��½���������� ISP ���̏�����������\������¼\������Ð��돫ӏ����ҏ��·�������������������������������������������«�����������Ï��«��¡�돫������䏢���� 3 ���� 5 �����������̏����㏢¡��䏪�����������µ������\������¼\�����¡·�����폢���������������Ï�������¡�\���\���\�������½��쏢�������������������¾�����������������䏪����������������\���\���\���\���¹��� (�����¹���) ���̏��µ��������¡�\���\���\������������Ώ�����¹��ԏ��̏�����������\������¼\������̏��������������������������¹��¡�
¼«���������� SMTP �����ҏ�����������������������ď�������ҏ��«�����������Ώ�������������¡�
Return-Path: <[email protected]> Received: from example.com ([220.96.28.15x]) by nm06mta.example.ne.jp id <[email protected]>; Fri, 4 May 2007 03:41:11 +0900 Message-ID: <[email protected]> Date: Fri, 4 May 2007 03:41:11 +0900 .���³�����я��������«�����я�������¡�
���³������������¼�����돪�����������������������������������\������¼\��������¡돫������� (���������³���������������³�����������⏢�»»��⏢�������·��������������) ���������̏�¡�·��������������������� Subject \���\���\��� (·������¾) ���������« From \���\���\��� (�������ď��¼���) ���̏�������돩Ώ��·��������������¡�
���½���·��������¡��«�������������������������¡�
Received \���\���\������������«���̡돪只����������¾�����������������¡�
��돪�������������\���\���\������������Ώ�����¹��ԏ�������¡�RFC 2821 ������ section 4.1.1.4 ������½��Џ��«������������������������
The mail data is terminated by a line containing only a period, that is, the character sequence "<CRLF>.<CRLF>" (see section 4.5.2). This is the end of mail data indication.�������ď�����������½��Џ��«������������������������������������¡�
��������������������¡�\���\���\»���¼\���������½��쏪�¼�����ҏ��½���½���¹������¹��ԏ�¡�
��������¡�\���\���\��������������䏪����������\���\���\���\���¹��� (�����¹���) ���̏��µ��������¡��¹���돢����\���\���\»���¼\���������½��쏪�¼ (\���\���\������������Ώ�����¹���) �����ҏ��������«��𡯏�����\������¼\��������ҏ�¡�����ď�������쏢���������������������������̏����Џ��·������������������ MUA "Becky! Internet Mail" ������¼��؏�ď��¹��������������¡��³�����я�������������������������������������·��������������¡�¼��؏�ď��½Ð���������������������������������������·�����������Ï�¡�
��������ď�������쏢����������������»��������Ï��³���������������������������̏�¡��ď�����������ď������»����������������������������������������������� MUA "Outlook Express" ���������«������¼��؏�ď��·��������������¡��³�����я�������������������������������������·��������������������¡�ޏ�����������¼��؏�ď���½Ð��������������������¡�
��������¡�¼«����̏�����¾���¹���������·����������ď�ԏ����䡭��� (����������������������ď��½µ�����) ��������������¡��³���������̏�����돩̏�������������³¼��؏�ď��½Ð������������������������������������������������������������������¾��؏����ӏ�����µ��������؏�������������¡�돪�����돢����¹²������������ Becky! ������������������������������������ "\���\������¼\���\������¼\���\���\���\���\¹" ������µ����½������»�����������¡��½������������»�ߏ��·���\������¼\��� (Subject ���� "(no subject)" ��������������������������������������¡�From ���̏��µ������\������¼\���) �����ҏ�돫�½��䏢�·���������«������¼��؏�ď�����¹��ԏ��������������������¹��¡�
���������������³������ ISP ���̡����������������������������������������»�����я�¡���½Ð���·������¾��Ï����я�����\������¼\���\��\���\���\¹��������������������������������«�����������ď��½�����Ï��������¹���·��¡�
���������·���«���·�����ď����� MUA ¼«�������̡������� (�����䏪�������̏��µ������\������¼\��������ҏ����只�������·������������������������������·��) �����������������Ï��«����������½Ð���������������¹��¡�
��������������¡����������Ï��·���������³�����Ï�����������\������¼\������̏��������������������������������������·������������������������������¾��؏����ӏ����� ISP ���̏����䏪���ӏ��·�������������������������«��������������ď�������쏢����������������²���½Ð���������������»�����я�¡�
�����������������Ώ�������¡��³�����Ï��������������������·�����������Ï��³��������������������������������¡�ISP ������ web \µ\���\��������� FAQ \��⏢�¼\�������������������¡���\������¼\���������¼��؏�ď��̏���������������������������������¹���̏�¡�¡ߏ�����������������¼��������������ҏ��«��������������¡��½���������������Ð���·������������²��я����⏢������¡��³������¾��آ�·����������������������������������������������只�������·��������������������������¡��³������\�ޏ��¼\¹�����������������������������������«���������·�����������Ï��������돪���������\���\���\���������\���\���������²��я����⏢¡�
����ޏ����� ISP ��������¡��ӏ�����������\������¼\�������¼��؏�ď��½Ð�����������������������������������ď�¡ߏ�������¡�����ď�� Blog �����㏢����½��Џ��«�������������������������������������«�����������������ď��������«¼��؏��ޏ��������������������¹���̏�¡�¼�����돪����� ISP ������\«\¹\���\������¼\µ\����¼\�������������������·������·���²�����¡��ӡ돫�������\��\«\���\���\���������돩������Ώ����������ҏ��·������²¼���µ��������¡ߏ�������¡��쏢���������돢����������²��я����⏢���ҏ��µ�����������ď�������¡�����������������\���\��������������������á돫������㏪����������¹������������»����������������\µ���¼\Ð���¼��������������\������¼\���¼«��������²��؏��������������������������½���������̏�����돩̏��«���������·������������������������������¡�web ¾���������\«\¹\���\������¼\µ\���\��������� web \������¼\��������������Џ�������¡�돫�����������������������\������¼\��������ҏ�돫�½������·��������������¡�(������ Blog ������������������½������·�������돫⏪����) ������²��я����⏢�µ���������������½�����Ï�������¡�
��������������������������¡��½������ ISP ���������³������»���¾�����������돩̏����ҏ��µ³��������������������돢�·������������������������������»�ߏ��������������������¹��¡�
���·���«���·��¡�¼«����̏��������������Ï�������¡�돪؏�ď�������쏢���������������������\������¼\��������ҏ�돫�½��䏢�·�����������������������Ï��������·������������������\������¼\�����������������������Ð��¡��½�����Ï�������������������������������¡�����������¼��؏�ď��·������������������������\������¼\�������������������������»���������������������������\������¼\�������������������������������������Ï�������¡��½�����я�����������¹½�����������돢�½���³��������돫�½��䏢�¹�����������������Ï�����»���¼�����¹�����������������я��������«�����������������Ï��½�������������������������������������·�����ď�¡�
�����������Ï��·������ 11 \���·��¢�������������³�����Ï�����������¾��؏����ӏ��̏����돢�������������³������������������������������������¡����돢�½Ð���������������½����������»������������ď�ď�����̏����������������я������������돢돢�·������²���·������·�����������Ï��������·�������������������������·�����������Ï��«��¡�¡�
��²��������������¡����������Ï�ď��\���·�������\������¼\�������¼��؏�ď��½Ð���������������������������������������·������������������������������¾��؏����ӏ�������¡�돪؏�����̏��������«�����������돢¡돪��������������䏢������������������������ď�������������������������я����������������Ï�����������»�ߏ��������������¹��¡�
���³������ ISP ���������½���������½������²��ҏ����я��·�����������Ï�����»�ߏ����Ï�����������¡��ӏ��������»��돢���������я��¾�����ҏ�����»�ߏ��������������¹��¡�
��������ď�������쏢������������¡��³�����я�����\¹\���\���\��\��������ҏ�ď�ԏ���̏����쏢����������«����������䏪���쏢��������돢�«���·��¡�MUA ������¼��؏�ď��½Ð���������������������������������������·������������\������¼\��������ҏ�돫�½��䏢�¹�����������������Ï��������·������²��я����ҏ��·���������������������¹��¡�
����ޏ����������������Ï�����¾��آ�·�����������돢�������µ��������������������������¡�Perl ����»�����𡯏�������¡�Net::POP3 �����ҏ����Џ����������������������������������������á�����������ҏ�����»��������������«�����ď�������¡����������Ï��¾������»����·���������������µ��������¡�
#!/usr/local/bin/perl use strict; use Net::POP3; use constant POP3_HOSTNAME => 'pop.k5.example.ne.jp'; use constant POP3_USERNAME => 'a123456789'; use constant POP3_PASSWORD => 'pAssWorD'; my $pop = Net::POP3->new(POP3_HOSTNAME, Timeout => 10); exit unless $pop->login(POP3_USERNAME, POP3_PASSWORD) > 0; my $stored = $pop->list; for my $num (sort { $b <=> $a } keys %$stored) { my $msg = $pop->top($num, 0); my $has_delimiter = 0; for my $line (@$msg) { next if $line =~ /[^\r\n]/; $has_delimiter = 1; last; } $pop->delete($num) unless $has_delimiter; } $pop->quit;