I am in the process of completing the work on a parser for parsing
ANSI X12 data/transaction files.

I have named the parser X12::Parser.

Since there are various ANSI X12 data formats, I have comeup with a
config file specification. The user defines this file for the X12
format he intends to parse.
The X12::Cf module reads this config file. The X12::Cf module is used
in X12::Parser. (The module X12::Cf is provided with X12::Parser).

Here's the methods that I am providing with this module.

use X12::Parser;

# Create a parser object
my $p = new X12::Parser;

# Parse a data file based on the configuration file
$p->parse ( file => '837.txt', # <--- file to parse
conf => '837_004010X098.cf' # <--- user created config
file
);

# Step through the file
while ( my $loop = $p->get_next_loop ) {
my @loop = $p->get_loop_segments ($loop);
}

# or use this method instead
while ( my ($pos, $loop) = $p->get_next_pos_loop ) {
my @loop = $p->get_segments ($pos);
}

# dump the file to stdout,
$p->print_tree

Pls offer your suggestions on using
the namespace X12::Parser and X12::Cf.

Thanks,
ppb