NAME

Graph::Reader::UnicodeTree - Perl class for reading a graph from unicode tree text format.

SYNOPSIS

use Graph::Reader::UnicodeTree;

my $obj = Graph::Reader::UnicodeTree->new;
my $graph = $obj->read_graph($unicode_tree_file);

METHODS

new

my $obj = Graph::Reader::UnicodeTree->new;

Constructor. This doesn't take any arguments.

Returns Graph::Reader::UnicodeTree object.

read_graph

my $graph = $obj->read_graph($unicode_tree_file);

Read a graph from the specified file. The argument can either be a filename, or a filehandle for a previously opened file.

Returns Graph object.

UNICODE TREE FILE FORMAT

Vertices are simple text.
Edges are '─┬─' or '───' in main line and ' ├─' or ' └─' in other lines.
Example:
1─┬─2
  ├─3───4
  ├─5
  ├─6─┬─7
  │   ├─8
  │   └─9
  └─10

EXAMPLE1

use strict;
use warnings;

use Encode qw(decode_utf8 encode_utf8);
use Graph::Reader::UnicodeTree;
use IO::Barf qw(barf);
use File::Temp qw(tempfile);

# Example data.
my $data = decode_utf8(<<'END');
1─┬─2
  ├─3───4
  ├─5
  ├─6─┬─7
  │   ├─8
  │   └─9
  └─10
END

# Temporary file.
my (undef, $tempfile) = tempfile();

# Save data to temp file.
barf($tempfile, encode_utf8($data));

# Reader object.
my $obj = Graph::Reader::UnicodeTree->new;

# Get graph from file.
my $g = $obj->read_graph($tempfile);

# Clean temporary file.
unlink $tempfile;

# Print to output.
print $g."\n";

# Output:
# 1-10,1-2,1-3,1-5,1-6,3-4,6-7,6-8,6-9

EXAMPLE2

use strict;
use warnings;

use Graph::Reader::UnicodeTree;

if (@ARGV < 1) {
        print STDERR "Usage: $0 data_file\n";
        exit 1;
}
my $data_file = $ARGV[0];

# Reader object.
my $obj = Graph::Reader::UnicodeTree->new;

# Get graph from file.
my $g = $obj->read_graph($data_file);

# Print to output.
print $g."\n";

# Output like:
# 1-10,1-2,1-3,1-5,1-6,3-4,6-7,6-8,6-9

DEPENDENCIES

Encode, Graph::Reader, Readonly.

SEE ALSO

Graph::Reader

base class for Graph file format readers

Task::Graph::Reader

Install the Graph::Reader modules.

REPOSITORY

https://github.com/michal-josef-spacek/Graph-Reader-UnicodeTree

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© Michal Josef Špaček 2013-2021

BSD 2-Clause License

VERSION

0.03

cpanm Graph::Reader::UnicodeTree

perl -MCPAN -e shell
install Graph::Reader::UnicodeTree