egghelp/eggheads community

lsearch regexp

2007-01-26T15:19:49-04:00

Then I guess I will go with your suggestion of stepping through the segments to find all my HDR's.

Thanks so much for your time, I really appreciate it.

Ricci

Statistics: Posted by rlgraham — Fri Jan 26, 2007 3:19 pm

lsearch regexp

2007-01-26T15:16:38-04:00

* is a wildcard used with glob-style matching, not regular expressions. It will match 0 or more characters (including whitespaces and other "special" characters).

Using *-wildcard with glob-style matching in lsearch would mean it would match each list-item against *, which would match the first item in the list, and hence return the list index for that item (obviously 0).

There is no *-argument.

Statistics: Posted by nml375 — Fri Jan 26, 2007 3:16 pm

lsearch regexp

2007-01-26T15:12:00-04:00

I thought in the older version you could use a * instead of the -all and get the same thing, but it gives me the same error. I thought I just had the syntax wrong. Are you familar with the * matching all?

Statistics: Posted by rlgraham — Fri Jan 26, 2007 3:12 pm

lsearch regexp

2007-01-26T15:08:35-04:00

Unfortunately, 8.0 lacks many features such as the -all argument with lsearch.

I would guess the simplest approach (next to bugging your admin to upgrade tcl to 8.4ish), would be to manually step through the list (foreach) and manually test each list-item with regexp, possibly building a new list based on wether each item pass or fail the regexp-test...

ie:

Code:

set new_segments {}set HDRKeep 0foreach item $segments { if {[regexp -- {^HDR} $item]} {  if {$HDRKeep == 0} {   lappend new_segments $item   set HDRKeep 1  } } else {  lappend new_segments $item }}

Statistics: Posted by nml375 — Fri Jan 26, 2007 3:08 pm

lsearch regexp

2007-01-26T14:57:21-04:00

version 8.0

Statistics: Posted by rlgraham — Fri Jan 26, 2007 2:57 pm

lsearch regexp

2007-01-26T14:55:04-04:00

Could you check which version of tcl you are using? Some features are not available in all versions in use today.

Statistics: Posted by nml375 — Fri Jan 26, 2007 2:55 pm

lsearch regexpr

2007-01-26T14:53:09-04:00

I had tried that and it gives this error:

wrong # args: should be "lsearch ?mode? list pattern"
while executing
"lsearch -regexp -all $segments {^HDR}"

so that is why I was trying to get another idea of the way to use the syntax. Any other ideas?

Statistics: Posted by rlgraham — Fri Jan 26, 2007 2:53 pm

lsearch regexp

2007-01-26T14:46:42-04:00

something like this I suppose:

Code:

set HDRLocList [lsearch -regexp -all $segments {^HDR}]set HDRKeep 0foreach HDRLoc $HDRLocList { set HDR [lindex $segments $HDRLoc] ...}

In case you're thinking of using lreplace to remove any (and all) HDR segments, be advised that the first lreplace operation would most likely make the list from lsearch invalid, unless you use a "lazy-delete" style of removal...

IE.

Code:

set segments [lreplace $segments $HDRLoc $HDRLoc]

would make the list of HDR-locations invalid, as it alters the list structure; one possible option might be

Code:

set segments [lreplace $segments $HDRLoc $HDRLoc {}]

which does not remove the actual list-entity, but just clears it, and thus retains the integrity of the list of HDR-locations

Statistics: Posted by nml375 — Fri Jan 26, 2007 2:46 pm

lsearch regexpr

2007-01-26T14:35:20-04:00

That is what I thought I should use, can you show me the syntax for the line I have in bold?

Statistics: Posted by rlgraham — Fri Jan 26, 2007 2:35 pm

lsearch regexp

2007-01-26T14:31:37-04:00

Tried the -all option? Should make lsearch return a list rather than a single value, which you then should be able to use with a foreach-loop...

Statistics: Posted by nml375 — Fri Jan 26, 2007 2:31 pm

lsearch regexp

2007-01-26T12:47:51-04:00

I am writing a tcl script and I am not familar with how to use the

lsearch -regexp command to get "all" the segments in a file. Here is a peice of my code:

Code:

if {$filenum > 0} { set filename [lindex $filelist 0] set fileid [open $filename r] set newfile [read $fileid] set segments [split $newfile \r]#Here is where I need to know how to get all of the HDR segments not# just the first one?[b] set HDRLoc [lsearch -regexp $segments {^HDR}][/b]

My goal is to strip out all the HDR segments except the first one.

Any suggestions will be greatly appreciated.

Thanks,

Ricci

Statistics: Posted by rlgraham — Fri Jan 26, 2007 12:47 pm