Show
Ignore:
Timestamp:
08/10/08 16:43:06 (5 years ago)
Author:
vkgtaro
Message:

String のルールとテスト追加ー

Location:
lang/perl/FormValidator-LazyWay/trunk
Files:
6 added
2 modified

Legend:

Unmodified
Added
Removed

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

    r16003 r17322  
    33use strict; 
    44use warnings; 
     5use utf8; 
    56 
    67sub length { 
    … …  
    1213 
    1314    return ( length $text > $args->{max} or length $text < $args->{min} ) ? 0 : 1; 
    14 } 
    15  
    16 sub string { 
    17     return 1; 
    18 } 
    19  
    20 sub no_check { 
    21     return 1; 
    2215} 
    2316 
    … …  
    3730sub ascii { 
    3831    my $text = shift; 
    39     return $text =~ /^\w+$/ ? 1 : 0; 
     32    return $text =~ /^[\x21-\x7E]+$/ ? 1 : 0; 
     33} 
     34 
     35sub alphabet { 
     36    my $text = shift; 
     37    return $text =~ /^[a-zA-Z]+$/ ? 1 : 0; 
     38} 
     39 
     40sub number { 
     41    my $text = shift; 
     42    return $text =~ /^[0-9]+$/ ? 1 : 0; 
    4043} 
    4144 
    … …  
    5053=head2 length 
    5154 
    52 =head2 string 
    53  
    54 =head2 no_check 
     55=head2 stash_test 
    5556 
    5657=head2 ascii 
    5758 
     59=head2 alphabet 
     60 
     61=head2 number 
     62 
    5863=cut 
    5964 

  • lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay/Rule/String/JA.pm

    r16003 r17322  
    77sub length { 
    88    '$_[min]文字以上$_[max]文字以下', 
    9 } 
    10  
    11 sub string { 
    12     '文字...これって、何チェッックするんだw', 
    139} 
    1410