NAME
TL::Validator - Batch processing of verification of value (ja)
NAME (ja)
TL::Validator::JA - ��ゃ�勖��荐若�勌����㋚�☎��
SYNOPSIS
my $validator = $TL->newValidator;
$validator->addFilter(
{
name => 'NotEmpty;NotWhitespace',
email => 'NotEmpty;NotWhitespace[NotEmpty];Email',
}
);
my $error = $validator->check($form);
DESCRIPTION
Form��ŝ����吾�с�壔����ゃ�勖��荐若�勌����㋚�☎�����茵�������
METHODS
- $TL->newValidator
-
$validator = $TL->newValidator
TL::Validator ��ŝ����吾�с�壔�����篏�������
- addFilter
-
$validator->addFilter( { name => 'NotEmpty;NotWhitespace[NotEmpty]', email => 'NotEmpty;NotWhitespace[NotEmpty];Email', password => 'NotEmpty;CharLen(4,8);Password', } )
�����ŝ����若�帥�˨����c�˨�帥��荐㊤����������� 罎�荐弱嚳莟<����ŝ�������í�若����勉�㏍�若��絲障����������c�˨�帥�ŝ�鴻��������絎����������
�����c�˨�炊��絎�綵√����������⓾�壔��
FilterName(args)[message]
���������;�����阪����������������� ���(args)������������[message]�����夌����ュ櫝�純�� ���(args)�����������ャ�������翫����壔����������������勉����c�˨�帥�˨�������������í�˨����勉����с����壔��茵������� ���[message]�����������ャ�������翫����壔��check��勖�祉�������˨����c�˨�水�����菴�������
- check
-
$error = $validator->check($form)
荐㊤�������������c�˨�帥����ñ�������⓾�������í�若����勐�ゃ��罎�荐若��������
��������������勉����í�若����勉�㏍�若��絲障����⓾����í�若����������違�����[message]�����������������壩��絎������ŝ����翫����壔����c�˨�水�������ゃ����������������激�ャ�ŝ����<�㋘�潟�鴻��菴������� �����í�若����ŝ�������違�������勉�㏍�若�壠�˨�障����ŝ�����
- getKeys
-
@keys = $validator->getKeys
�憜�◑┃絎���������⓾����������c�˨�帥�勉�㏍�寂��荀с��菴�������
�����c�˨�推��荀
腟���粋昭��帥����c�˨�
- NotEmpty
-
��ゃ��腥削��undef��障�����0���絖�鐚���с�ŝ����������������с����壔��������
- NotWhitespace
-
���茹�/��◑����鴻����若�鴻����帥����勉�帥�������������夌Ã鐚�undef��障�����0���絖�鐚���с�ŝ����������������с����壔��������
- PrintableAscii
-
���絖���������九勝��潟�若�������ゃ��ASCII���絖���勉�帥�ф�������������⓾�������������с����壔��������
- Wide
-
���絖���������◑�����絖���勉�帥�ф�������������⓾�������������с����壔��������
- Password
-
���絖����������茹���勖�医�������≪�˨����<��������紊ф��絖����絨����絖����荐��垩�� �����〠��篏�1�����ゅ�˨����с�������������с����壔��������
- ZipCode
-
7罅���勰�灸梢��ɱ埦��XXX-XXXX綵√�澾���������с����壔��������
絎������������灸梢��ɱ垩����í�������夌∈茯������ŝ�����
- TelNumber
-
��肢º��ɱ埦��/^\d[\d-]*\d$/鐚���������с����壔��������
��医����у����障�������医����х����������������勰�������医����������ゃ�����(-)��勉�帥�ф�������������⓾�������育�肢º��ɱ垩����帥�ŝ�����
-
��<�若�˨�≪����㋘�鴻�������〠③������綵√����������с����壔��������
- MobileEmail
-
��<�若�˨�≪����㋘�鴻�������〠③������綵√����������с����壔��������
篏������阪遣��肢º��勉�<�若�˨�≪����㋘�鴻�с�壔����≪�˨�⓾�潟�������勖��絨障�˨����ŝ�ŝ�������˨����с�������翫�������������冴�����������罩c�����綵√����с����������帥�ŝ�����
��阪遣��肢º��㏍�c�ŝ�≪�勉����<�ゃ�喝�������ゅ�ャ�������������с�壔�ŝ��������������絽吾�勉�<�若�˨�≪����㋘�鴻��罩c�����綵√����с����������帥�ŝ�����
- Integer($min,$max)
-
��贋�違�с��������$min篁ヤ��$max篁ヤ����������с����壔�����������絎���ゃ�夌����ュ櫝�純��
��������í�˨����с�壔�����紊ф��絨���勉����с����壔�虁�������ŝ����贋�違�с�������井③������綵√����с����������帥�ŝ�����
- Real($min,$max)
-
��贋�違����������壠����違�с��������$min篁ヤ��$max篁ヤ����������с����壔�����������絎���ゃ�夌����ュ櫝�純��
��������í�˨����с�壔�����紊ф��絨���勉����с����壔�虁�������ŝ�������贋�違����������壠����違�с�������井③������綵√����с����������帥�ŝ�����
- Hira
-
綛割皿��������������˨�障����⓾�������������с����壔��������
- Kata
-
���篁勐�������������˨�障����⓾�������������с����壔��������
- ExistentDay
-
YYYY-MM-DD��ц┃絎������������ヤ�����絎������������������с����壔��������
- Gif =item Jpeg =item Png
-
��������������勐就綣���勛�糸����������с����壔��������
��糸����������☗ウ絲����罩c�����綵√����с����������í�������夌∈茯������ŝ�����
- HttpUrl($mode)
-
"http://" ��у����障�����絖������������с����壔��������
$mode���s ������絎���������翫�����"https://" ��у����障�����絖�������罩c�����綵√�������帥�ŝ�����
- HttpsUrl
-
"https://" ��у����障�����絖������������с����壔��������
- Len($min,$max)
-
�����ゃ����違�勛����蚊�����絎���や札�����������с����壔�������� ���絎������ŝ����翫����壔����с����壔��茵������ŝ�����
- SjisLen($min,$max)
-
Shift-Jis��с�勉����ゃ����違�勛����蚊�����絎���や札�����������с����壔�����������絎������ŝ����翫����壔����с����壔��茵������ŝ�����
- CharLen($min,$max)
-
���絖���違�勛����蚊�����絎���や札�����������с����壔�������� ���絎���ゃ����ŝ����翫����壔����с����壔��茵������ŝ�����
- HtmlTag
-
HTML��帥�違����˨����с�������������с����壔��������
- TrailingSlash
-
���絖����������茹���鴻�í����激�ャ�х�������c�⓾�������������с����壔��������
- Portable
-
罘�腮勌��絖����絖������˨����с�������������с����壔��������
- Enum($a,$b,$c)
-
��ゃ�����絎���ゃ�勉�������������с�������������������с����壔�����������絎���ゃ����ŝ����翫����˨�壔����������˨��荅峨�������ŝ�������帥�ŝ�����
- Or($filter1|$filter2|$filter3)
-
���絎���勉����c�˨�帥�勉�������������̬»綵������������������с����壔�����������絎���ゃ����ŝ����翫����˨�壔����������˨��荅峨�������ŝ�������帥�ŝ�����
- RegExp($regexp)
-
���絎���勖③荀頫◐憗�̬»綵������������������с����壔�����������絎���ゃ����ŝ����翫����˨�壔�������í�若��
��⓾�若�吟�弱��臂í����c�˨�帥�˨�ゃ����
腟���粋昭��帥����c�˨�帥����˨�障����ŝ�������c�˨�帥�������⓾�若�吟�若�у��茖�������腟���粋昭��������������с��������
�����c�˨�帥�勖��膀�
TL::Validator::Filter��壔�í�鴻��膓���帥�����doFilter��<�純����������ŝ�若����若�í�ゃ�����������
doFilter��<�純��������羝<��������綣���違�壔��篁ヤ����勰��������
- $this
-
�����c�˨�帥�ŝ����吾�с�壔����ʃ昆
- $values
-
�����с����壠嚳莟<����ŝ����ゃ�勰�������勐����с��
- $args
-
�����c�˨�帥�˩��������������綣���違��
�����c�˨�帥�勛����粋昭��
Ini�����í�<�若�帥��Validator��違�˨�若����˨��
�����c�˨�水�� = �����c�˨�帥�壔�í�劫��
��������〠��絎����������
箴�
�����с����壠嚳莟<����ŝ����ゃ�勰�������˨��'Test'篁ュ����勖��絖���������˨�障����⓾�������違����í�若��
- TestFilter.pm
-
package TestFilter; use TL; use base qw{TL::Validator::Filter}; sub doFilter { my $this = shift; my $values = shift; my $args = shift; return grep { $_ ne 'Test' } @$values > 0; }
- Ini�����<�ゃ�
-
[Validator] Test = TestFilter
- 篏帥����
-
$validator->addFilter( { test => 'Test', } )
SEE ALSO
AUTHOR INFORMATION
Copyright 2006 YMIRLINK Inc. All Rights Reserved.
This framework is free software; you can redistribute it and/or modify it under the same terms as Perl itself
�����勉����㋘�若����壔�若�壔�壔����ŝ�若�純�������⓾�с�≪�с����������ŝ����� Perl �����������í�ゃ�祉�潟�鴻�� �����у�����絽������喝����眼��茵���������������堺�ャ�障�����
Address bug reports and comments to: tl@tripletail.jp
HP : http://tripletail.jp/