How to Implement a BNF syntax in perl?

[Balaji thoguluva]

Hi,

I have a long BNF (Backus-naur form) for parsing a protocol message. Suppose I want to implement a BNF like this

Response = Status-line
*(message-header)
CRLF
[Message-body]

status-Line = SIP-Version SP Status-Code SP Reason-Phrase CRLF
SP = space character
...................
..................

Like this I have a very long BNF. How can I implement this BNF and parse a message that satisfies this BNF in perl ?
Any suggestions would be of great help to me.

Thanks,
Balaji

Yahoo! India Mobile: Ringtones, Wallpapers, Picture Messages and more.Download now.

[Wolf Blaum]

For Quality purpouses, Balaji Thoguluva 's mail on Friday 06 February 2004
18:49 may have been monitored or recorded as:

> Hi,

Hi

> I have a long BNF (Backus-naur form) for parsing a protocol message.
> Suppose I want to implement a BNF like this
>
> Response = Status-line
> *(message-header)
> CRLF
> [Message-body]
>
> status-Line = SIP-Version SP Status-Code SP Reason-Phrase CRLF
> SP = space character
> ..................
> .................
>
> Like this I have a very long BNF. How can I implement this BNF and
> parse a message that satisfies this BNF in perl ? Any suggestions would be
> of great help to me.

Maybe Config::Natural is good to you.

Wolf

[Randy W. Sims]

On 02/06/04 12:49, Balaji Thoguluva wrote:

> Hi,
>
> I have a long BNF (Backus-naur form) for parsing a protocol message. Suppose I want to implement a BNF like this
>
> Response = Status-line
> *(message-header)
> CRLF
> [Message-body]
>
> status-Line = SIP-Version SP Status-Code SP Reason-Phrase CRLF
> SP = space character
> ..................
> .................
>
> Like this I have a very long BNF. How can I implement this BNF and parse a message that satisfies this BNF in perl ?
> Any suggestions would be of great help to me.

Have you looked at Parse::RecDescent:
<http://search.cpan.org/dist/Parse-RecDescent/>

Randy.