���ϤƤʥ֥å��ޡ��� - ���� perl�פǰʲ���ȯ�����ơ�SPAM�Ȥ��襤���������󤶤ꤷ�Ƥ����ϴ��Ԥ˶����٤餻���ΤǤ���������˿�¡���٤äƤ��ޤ��ޤ�����
http://vrl.sys.wakayama-u.ac.jp/~twada/NNIPF.htmlNNIPF�Ǥϡ��桹��Ĺǯ���Ѥ���100���̰ʾ�����̤�SPAM�ǡ�����ܺ٤˲��Ϥ�����̡��Ǥ�Í���Ǥ���Ȼפ���������Ԥξ���פ���ħ�Ȥ������Ѥ��Ƥ���ޤ���
��������Ĥ򡤻��ꤵ�줿URL�������������ɤ��ơ������λ��ꤵ�줿̾����NNIPF�Υǥ��쥯�ȥ����¸���Ƥ���������-rw-r--r-- jcode.pl-2.13 http://www.srekcah.org/jcode/jcode.pl-2.13 -rwxr--r-- mimer.pl http://www.cc.rim.or.jp/~ikuta/mime_pls/mimer.pl
����򸫤���ü�˰����������ΤǤ��������ΰ����ϰʲ��򸫤Ƴο��ؤ��Ѥ��ޤ�����
NNIPF/PERL/analyze.plsub main'IpDictMatch{ ($query,$Dict, $Flg) = @_; @qaddr=split(/\./,$query); $dir=$Dict; for ($i=0, $match=0, $flag=1; $i<4; $i++){ if (-e ($filename=sprintf("%s/%s",$dir,$qaddr[$i])) ){ $fc=0; if ($Flg){ if (-e ($counter=sprintf("%s/Count",$filename))){ open(INc, $counter); while(<INc>) {$count=$_;} close(INc); unlink($counter); $count+=1; }else{$count=1;} open(OUTc, ">$counter"); print(OUTc $count); close(OUTc); } }elsif ($flag) { $flag=0; opendir DH, $dir or die "$dir:$!"; $fc=256; while (local $file = readdir DH) { next if $file =~ /^\.{1,2}$/; if (abs($file-$qaddr[$i]) < $fc) { $fc=abs($file-$qaddr[$i]); } } }else{$fc=256;} $match=$match*256+$fc; $dir=$filename; } return $match; }
....�������������Perl 4�Υ������Ǥ���Perl 5�Ȥ���ź�魯��Τϻ�μ��;��ޤ���
���줬1997ǯ�˽񤫤줿�ץ������ʤ������⤹��ΤǤ�������ä��Ȥ���2007ǯ���Υץ������Ǥ���Pkgname::identifier
�ǤϤʤ�Pkgname'identifier
�Ȥ�����ˡ���Τ������פ��֤�˸��ޤ�����
Perl 4�ǽ񤫤�Ƥ���(����Ǥ�Perl 5��ư��--�Ǥ�����--�ݤ���ư�����ʤ�)���Ȥ�����Ƥ⡢���Υץ������ˤ�ľ���ɤ��������ޤ��¿������ޤ����㤨�С����Υץ������Ǥ�IP���ɥ쥹1.2.3.4�����ѥ�ȯ�������Ȥ��ơ�����˴ؤ������׾����BIP/1/2/3/4/Count
�Ȥ���̾���Υե�����˵�Ͽ���Ƥ��ޤ�������ǤϺǶ�������̥ǥ������Ǥ�i-node��Â��ʤ��ʤꤽ���Ǥ������ʤߤ˻��mail server��i-node��������4800���塣IP���ɥ쥹�ο����������42�����ºݤ˻Ȥ��Ƥ����Τ�1���ʾ夢��ޤ���
���Ľ����������������򸫤�ȡ��ʤ��ʤ�Ω�ɤʤ�����򤵤�Ƥ���褦�Ǥ���ä��㤤�ޤ����ޤ������θ����ñ�ʤ븦���α�᤺�������NNIPF�Τ褦�˰��̤����ѤǤ�����Ǹ������Ʋ����뤳�Ȥ�Ƭ��������פ����פ��ޤ����������Ƥ��Τ����ƻ��Ȥ��ƥץ�����ߥ󥰸���Perl�����򤷤Ʋ����ä����ϡ�1 Perl Porter�Ȥ��ƴ��㤼���ˤϤ����ޤ���
��������ˡ�������Perl�θ�����Perl 4��α�ޤäƤ��ޤäƤ��뤳�Ȥ����ѻ�ǰ�˻פ��ޤ���2007ǯ��Perl�ϡ���������äȳڤˡ������Ƥ�ä�¿�̤˥ץ�����ह�뤿��δĶ��������Ƥ��ޤ���jcode.pl��mimer�ε�ǽ��Encode�Ȥ�������Perl��ɸ����������Ƥ��ޤ������ǡ�������¸��ˡ���̾�Υե�����Τߤʤ餺��DBM����SQL����Web API�˻��ޤdzƼ�·�äƤ��ޤ��������Ʋ��Ȥ��äƤ�CPAN������ޤ����������Τ餺��Perl��Ȥ��Τϡ����Ťʻ��֤�̵�٤˼������ȤˤʤäƤ��ޤ��ޤ���
����Ƥ��ꤤ���ޤ���Perl 5��ؤ�ľ���Ƥ��������������ȡ������Τ��ȤǤ�����21������Perl�ˤ��äȤ����ޤ��ɤ��Ĥ��Ǥ��礦�������ǤϤ����ơ֥����ܡפ��ȡ����Ƥ�Perl�פǤϤʤ��������ܤμ����ɤ�٤��ܤȤ����֥���ѥ��ܡפ��ȡ�³�����Ƥ�Perl �����ǡפ����ᤷ�ޤ����ѥå���������ե���󥹡��ϥå��塢���󡢥��֥롼���󡢥⥸�塼��Ȥ��ä���NNIPF�Τ褦�ʥ��եȥ�������ȯ����Ω��Perl 5�ʤ�ǤϤ�Perl�ε�ǽ���ü���᤯�ؤ֤Τ˺�Ŭ�ʰ���Ǥ����������Perl�ΥХ��֥�Ǥ���Programming Perl��������Ƥ����٤��Ǥ����������ξ��ϥ���ѥ��ܤ����硼�ƥ��ȥ��åȤ��Ȼפ��ޤ���
���� �� ��
Dan the Perl X Monger (Where X > 5.0)
http://vrl.sys.wakayama-u.ac.jp/~twada/TODO.html