Data::PABX::ParseLex is a Perl module to parse the output of the iSDC PABX's 'lex a e' command.
SYNOPSIS
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Data::PABX::ParseLex;
# -----------------------------------------------
sub process
{
my($parser, $input_file_name) = @_;
my($hash) = $parser -> parse($input_file_name);
print Data::Dumper -> Dump([$hash], ['PABX']);
} # End of process.
# -----------------------------------------------
$Data::Dumper::Indent = 1;
my($parser) = Data::PABX::ParseLex -> new();
process($parser, 'pabx-a.txt');
process($parser, 'pabx-b.txt');
See examples/test-parse.pl for this test program, and the same directory for 2 test data files. The output is in examples/test-parse.log.
Requirements:
· Perl