に、最後にリストされる新しい属性があります。
2つの引数です。
#
$token->set_attr('class','some_class');
print $token->as_is;
#
#
$token->set_attr('bgcolor','red');
print $token->as_is;
#
=begin original
After this method is called, if successful, the C, C
and C methods will all return updated results.
=end original
このメソッドが呼ばれた後は、C、C、Cメソッドは、
全て、更新された結果を返します。
=item * C
=begin original
This method rewrites the tag. The tag name and the name of all attributes will
be lower-cased. Values that are not quoted with double quotes will be. This
may be called on both start or end tags. Note that both C and
C call this method prior to returning.
=end original
このメソッドは、タグを書き直します。タグの名前と全ての属性の名前は、小文字になります。
ダブルクォートでクォートされていない値は、クォートされます。開始タグと終了タグの両方で呼ばれます。
CとCの両方がこのメソッドを値を返す前に呼ぶことに気を付けてください。
=begin original
If called on a token that is not a tag, it simply returns. Regardless of how
it is called, it returns the token.
=end original
タグでないトークンで呼ばれると、単純に返ります。どのようにメソッドが呼ばれたかを無視し、
トークンを返します。
#
$token->rewrite_tag;
print $token->as_is;
#
=begin original
A quick cleanup of sloppy HTML is now the following:
=end original
いい加減なHTMLを素早く綺麗にするには、次のようにします:
my $parser = HTML::TokeParser::Simple->new( $ugly_html );
while (my $token = $parser->get_token) {
$token->rewrite_tag;
print $token->as_is;
}
=back
=head1 重要事項:
=begin original
Some people get confused and try to call parser methods on tokens and token
methods (those described above) on methods. To prevent this,
C versions 1.4 and above now bless all tokens into a
new class which inherits nothing. Please keep this in mind while using this
module (and many thanks to PodMaster
L for pointing out this issue
to me.
=end original
人々には混乱する人がいて、パーサーメソッドをトークンで呼ぼうとし、トークンメソッド(上で説明しました)を、
メソッドで呼ぼうとします。
これを防ぐために、Cのバージョン 1.4以上では、現在、
何も継承しない新しいクラスに全てのトークンを bless しています。
このモジュールを使う間、心にとめておいてください(そして、この問題を私に指摘した PodMaster
Lにとても感謝します。
=head1 例
=head2 コメントを見つける
=begin original
For some strange reason, your Pointy-Haired Boss (PHB) is convinced that the
graphics department is making fun of him by embedding rude things about him in
HTML comments. You need to get all HTML comments from the HTML.
=end original
ある変わった理由のために、とんがった髪型のボス(PHB)は、
グラフィック部が、HTMLのコメントに彼に対して失礼なことを埋め込んで、
彼をからかっていると確信しています。HTMLから全てのコメントを得る必要があります。
use strict;
use HTML::TokeParser::Simple;
my @html_docs = glob( "*.html" );
open PHB, "> phbreport.txt" or die "Cannot open phbreport for writing: $!";
foreach my $doc ( @html_docs ) {
print "Processing $doc\n";
my $p = HTML::TokeParser::Simple->new( $doc );
while ( my $token = $p->get_token ) {
next unless $token->is_comment;
print PHB $token->as_is, "\n";
}
}
close PHB;
=head2 コメントをはぎ取る
=begin original
Uh oh. Turns out that your PHB was right for a change. Many of the comments
in the HTML weren't very polite. Since your entire graphics department was
just fired, it falls on you need to strip those comments from the HTML.
=end original
うーあー。PHBには変更する権利があります。HTMLのコメントのほとんどが、
あまり行儀良くありませんでした。グラフィック部の全てが、すぐにクビになりました。
おかげで、HTMLからそれらのコメントをはぎ取らなければならなくなりました。
use strict;
use HTML::TokeParser::Simple;
my $new_folder = 'no_comment/';
my @html_docs = glob( "*.html" );
foreach my $doc ( @html_docs ) {
print "Processing $doc\n";
my $new_file = "$new_folder$doc";
open PHB, "> $new_file" or die "Cannot open $new_file for writing: $!";
my $p = HTML::TokeParser::Simple->new( $doc );
while ( my $token = $p->get_token ) {
next if $token->is_comment;
print PHB $token->as_is;
}
close PHB;
}
=head2 フォームタグを変更する
=begin original
Your company was foo.com and now is bar.com. Unfortunately, whoever wrote your
HTML decided to hardcode "http://www.foo.com/" into the C attribute of
the form tags. You need to change it to "http://www.bar.com/".
=end original
会社は foo.com でしたが、たった今 bar.com になります。不幸なことに、
誰もが、フォームタグのC属性に"http://www.foo.com/"をハードコードすると決めてHTMLを書いていました。
"http://www.bar.com" にそれを変えなければなりません。
use strict;
use HTML::TokeParser::Simple;
my $new_folder = 'new_html/';
my @html_docs = glob( "*.html" );
foreach my $doc ( @html_docs ) {
print "Processing $doc\n";
my $new_file = "$new_folder$doc";
open FILE, "> $new_file" or die "Cannot open $new_file for writing: $!";
my $p = HTML::TokeParser::Simple->new( $doc );
while ( my $token = $p->get_token ) {
if ( $token->is_start_tag('form') ) {
my $action = $token->return_attr->{action};
$action =~ s/www\.foo\.com/www.bar.com/;
$token->set_attr('action', $action);
}
print FILE $token->as_is;
}
close FILE;
}
=head1 著作権
Copyright (c) 2001 Curtis "Ovid" Poe. All rights reserved. This program is
free software; you may redistribute it and/or modify it under the same terms as
Perl itself
=head1 著者
Curtis "Ovid" Poe L
=head1 バグ
=begin original
Use of C<$HTML::Parser::VERSION> which is less than 3.25 may result in
incorrect behavior as older versions do not always handle XHTML correctly. It
is the programmer's responsibility to verify that the behavior of this code
matches the programmer's needs.
=end original
C<$HTML::Parser::VERSION>が3.25より古いものを使うと、結果として、不正確な動きをします。
古いバージョンでは、XHTMLを常には正しく取り扱わないからです。
このコードの動きががプログラマの必要に合っていることを確かめるのは、プログラマの責任です。
=begin original
Note that C processes text in 512 byte chunks. This sometimes
will cause strange behavior and cause text to be broken into more than one
token. You can suppress this behavior with the following command:
=end original
Cは、512バイトの固まりでテキストを処理することに、気を付けてください。
このことが原因で、おかしな動きを引き起こしたり、テキストが壊れて、2つ以上のトークンになったりします。
この動きを下のコマンドで、抑えることができます:
$p->unbroken_text( [$bool] );
=begin original
See the C documentation and
http://www.perlmonks.org/index.pl?node_id=230667 for more information.
=end original
Cドキュメントとhttp://www.perlmonks.org/index.pl?node_id=230667 に
より情報があるので、見てください。
=begin original
Address bug reports and comments to: L. When sending bug
reports, please provide the version of C, C,
C, the version of Perl, and the version of the
operating system you are using.
=end original
バグレポートとコメントは次のアドレスに: L。
バグレポートを送るときには、Cと、Cと、Cと、
Perlのバージョンと、使っているOSのバージョンを提供してください。
=head1 翻訳について
翻訳者：加藤敦 (ktat.is@gmail.com)
Perlドキュメント日本語訳 Project にて、
Perlモジュール、ドキュメントの翻訳を行っております。
http://perldocjp.sourceforge.jp
http://sourceforge.jp/projects/perldocjp/
http://www.freeml.com/ctrl/html/MLInfoForm/perldocjp@freeml.com
http://www.perldoc.jp