Changes between Version 40 and Version 41 of Dev/Perl


Ignore:
Timestamp:
Oct 29, 2011 7:32:55 PM (9 years ago)
Author:
mitty
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • Dev/Perl

    v40 v41  
    33 
    44 * [http://blog.cles.jp/item/3065 XML-RPCを使ってTracのチケットに添付ファイルを投げ込む(Perl編)] 
     5 * [http://www.tt.rim.or.jp/~canada/comp/cgi/tech/mailaddrmatch/ メールアドレスに一致する正規表現] 
     6 > {{{ 
     7 > # $mailre = '^[\x01-\x7F]+@(([-a-z0-9]+\.)*[a-z]+|\[\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\])'; 
     8 > }}} 
     9 > という正規表現を提案します。正確なアドレスを弾かずに、「なるべく」おかしなアドレスを弾く正規表現です。 
     10  * see also [http://www.din.or.jp/~ohzaki/mail_regex.htm メールアドレスの正規表現] 
    511 
    612 = perlbrew =