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

#!/usr/bin/env perl

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

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

print $tradition->collation->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;
e2902068	6	use Text::Tradition;
dd3b58b0	7
1f563ac3	8	my $tradition = Text::Tradition->new(
	9	'CSV' => $ARGV[0],
	10	'base' => $ARGV[1],
	11	);
dd3b58b0	12
1f563ac3	13	print $tradition->collation->as_svg();
dd3b58b0	14	print STDERR "Done\n";