Show
Ignore:
Timestamp:
12/16/08 20:54:02 (6 years ago)
Author:
vkgtaro
Message:

記号を含まない ascii ルール(半角英数字のみ)追加。ハイフンとかアンダースコアは allow に追加すれば許可できるよ

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay/Rule/String.pm

    r26775 r26882  
    3333} 
    3434 
     35sub nonsymbol_ascii { 
     36    my ($text, $args) = @_; 
     37 
     38    if ( ref $args->{allow} eq 'ARRAY' ) { 
     39        foreach my $allow ( @{$args->{allow}} ) { 
     40            $text =~ s{$allow}{}xmsg; 
     41        } 
     42    } 
     43 
     44    return $text =~ /^[a-zA-Z0-9]+$/ ? 1 : 0; 
     45} 
     46 
    3547sub alphabet { 
    3648    my $text = shift; 
     
    5769=head2 ascii 
    5870 
     71=head2 nonsymbol_ascii 
     72 
     73only alphabets and numbers. 
     74 
     75you add $args->{allow} if you accept symbols. 
     76 
     77  username: 
     78    rule: 
     79      - String#nonsimbol_ascii: 
     80          args: 
     81            allow: 
     82              - '_' 
     83              - '-' 
     84 
    5985=head2 alphabet 
    6086