Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Re: Parsing with Perl 6

by jryan (Vicar)
on Jul 05, 2002 at 05:39 UTC ( #179567=note: print w/ replies, xml ) Need Help??


in reply to Re: Parsing with Perl 6
in thread Parsing with Perl 6

A nit, though. I don't know diddly 'bout JavaScript, but are backslashed backslashes allowed in strings? If so, this grammar doesn't allow for this.

Sure it does, try the perl 5 version that I have at the end:

sub quoted_string { my $type = quotemeta shift; return qr/ $type (?: [^$type]+ | (?<= \\ ) $type )* $type /x; } my $data = qq(This "is a quoted string" and so is "this" and this one "has \\\\ \\" backslashes" and other unrelated stuff); my @matches = $data =~ / ((??{ quoted_string( qq(") ) })) /xg; print join("\n\n",@matches);

Also, here are a few Javascript code snippets for those unfamiliar with Javascript:

<script> function Some_Function (arg1, arg2) { } do { } while (1) for (i=0; i < 10; i++) { } while (1) { } </script>

Its pretty much just like C, for those who are familiar with that (except Javascript variables don't have types).


Comment on Re: Re: Parsing with Perl 6
Select or Download Code
Re^3: Parsing with Perl 6
by Anonymous Monk on Mar 24, 2005 at 17:25 UTC
    Right... but I am not sure that you cover this case:

      q{"this string ends with a backslash \\"}

    does it? That is, \\" and \" are different.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://179567]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (13)
As of 2014-12-23 04:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (135 votes), past polls