[scpubgit/stemmatology.git] / script / svg_from_csv.pl

#!/usr/bin/env perl

use lib 'lib';
use strict;
use warnings;
use Text::Tradition::Graph;

my $collation_graph = Text::Tradition::Graph->new( 
						   'CSV' => $ARGV[0],
						   'base' => $ARGV[1],
						   );

print $collation_graph->as_svg();
print STDERR "Done\n";
Commit	Line	Data
dd3b58b0	1	#!/usr/bin/env perl
	2
	3	use lib 'lib';
	4	use strict;
	5	use warnings;
	6	use Text::Tradition::Graph;
	7
	8	my $collation_graph = Text::Tradition::Graph->new(
	9	'CSV' => $ARGV[0],
	10	'base' => $ARGV[1],
	11	);
	12
	13	print $collation_graph->as_svg();
	14	print STDERR "Done\n";