
=encoding euc-jp

=head1 叹涟

HTML::Table - HTML テ〖ブルを栏喇する

=head1 车妥

  use HTML::Table;

  $table1 = new HTML::Table($rows, $cols);
    または、
  $table1 = new HTML::Table(-rows=>26,
                            -cols=>2,
                            -align=>'center',
                            -rules=>'rows',
                            -border=>0,
                            -bgcolor=>'blue',
                            -width=>'50%',
                            -spacing=>0,
                            -padding=>0,
                            -style=>'color: blue',
                            -class=>'myclass',
                            -head=> ['head1', 'head2'],
                            -data=> [ ['1:1', '1:2'], ['2:1', '2:2'] ] );
   または、
  $table1 = new HTML::Table( [ ['1:1', '1:2'], ['2:1', '2:2'] ] );

  $table1->setCell($cellrow, $cellcol, 'This is Cell 1');
  $table1->setCellBGColor('blue');
  $table1->setCellColSpan(1, 1, 2);
  $table1->setRowHead(1);
  $table1->setColHead(1);

  $table1->print;

  $table2 = new HTML::Table;
  $table2->addRow(@cell_values);
  $table2->addCol(@cell_values2);

  $table1->setCell(1,1, "$table2->getTable");
  $table1->print;

=head1 瓢侯掘凤

Perl5.002

=head1 エクスポ〖ト

なし

=head1 棱汤

HTML::Table は、CGI スクリプトにおいて HTML テ〖ブルを侯喇するために蝗います。捏丁されるメソッド凡を蝗脱することで、润撅に剩花なテ〖ブルの栏喇、拎侯、そして叫蜗が Perl スクリプトで材墙となります。このモジュ〖ルでは、テ〖ブル面にテ〖ブルを侯喇する侯度も Perl から润撅に词帽にできるようになります。HTML タグを蝗脱することなく、このモジュ〖ルで捏丁されるメソッド凡を蝗脱するだけで链ての怠墙を洒えるテ〖ブルを栏喇することが材墙です。

HTML::Table は、addRow と addCol メソッドを蝗脱することで、瓢弄にサイズの恃わるテ〖ブルを侯喇することも叫丸ます。つまり、そのときのテ〖ブルセル眶を亩える猛が畔された眷圭に、これらメソッドはそれに努圭するよう极瓢弄にテ〖ブルをリサイズします。

HTML 3.0 で惮年されているテ〖ブルに簇するほとんど链てのタグ凡について、滦炳するメソッドが捏丁されています。

この矢鞠の泣塑胳条は肌で网脱できます¨

	http://member.nifty.ne.jp/hippo2000/perltips/html/table.htm

∈条荚(2)纳淡〃このペ〖ジは、肌に败瓢されております  http://homepage3.nifty.com/hippo2000/perltips/html/table.htm∷

=head1 メソッド凡

  逞かっこ [ ] は、オプションのパラメ〖タであることをを绩しています。回年されない眷圭はデフォルト猛が蝗われます。

  row_num は、乖眶が涩寇であることを绩しています。乖は1から眶えます。呵稿の乖を徊救するには、-1を蝗脱します。

  col_num は、误眶が涩寇であることを绩しています。误は1から眶えます。呵稿の误を徊救するには、-1を蝗脱します。


=head2 栏喇

=over 4

=item new HTML::Table([num_rows, num_cols])

糠しいHTML テ〖ブル オブジェクトを栏喇します。乖眶と误眶が回年されれば、テ〖ブルはそのサイズで介袋步されます。乖と误の眶は 1, 1 から幌まります。0, 0 は、鄂のテ〖ブルと豺坚されます。

=item new HTML::Table([
    -rows=>num_rows, 
    -cols=>num_cols, 
    -border=>border_width,
    -align=>table_alignment,
    -style=>table_style,
    -class=>table_class,
    -bgcolor=>back_colour, 
    -width=>table_width, 
    -spacing=>cell_spacing, 
    -padding=>cell_padding
])

糠しいHTML テ〖ブル オブジェクトを栏喇します。乖眶と误眶が回年されれば、テ〖ブルはそのサイズで介袋步されます。乖と误の眶は 1, 1 から幌まります。0, 0 は、鄂のテ〖ブルと豺坚されます。

∈条荚(2)纳淡¨钾颅ですが、苞眶の条も烧けます〃
    -row =>		∈误の眶∷
    -cols =>	∈乖の眶∷
    -border=>	∈先の吕さ∷
    -align=>	∈テ〖ブル极挛の垮士山绩疤弥∷
    -style=>	∈スタイル∷
    -class=>	∈クラス∷
    -bgcolor=>	∈秦肥咖∷
    -width=>	∈テ〖ブルの升∷
    -spacing=>	∈セル票晃の粗持∷
    -padding=>	∈セル柒の途球∷
∷

=back

=head2 テ〖ブルに簇するメソッド凡

=over 4

=item setBorder([pixels])

テ〖ブル先の吕さを肋年します。

=item setWidth([pixels|percentofscreen])

テ〖ブルの升を肋年します。

 	$table->setWidth(500);
  または、
 	$table->setWidth('100%');

=item setCellSpacing([pixels])

テ〖ブル柒セル票晃の粗持を肋年します。

=item setCellPadding([pixels])

セル柒の途球を肋年します。

=item setCaption("CaptionText" [, TOP|BOTTOM])

テ〖ブルの斧叫しを肋年します。

=item setBGColor([colorname|colortriplet])

テ〖ブルの秦肥咖を肋年します。

=item autoGrow([1|true|on|anything|0|false|off|no|disable])

setCell で畔された乖眶または误眶が附哼のテ〖ブルサイズを亩える箕に、テ〖ブルを极瓢弄に橙げる怠墙を蝗脱する∈デフォルト∷】蝗脱しないと磊り仑えます。

=item setAlign ( [ LEFT , CENTER , RIGHT ] ) 

テ〖ブルの垮士数羹山绩疤弥を肋年します。

=item setRules ( [ ROWS , COLS , ALL, BOTH , GROUPS  ] ) 

テ〖ブル柒先の铜痰を肋年します。

=item setStyle ( 'css style' ) 

テ〖ブルのスタイル掳拉を肋年します。

=item setClass ( 'css class' ) 

テ〖ブルのクラス掳拉を肋年します。

=item setAttr ( 'user attribute' ) 

テ〖ブルに、ユ〖ザ〖年盗の掳拉を肋年します。HTML::Table で踏だ捏丁されていない泼检な掳拉を肋年するのに网脱できます。

=item sort ( [sort_col_num, sort_type, sort_order, num_rows_to_skip] )

        または
  sort( -sort_col => sort_col_num, 
        -sort_type => sort_type,
        -sort_order => sort_order,
        -skip_rows => num_rows_to_skip,
        -strip_html => strip_html,
        -strip_non_numeric => strip_non_numeric,
        -presort_func => €&filter_func )

    sort_type は、 { ALPHA | NUMERIC }で回年∈アルファベット界】眶机界∷、
    sort_order は、 { ASC | DESC }で回年∈竞界】惯界∷、
    strip_html は、 { 0 | 1 }で回年∈デフォルトは1∷
    strip_non_numeric は、 { 0 | 1 },∈デフォルトは1∷

  回年された乖で链ての误をソ〖トします∈オプションとして、 num_rows_to_skip で回年されたテ〖ブル黎片误まではスキップされます∷。
  デフォルトの瓢侯としてソ〖トではHTMLタグと&nbspを痰浑しますが、 strip_html パラメ〖タ〖を0にすることでこの瓢侯は痰跟になります。
  デフォルトの瓢侯として眶猛の络井でのソ〖トは眶机笆嘲の矢机を痰浑しますが、 strip_non_numeric パラメ〖タ〖を0にすることでこの瓢侯は痰跟になります。
  ソ〖ト涟に簇眶を努脱することができ、毋えば泣烧霹でソ〖トする涟にセル柒推の涟借妄をする眷圭に网脱できます。


=item getTableRows

テ〖ブルの乖眶を手します。

=item getTableCols

テ〖ブルの误眶を手します。

=back

=head2 セルに簇するメソッド凡

=over 4

=item setCell(row_num, col_num, "content")

セルの柒推を肋年します。このことには扦罢の矢机误、 getTable メソッド沸统で戮のテ〖ブルオブジェクトですらも、材墙です。回年した乖ˇ误がテ〖ブル董肠を臂えている眷圭、极瓢弄に乖ˇ误が橙げられます。

=item setCellAlign(row_num, col_num, [CENTER|RIGHT|LEFT])

セル柒推の垮士疤弥を肋年します。

=item setCellVAlign(row_num, col_num, [CENTER|TOP|BOTTOM|MIDDLE|BASELINE])

セル柒推の库木疤弥を肋年します。

=item setCellWidth(row_num, col_num, [pixels|percentoftable])

セルの升を肋年します。

=item setCellHeight(row_num, col_num, [pixels])

セルの光さを肋年します。

=item setCellHead(row_num, col_num)

セルを斧叫し灌誊にします∈すなわち、<th></th>タグ∷。

=item setCellNoWrap(row_num, col_num, [0|1])

セル柒矢机の猖乖を敦贿します。

=item setCellBGColor(row_num, col_num, [colorname|colortriplet])

セルの秦肥咖を肋年します。

=item setCellRowSpan(row_num, col_num, num_cells)

布数羹へ冯圭したセルにします。回年したセル笆布のセル眶と孺べて、冯圭する眶が络きい眷圭には、粗般った猛が手されます∈条荚(2)纳淡¨讳の茨董では、num_cellsの猛までテ〖ブルを橙磨し冯圭セルを侯りました∷。

=item setCellColSpan(row_num, col_num, num_cells)

宝数羹へ冯圭したセルにします。回年したセル宝娄のセル眶と孺べて、冯圭する眶が络きい眷圭には、粗般った猛が手されます∈票惧∷。

=item setCellSpan(row_num, col_num, num_rows, num_cols)

回年セルを答爬としたセルブロックを冯圭します。冯圭する认跋は num_cols の升、 num_rows の考さです。

=item setCellFormat(row_num, col_num, start_string, end_string)

Start_string は铜跟なHTMLタグ矢机误であるべきで、それがセル柒推の涟に叫蜗されます。票屯に end_string は铜跟なHTMLタグ矢机误で、セル柒推の稿ろに叫蜗されます。このことにより、セル柒推のフォ〖マットが材墙となります。

	$table->setCellFormat(1, 2, '<b>', '</b>');

=item setCellStyle (row_num, col_num, 'css style') 

セルのスタイル掳拉を肋年します。

=item setCellClass (row_num, col_num, 'css class') 

セルのクラス掳拉を肋年します。

=item setCellAttr (row_num, col_num, 'user attribute') 

セルにユ〖ザ〖年盗の掳拉を肋年します。HTML::Table が踏だ捏丁していない泼检な掳拉を肋年するのに网脱できます。

=item setLastCell*

链ての setCell メソッド凡は、それらに滦炳する setLastCell メソッドを积っています。この setLastCell メソッドは row_num と col_num パラメ〖タを减け艰らず、极瓢弄に呵稿误かつ呵稿乖のセルへメソッドを努脱します。

∈条荚(2)纳淡¨布缄な条より、笆布の毋の数が尸かりやすいかと蛔います〃
my $t = new HTML::Table(3,3);
$t -> setLastCell ('lastCell');
$t -> setLastCellBGColor ('#66cc66');
	肌と票じです...
my $t = new HTML::Table(3,3);
$t -> setCell ('-1', '-1', 'lastCell');
$t -> setCellBGColor ('-1', '-1', '#66cc66');

∷

=item getCell(row_num, col_num)

回年されたセル柒推を矢机误として手します。

=back

=head2 乖に簇するメソッド凡

=over 4

=item addCol("cell 1 content" [, "cell 2 content",  ...])

乖をテ〖ブルの宝眉に裁えます。误の眶よりも驴くの猛を畔すと、误を笼やそうとしていると豺坚されます。

=item setColAlign(col_num, [CENTER|RIGHT|LEFT])

乖に setCellAlign を努脱します。

=item setColVAlign(col_num, [CENTER|TOP|BOTTOM|MIDDLE|BASELINE])

乖に setCellVAlign を努脱します。

=item setColWidth(col_num, [pixels|percentoftable])

乖に setCellWidth を努脱します。

=item setColHeight(col_num, [pixels])

乖に setCellHeight を努脱します。

=item setColHead(col_num)

乖に setCellHead を努脱します。

=item setColNoWrap(col_num, [0|1])

乖に setCellNoWrap を努脱します。

=item setColBGColor(row_num, [colorname|colortriplet])

乖に setCellBGColor を努脱します。

=item setColFormat(col_num, start_string, end_sting)

乖に setCellFormat を努脱します。

=item setColStyle (col_num, 'css style') 

乖に setCellStyle を努脱します。

=item setColClass (col_num, 'css class') 

乖に setCellClass を努脱します。

=item setColAttr (col_num, 'user attribute') 

乖に setCellAttr を努脱します。

=item setLastCol*

链ての setCol メソッド凡は、それらへ滦炳する setLastCol メソッドを积っています。この setLastCol メソッドは col_num パラメ〖タを减け艰らず、极瓢弄に呵稿乖へメソッドを努脱します。∈条荚(2)纳淡〃setLastCell*と票屯∷

=back

=head2 误に簇するメソッド

=over 4

=item addRow("cell 1 content" [, "cell 2 content",  ...])

误をテ〖ブルの呵布婶に裁えます。乖の眶よりも驴くの猛を畔すと、乖を笼やそうとしていると豺坚されます。

=item setRowAlign(row_num, [CENTER|RIGHT|LEFT])

误に setCellAttr を努脱します。

=item setRowVAlign(row_num, [CENTER|TOP|BOTTOM|MIDDLE|BASELINE])

误に setCellVAlign を努脱します。

=item setRowWidth(row_num, [pixels|percentoftable])

误に setCellWidth を努脱します。

=item setRowHeight(row_num, [pixels])

误に setCellHeight を努脱します。

=item setRowHead(row_num)

误に setCellHead を努脱します。

=item setRowNoWrap(col_num, [0|1])

误に setCellNoWrap を努脱します。

=item setRowBGColor(row_num, [colorname|colortriplet])

误に setCellBGColor を努脱します。

=item setRowFormat(row_num, start_string, end_string)

误に setCellFormat を努脱します。

=item setRowStyle (row_num, 'css style') 

误に setCellStyle を努脱します。

=item setRowClass (row_num, 'css class') 

误に setCellClass を努脱します。

=item setRowAttr (row_num, 'user attribute') 

误に setCellAttr を努脱します。

=item setLastRow*

链ての setRow メソッド凡は、それらへ滦炳する setLastRow メソッドを积っています。この setLastRow メソッドは row_num パラメ〖タを减け艰らず、极瓢弄に呵稿误へメソッドを努脱します。∈条荚(2)纳淡〃setLastCell*と票屯∷

=back

=head2 叫蜗のメソッド凡

=over 4

=item getTable

テ〖ブルのHTML山淡を崔む柒推を、矢机误で手します。


矢机误スカラ〖コンテキストでオブジェクトリファレンスを脱いると、票じ跟蔡が评られます。

毋....

	このコ〖ド们室は〃

		$table = new HTML::Table(2, 2);
		print '<p>Start</p>';
		print $table->getTable;
		print '<p>End</p>';

	笆布と票屯の叫蜗を栏喇します〃

		$table = new HTML::Table(2, 2);
		print "<p>Start</p>$table<p>End</p>";

=item print

テ〖ブルのHTML山淡を、 STDOUT に叫蜗します。

=back

=head1 クラス恃眶

=head1 HISTORY  悟凰

This module was originally created in 1997 by Stacy Lacy and whose last 
version was uploaded to CPAN in 1998.  The module was adopted in July 2000 
by Anthony Peacock in order to distribute a revised version.  This adoption 
took place without the explicit consent of Stacy Lacy as it proved impossible 
to contact them at the time.  Explicit consent for the adoption has since been 
received.

このモジュ〖ルは呵介 Stacy Lacy によって1997钳に侯喇され、呵稿のバ〖ジョンは1998钳にCPANにアップロ〖ドされました。饯赖されたバ〖ジョンを芹邵するため、このモジュ〖ルを2000钳7奉に Anthony Peacockhe が苞き费ぎました。この苞费は Stacy Lacy の汤澄な票罢痰しに乖われました、なぜならその箕に揉らと息晚をとることが稍材墙であると尸かったからです。この苞费に滦する汤澄な票罢は、踏だ评られていません。

=head1 AUTHOR  侯荚

∈付矢のまま∷

Anthony Peacock, a.peacock@chime.ucl.ac.uk
Stacy Lacy (Original author)

=head1 CONTRIBUTIONS  定蜗荚

∈付矢のまま∷

Jay Flaherty, fty@mediapulse.com
For ROW, COL & CELL HEAD methods. Modified the new method to allow hash of values.

John Stumbles, john@uk.stumbles.org
For autogrow behaviour of setCell, and allowing alignment specifications to be case insensitive

Arno Teunisse, Arno.Teunisse@Simac.nl
For the methods adding rules, styles and table alignment attributes.

Ville Skytta, ville.skytta@iki.fi
For general fixes

Paul Vernaza, vernaza@stwing.upenn.edu
For the setLast... methods

David Link, dvlink@yahoo.com
For the sort method

Tommi Maekitalo, t.maekitalo@epgmbh.de
For adding the 'head' parameter to the new method and for adding the initialisation from an array ref 
to the new method.

=head1 COPYRIGHT  螟侯涪

∈付矢のまま∷

Copyright (c) 2000-2003 Anthony Peacock, CHIME.

Copyright (c) 1997 Stacy Lacy

This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 SEE ALSO  簇息灌誊

perl(1), CGI(3)

=head1 Translators into Japanese  溯条荚

1) Previous ver.: oota (at itp.nec.co.jp)

2) Ver. 2.02: anahori (at users.sourceforge.jp)

Japanized ?Perl?Resources? Project (http://sourceforge.jp/projects/perldocjp/)

=cut