01-09-2008
i would rather use lsearch
i was trying to understand if (and how) that can be done with 'regexp'?
Otherwise,
lsearch -exact $str1 $var1
does the job pretty well.
% set var1 {a[1]}
a[1]
% set var2 {aa[1]}
aa[1]
% set var3 {a[11]}
a[11]
% set str1 {a[1] is the element we are looking for and not aa[1] or a[11]}
a[1] is the element we are looking for and not aa[1] or a[11]
% lsearch -exact $str1 $var1
0
% lsearch -exact $str1 $var2
10
% lsearch -exact $str1 $var3
12
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
I have field in a file which would come with any special character, how do i check that field?
Eg: @123TYtaasa>>>/ 131dfetr_~2
In the above example, how do I add pattern for any special character on the keyboard.
Thanks (3 Replies)
Discussion started by: techmoris
3 Replies
2. Shell Programming and Scripting
Hello,
I cannot see what's wrong in my code.
When I run code below, it just print an empty string.
my $test = "SWER~~ERTGSDFGTHAS_RTAWGA_DFAS.x4-234253454.in";
if ($test = ~ m/\~{1,2}.*4/) {
print "$1\n";
}
else {
print "No match...\n";
}
Anyone know what I'm doing wrong?
... (4 Replies)
Discussion started by: urandom
4 Replies
3. Shell Programming and Scripting
Hi,
maybe it is stupid question, but is it possible to match expression like this ? :
... // ... ( there is "//" somewhere on the line and on the end of the line there ISN'T "*/" )
I've tried something like : (in SED)
sed 's/\/\/'
but I need "*/" not to be on the end of the line ...... (2 Replies)
Discussion started by: kolage
2 Replies
4. Shell Programming and Scripting
Hello everyone,
I'm new in tcl scripting.
I'm currently studying a tcl script and came across this line:
regexp {(\d+)(\S?)} $opts match opt swi
According to my understanding, this line means to search in the opts variable for one or more digit, followed by a non-whitespace character... (2 Replies)
Discussion started by: mar85
2 Replies
5. Shell Programming and Scripting
I need some help with regexp in tcl. The following code does work if the $urlvar ends in jpg,jpeg,png or gif. Eg, protocol(http/https)://testsite.com/images/image1.jpg
if { ! } {
//Do something
}
My problem is that if the URL does not end in these extensions this regexp is of no... (1 Reply)
Discussion started by: ampak
1 Replies
6. Shell Programming and Scripting
I need to change R3.1.5 as 03015
similarly R4.1.7 as 04017
i need a single command
in tcl pls help
---------- Post updated at 05:19 PM ---------- Previous update was at 04:48 PM ----------
i had to do like this without using regexp
set old_release "R3.1.5"
... (1 Reply)
Discussion started by: Syed Imran
1 Replies
7. Shell Programming and Scripting
Hi.
I have 2 files of below format.
File1
AA~1~STEVE~3.1~4.1~5.1
AA~2~DANIEL~3.2~4.2~5.2
BB~3~STEVE~3.3~4.3~5.3
BB~4~TIM~3.4~4.4~5.4
File 2
AA~STEVE~AA STEVE WORKS at AUTO COMPANY
AA~DANIEL~AA DANIEL IS A ELECTRICIAN
BB~STEVE~BB STEVE IS A COOK
I want to match 1st and 3rd... (2 Replies)
Discussion started by: crypto87
2 Replies
8. Shell Programming and Scripting
In a tcl script I need to find a way of reading a file, and looking for a phrase ("set myvariable") and putting the word following that into a variable.
I've used a file open, and a while loop with gets to read each line from the file into a variable, and using regexp searched for the item. I'm... (1 Reply)
Discussion started by: Tonyb61
1 Replies
9. Shell Programming and Scripting
Hi,
I have written a unix expect utility "ssh-login.exp" which connects (ssh) to remote host and execute some shell script. I am calling this "ssh-login.exp" utility from another shell script.
"ssh-login.exp" takes username, password, host and shell script path to execute on remote host. All... (1 Reply)
Discussion started by: Mahesh Desai
1 Replies
10. UNIX for Beginners Questions & Answers
Hi
I am writing a TCL script to delete a certain in a file
My Input file
module bist_logic_inst(a, ab , dhd, dhdh , djdj, hdh, djjd, jdj, dhd, dhp, dk
);
input a;
input ab;
input dhd;
input djdj;
input dhd;
output hdh;
output djjd;
output jdj;
output dk; (1 Reply)
Discussion started by: kshitij
1 Replies
LEARN ABOUT OPENDARWIN
lsearch
lsearch(n) Tcl Built-In Commands lsearch(n)
__________________________________________________________________________________________________________________________________________________
NAME
lsearch - See if a list contains a particular element
SYNOPSIS
lsearch ?options? list pattern
_________________________________________________________________
DESCRIPTION
This command searches the elements of list to see if one of them matches pattern. If so, the command returns the index of the first match-
ing element (unless the options -all or -inline are specified.) If not, the command returns -1. The option arguments indicates how the |
elements of the list are to be matched against pattern and it must have one of the following values:
-all Changes the result to be the list of all matching indices (or all matching values if -inline is specified as well.) |
-ascii The list elements are to be examined as Unicode strings (the name is for backward-compatability reasons.) This option is only mean-
ingful when used with -exact or -sorted.
-decreasing
The list elements are sorted in decreasing order. This option is only meaningful when used with -sorted.
-dictionary
The list elements are to be compared using dictionary-style comparisons. This option is only meaningful when used with -exact or
-sorted.
-exact The list element must contain exactly the same string as pattern.
-glob Pattern is a glob-style pattern which is matched against each list element using the same rules as the string match command.
-increasing
The list elements are sorted in increasing order. This option is only meaningful when used with -sorted.
-inline
The matching value is returned instead of its index (or an empty string if no value matches.) If -all is also specified, then the |
result of the command is the list of all values that matched.
-integer
The list elements are to be compared as integers. This option is only meaningful when used with -exact or -sorted.
-not This negates the sense of the match, returning the index of the first non-matching value in the list. |
-real The list elements are to be compared as floating-point values. This option is only meaningful when used with -exact or -sorted.
-regexp
Pattern is treated as a regular expression and matched against each list element using the rules described in the re_syntax refer-
ence page.
-sorted
The list elements are in sorted order. If this option is specified, lsearch will use a more efficient searching algorithm to search
list. If no other options are specified, list is assumed to be sorted in increasing order, and to contain ASCII strings. This
option is mutually exclusive with -glob and -regexp, and is treated exactly like -exact when either -all, or -not is specified.
-start index
The list is searched starting at position index. If index has the value end, it refers to the last element in the list, and |
end-integer refers to the last element in the list minus the specified integer offset.
If option is omitted then it defaults to -glob. If more than one of -exact, -glob, -regexp, and -sorted is specified, whichever option is
specified last takes precedence. If more than one of -ascii, -dictionary, -integer and -real is specified, the option specified last takes
precedence. If more than one of -increasing and -decreasing is specified, the option specified last takes precedence.
EXAMPLES
|
lsearch {a b c d e} c => 2 |
lsearch -all {a b c a b c} c => 2 5 |
lsearch -inline {a20 b35 c47} b* => b35 |
lsearch -inline -not {a20 b35 c47} b* => a20 |
lsearch -all -inline -not {a20 b35 c47} b* => a20 c47 |
lsearch -all -not {a20 b35 c47} b* => 0 2 |
lsearch -start 3 {a b c a b c} c => 5 |
SEE ALSO
foreach(n), list(n), lappend(n), lindex(n), linsert(n), llength(n), lset(n), lsort(n), lrange(n), lreplace(n) |
KEYWORDS
list, match, pattern, regular expression, search, string
Tcl 8.4 lsearch(n)