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::TagCheck - Check on tag of HTML (ja)

NAME (ja)

TL::TagCheck::JA - HTML��勉�帥�違�勉����с����

SYNOPSIS

  my $tc = $TL->newTagCheck;
  $tc->setAllowTag(':BR;SMALL;STRONG');
  
  my $checked_html = $tc->check('<font size="+7">foo</font><small>bar</small>');
  if ($check_html eq 'foo<small>bar</small>') {
      # true
  }

DESCRIPTION

HTML ��勉�帥�違�勉����с����壔��茵�������筝�綽�荀���ŝ�帥�違�������ゃ��������

METHODS

$TL->newTagCheck
  $checker = $TL->newTagCheck

TL::TagCheck ��ŝ����吾�с�壔�����篏�������

check
  $checked_html = $checker->check($html)

羝<��������HTML�����☎�������������勛��������菴�������

setTagBreak
  $checker->setTagBreak('line')

'none', 'line', 'block'������絎��櫝�純����������í�˨�����'line'��� ��帥�違����ɱ����ч�������������í��������荐㊤�����������

none

��ɱ����ч�������ŝ�����

line

茵���˨�ч�����������

block

��壕�����篋���ょ��������篏�臀勉�ч�����������

  $checker->setAutoLink(1)

�����㏍�鴻��筝㏍����˨�障�����URL�����ɱ�����<a href="...">��с�ŝ�潟�壔�˨����������í�������� 0��勐�翫�������ŝ�潟�壔�˨����ŝ����� 1��勐�翫�������ŝ�潟�壔�˨��������

��������í�˨�����1���

setAllowTag
  $checker->setAllowTag(':HR:BR;STRONG')

篏睡�����荐怨檽�������帥�違�����絎������������������ф��絎���������ŝ����c����帥�違�虁┗�檽�������⓾����ŝ������� ��������⓾��"<"���">"���"&lt;"���"&gt;"��˨����潟�潟�若�������������後����壩❶��勰��������

":TAG"��障�����";TAG"��т����ゃ�勉�帥�違��茵������� �����勉�������ʋ��絎����篁紙����勐����違�����膵�������篋������堺�ャ�����

":"��ф��絎������������帥�違�壔�������勰�������帥�違�勐��������胼�罩≪����������� 胼�罩≪����������������帥�違�壠����ゃ�����������

";"��ф��絎������������帥�違�壔�������勰�������帥�違�勐��������荀�羆������������� ��������帥�違��絖���������ŝ����翫����壔��setTagBreak��ф��絎������������号�����緇���c� ��������帥�違��菴遵��������������

";A(HREF,TARGET)"��勉��������"(...)"��у����с�勛┏蕁������狗���櫝�純�� �����������ŝ����c��絮���с�壠����ゃ�����������

";TR[TD,TH]"��勉��������"[...]"��у��荀�膣���勛┏蕁������狗���櫝�純�� �����������ŝ����c��絖�荀�膣���壔����鴻�宴�若����������������障����������勉�������˨����☗��荀�膣���勛┏蕁���� ��狗����������翫����壔��荀�膣���������㏍�鴻����������や�����胼�罩≪�����������胼�罩≪�������������㏍�鴻���� �����ゃ�����������";TR[TD,TH,*]"��勉�������̬��膣�������������"*"������絎�������������絖�荀�膣���������⓾� �����㏍�鴻�����胼�罩≪�������ŝ�����

";TD{none}"��勉��������"{...}"���setTagBreak��勖��絎���������������˩����吾���櫝�純�� �����勉�������˨�����TagBreak���箴�紊����絎����������荀�膣���˨�ゃ����⓾�壔��setTagBreak��с�勤┃絎���� ��ñ����������ŝ�����

筝�荐�"(...)", "[...]", "{...}"��勉�ŝ����激�с�潟�壚算�����勰��綺���у�����������絎�������篋�����櫝�純�� 篏����������腮勰����勉�ŝ����激�с�潟��筝���ゃ�勉�帥�違��絲障��茲���医�����絎�������篋���壠�堺�ャ�ŝ�����

��������í�˨����ゃ�壩❶��勰�����:

  ":HR:BR;S;STRONG;I;U;EM;A(HREF,TARGET,NAME)"
addAllowTag
  $checker->addAllowTag('!EMBED;TABLE[TR];TR[TD,TH];TD{none};TH{none}')

��√����勉�帥�違�勤┗�櫐����宴��羔���������ŝ��篋������ゃ�����setAllowTag������罕���� ��障����������勉�<�純�������с�勉�炊����潟�勉��������絎���劫����������⓾�� "!TAG"��勉�������̥�劫����勉�帥�違����鴻����☎��罩≪�����篋������堺�ャ�����

setATarget
  $checker->setATarget('_blank')

a荀�膣����target絮���с����御�������������í��������undef������絎������������御��������茵���������ŝ����� setATarget���絎�茵������ŝ����倶����с��'_blank'��������☀┃絎���������⓾��������

SEE ALSO

TL
TL::HtmlFilter

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/