egghelp/eggheads community

I hate using regexp...

2005-05-12T04:48:20-04:00

Thanks, but I'd resolved it using another way (have a look to the tcl bash.tcl).
In fact, my big trouble is that I'm too used to work with PHP and it's hard to forget some tools

Statistics: Posted by CrazyCat — Thu May 12, 2005 4:48 am

I hate using regexp...

2005-05-11T18:16:08-04:00

if the number of lines are fix, I would suggest using neither -inline neither -all and include all matching lines into the regexp. I have regular expressions that are over 800 byte, so dont worry about it as long this is nothing called to often ^-^.

Another suggestion would be to use regsub to kill the code you dont need and split it on \n then or so.

Statistics: Posted by De Kus — Wed May 11, 2005 6:16 pm

I hate using regexp...

2005-05-10T12:50:15-04:00

Hi there, I've a little trouble using regexp.
Here's my code.

Code:

proc bash:random {nick uhost handle chan args} {set key [http::geturl $::rand_url]set line [http::data $key]set quote [regexp -inline -all {[^\f\t\v]{1,}
} $line]foreach qt [split $quote "\n"] {if {[string first $quote "#"] > 0} {return}set show_quote [uncode $qt]if {$show_quote != ""} {putserv "PRIVMSG $chan :$show_quote"}}putserv "PRIVMSG $chan :\002End of quote\002"}

the source code I try to parse is like this:
Code:
#1 here is a line and another one #2 oh, a line and another one
I want to obtain:
here is a line
and another one
--- Next ---
oh, a line
and another one
End of quote
and I can't because the regexp returns:
here is a line
and another one
#2 oh, a line
and another one
End of quote
I can't succeed in finding the good way to have the regexp splitting my source in an array, or other format allowing me to have each part separated.
I know I can split on '
' but I'm sure I can find a beautifull way with regexp...
Statistics: Posted by CrazyCat — Tue May 10, 2005 12:50 pm