1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
#!/usr/bin/perl -w -s
# PODNAME: tmx2html
# ABSTRACT: Converts a TMX to an HTML formatted page
use strict;
use warnings;
use XML::TMX;
use XML::TMX::Reader;
our ($icons,$o,$ff,$v);
my $tmx = shift;
my $tmx_obj = XML::TMX::Reader->new($tmx);
my $OUT ;
$o //= "__.html" if $v;
if ($v and $v eq "1"){ $v="firefox" }
if($o){ open($OUT, ">", $o ) or die("Cant create $o\n") }
else { $OUT = \*STDOUT }
binmode($OUT,":utf8");
print $OUT qq{
<html>
<head>
<style>
tr {
background-color: #e0e0e0;
vertical-align: top;
}
tr:nth-child(even) {background-color: #f0f0f0;}
/* tr:hover {background-color: #c8c8c8;} */
tr:hover {background-color: #ffe0e0;}
</style>
<title> </title>
<meta charset="UTF-8"/>
</head>
<body>
},
$tmx_obj->to_html(),
qq{</body>
</html>
};
if ($v){system("$v $o") }
__END__
=pod
=encoding UTF-8
=head1 NAME
tmx2html - Converts a TMX to an HTML formatted page
=head1 VERSION
version 0.39
=head1 SYNOPSIS
tmx2html [-icons] file.tmx > file.html
-o=out-html -- def: __.html
-v -- show with firefox
-v=chromium -- show with chromium
=head1 DESCRIPTION
Pretty prints a TMX as an HTML file. Icons for languages can be
produced, but still buggy.
=head1 AUTHORS
=over 4
=item *
Alberto Simões <ambs@cpan.org>
=item *
José João Almeida <jj@di.uminho.pt>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2010-2017 by Projeto Natura <natura@di.uminho.pt>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
