Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

SKIM / Map-Tube-Kharkiv-0.08 / examples / print_kharkiv_def_xml_file.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

              
#!/usr/bin/env perl
use strict;
use utf8;
use warnings;
use Map::Tube::Kharkiv;
# Object.
my $obj = Map::Tube::Kharkiv->new;
# Get XML file.
my $xml_file = $obj->xml;
# Print out XML file.
print "XML file: $xml_file\n";
# Output like:
# XML file: .*/kharkiv-map.xml