Perlで書く 

Perlで書く 2009.07.05 Vol.237

=====================================================================
Perlで書く 2009.07.05 Vol.237
[WAZA]木構造の出力
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●木構造の出力

　Text::Treeモジュールを使うと木構造のデータを出力することができます。

---------------------------------------------------------------------
use strict;
use warnings;
use Text::Tree;

my $root = "top";
my @data = (
    ["A",
        ["Apple",
            ["Apricot"],
        ],
    ],
    ["B",
        ["Banana"],
    ],
    ["Number",
        ["40",
            ["55"],
        ],
        ["139",
            ["200"],
            ["210"],
        ],
        ["492"],
    ],
);

my $tree = Text::Tree->new($root, @data);

print $tree->layout("boxed");
print "\n";
print $tree->layout("center");
print "\n";
print $tree->layout("oval");
print "\n";
---------------------------------------------------------------------
　このスクリプトを実行すると、以下のように出力されます。
---------------------------------------------------------------------
                   +---+
                   |top|
                   +---+
    .--------.-------^-------.
   +-+      +-+           +------+
   |A|      |B|           |Number|
   +-+      +-+           +------+
    |        |      .--------+--------.
 +-----+  +------+ +--+    +---+    +---+
 |Apple|  |Banana| |40|    |139|    |492|
 +-----+  +------+ +--+    +---+    +---+
    |               |     .--^--.
+-------+          +--+ +---+ +---+
|Apricot|          |55| |200| |210|
+-------+          +--+ +---+ +---+

              top
   .------.----^-----.
   A      B        Number
   |      |    .-----+-----.
 Apple  Banana 40   139   492
   |           |   .-^-.
Apricot        55 200 210

                   .---.
                   |top|
                   `---'
    .--------.-------^-------.
   .-.      .-.           .------.
   |A|      |B|           |Number|
   `-'      `-'           `------'
    |        |      .--------+--------.
 .-----.  .------. .--.    .---.    .---.
 |Apple|  |Banana| |40|    |139|    |492|
 `-----'  `------' `--'    `---'    `---'
    |               |     .--^--.
.-------.          .--. .---. .---.
|Apricot|          |55| |200| |210|
`-------'          `--' `---' `---'
---------------------------------------------------------------------

●関連項目

・表形式の出力
  http://www2u.biglobe.ne.jp/~MAS/perl/waza/asciitable.html

=====================================================================
■雑記

　特にありません。

=====================================================================
Perlで書く(マガジンID：0000109251) 配信数：834
発行者：MAS
本メールマガジンに関するご意見・お問い合わせは
t-masuda@mvd.biglobe.ne.jp までお寄せ下さい。

解除 http://www2u.biglobe.ne.jp/~MAS/perl/magazine.html
検索 http://www2u.biglobe.ne.jp/~MAS/perl/search/index.html
バックナンバー http://archive.mag2.com/0000109251/index.html
RSS  http://archive.mag2.com/0000109251/rss10.xml

本メールマガジンは「まぐまぐ」 http://www.mag2.com/ を利用して発行
しています。
=====================================================================

• 前の記事
• 最新の記事
• 次の記事

規約に同意して

登録した方には、まぐまぐの公式メルマガ（無料）をお届けします。