The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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$/鐚���������с����壔��������

��医����у����障�������医����х����������������勰�������医����������ゃ�����(-)��勉�帥�ф�������������⓾�������育�肢º��ɱ垩����帥�ŝ�����

Email

��<�若�˨�≪����㋘�鴻�������〠③������綵√����������с����壔��������

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

TL
TL::Value

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/