Perl Guru Forums: Perl Programming Help: Frequently Asked Questions: How can I hope to use regular expressions without

CGI/Perl Guide | Learning Center | Forums | Advertise | Login

Site Search: in


	MAIN INDEX	SEARCH POSTS	WHO'S ONLINE	LOG IN

Home: Perl Programming Help: Frequently Asked Questions:
How can I hope to use regular expressions without

Jasmine
Administrator

Mar 15, 2001, 5:49 AM

Post #1 of 1 (21688 views)

How can I hope to use regular expressions without	Can't Post

How can I hope to use regular expressions without creating illegible and unmaintainable code?

Three techniques can make regular expressions maintainable and understandable.

Comments Outside the Regexp

Describe what you're doing and how you're doing it, using normal Perl comments.

Code

    # turn the line into the first word, a colon, and the 
    # number of characters on the rest of the line 
    s/^(\w+)(.*)/ lc($1) . ":" . length($2) /meg;

Comments Inside the Regexp

The /x modifier causes whitespace to be ignored in a regexp pattern (except in a character class), and also allows you to use normal comments there, too. As you can imagine, whitespace and comments help a lot.
/x lets you turn this:

Code

    s{<(?:[^>'"]*|".*?"|'.*?')+>}{}gs;

into this:

Code

    s{ <                    # opening angle bracket 
        (?:                 # Non-backreffing grouping paren 
             [^>'"] *       # 0 or more things that are neither > nor ' nor " 
                |           #    or else 
             ".*?"          # a section between double quotes (stingy match) 
                |           #    or else 
             '.*?'          # a section between single quotes (stingy match) 
        ) +                 #   all occurring one or more times 
       >                    # closing angle bracket 
    }{}gsx;                 # replace with nothing, i.e. delete

It's still not quite so clear as prose, but it is very useful for describing the meaning of each part of the pattern.

Different Delimiters

While we normally think of patterns as being delimited with / characters, they can be delimited by almost any character. the perlre manpage describes this. For example, the s/// above uses braces as delimiters. Selecting another delimiter can avoid quoting the delimiter within the pattern:

Code

    s/\/usr\/local/\/usr\/share/g;      # bad delimiter choice 
    s#/usr/local#/usr/share#g;          # better

Search for (options)

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives