dxf2xml.pl


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

#!/usr/bin/perl

# converts a DXF file to XML for viewing and editing.

## Copyright (c) 2018-2020 by Thomas Kremer
## License: GPL ver. 2 or 3

# usage:
#   dxf2xml.pl infile.dxf > outfile.xml
#   dxf2xml.pl < infile.dxf > outfile.xml

use strict;
use warnings;

use DXF;
use XML::DOM;
use IO::Handle;

my $file = shift;
my $f;
if (defined $file) {
  open($f, "<", $file) or die "cannot open file";
} else {
  $f = \*STDIN;
}
my $lol = DXF::parse_dxf($f);
my $xml = DXF::lol2xml($lol);
print $xml->toString;