Training, Open Source computer languages

PerlPHPPythonMySQLhttpd / TomcatTclRubyJavaC and C++LinuxCSS

Search our site for:
Home Accessibility Courses Diary The Mouth Forum Resources Site Map About Us Contact
Sparse and Greedy matching - Tcl 8.4
Problem Analysis Once you have done a sparse or greedy count, all your following counts will also be sparse or greedy - this is a well documented bug in Tcl 8.4!

Reminder ...
.* is a greedy match - any character and AS MANY AS POSSIBLE
.*? is a sparse match - any character but AS FEW AS POSSIBLE

set demo abc@def@ghi@jkl
#
# Correctly working greedy matches
regexp (.*)@(.*) $demo all first second
puts "$first and $second"
#
# Correctly working sparse matches
regexp (.*?)@(.*?) $demo all first second
puts "$first and $second"
#
# Both matches will be SPARSE here
regexp (.*?)@(.*) $demo all first second
puts "$first and $second"
#
# Both matches will be GREEDY here
regexp (.*)@(.*?) $demo all first second
puts "$first and $second"


Running that, we get:

earth-wind-and-fire:~/oct07/camb grahamellis$ tclsh spag
abc@def@ghi and jkl
abc and
abc and
abc@def@ghi and jkl
earth-wind-and-fire:~/oct07/camb grahamellis$


Suggested Work-around

You can emulate a sparse match by excluding the delimiter character from he group that you would be sparse matching, and using a greedy match.

Thus
regexp (.*?)@(.*) $demo all first second
can be rewritten as
regexp {([^@]*)@(.*)} $demo all first second
if you really needed sparse followed by greedy!

result:
abc and def@ghi@jkl
(written 2007-10-27 07:09:34)

 
Associated topics are indexed under
T247 - Tcl/Tk - Advanced Regular Expressions

Back to
Buffering of inputs to expect, and match order
Previous and next
or
Horse's mouth home
Forward to
The little gestures that can really count

Some other Articles
Good, steady, simple example - Perl file handling
Better technology makes for longer commutes?
What we teach - expained for the non-technical
The little gestures that can really count
Sparse and Greedy matching - Tcl 8.4
Buffering of inputs to expect, and match order
Tcl / regsub - changing a string and using interesting bits
What is Expect?
Wireless hotel tips - FTP and Skype connections failing
Reading from another process in Tcl (pipes and sockets)
1696 posts, page by page
Link to page ... 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34 at 50 posts per page


This is a page archived from The Horse's Mouth at http://www.wellho.net/horse/ - the diary and writings of Graham Ellis. Every attempt was made to provide current information at the time the page was written, but things do move forward in our business - new software releases, price changes, new techniques. Please check back via our main site for current courses, prices, versions, etc - any mention of a price in "The Horse's Mouth" cannot be taken as an offer to supply at that price.

Link to Ezine home page (for reading).
Link to Blogging home page (to add comments).

© WELL HOUSE CONSULTANTS LTD., 2008: Well House Manor • 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01144 1225 708225 • FAX: 01144 1225 707126 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho