Hi,
Thanks for looking into it.
I am getting below error when i run command to see the changed files.
bash-2.05$ cvs -n -q update /volume/ws1
cvs update: CVSROOT must be an absolute pathname (not `<?xml v')
cvs update: when using local access method.
cvs update: in directory /volume/ws1:
cvs...
if it is perl i can use below code
while (-l $input) {
$input = readlink($input)
}
then it will go till it doesn't find symlink.
But i am not sure how to do it in TCL.
please let me now if any of you have clues.
Thanks Bond,
It is only giving one level.
if there are 2 levels of links or 3 levels of links, i want the one which is very origin.
ex:
a->b
b->c
c->d
set var [file readlink $input] giving b when i pass input as a.
HI,
Thanks for looking at this.
I have a directory, which is a symlink
ex?ls -ld temp --> temporg2
ls -ld temporg2 --> temp_org
I would like to set temp_org to my final name based on temp.
Thanks in advance.
below one worked for me.
if { ![catch {exec groups $user_or_scoped_pr} result] } {
puts "user exist"
{ else {
puts "user not exist"
exit
}
Anyways thanks.
Thanks for quick response.
Actually i would like to check if a user is existed or not.
so i can execute id username
can you describe me what puts [dict get $option -code] do ?
how can i exit if id username return error(means user not existed)
Hi,
Could somebody help me in getting exit staus of command in tcl.
if it is shell script we can use echo $? right, how can i do that in tcl ?
thanks in advance.
-Kamma
Hi,
I have a script that will add usernames into a permitted list.
Before adding it i would like to check if that username is really existed in my unix machine or not.
if it is shell scripting i can use id -a username and see exit status of that.
Could somebody tell how to do that in tcl...
I have a variable which has value like 1234 or ramana
if it is either 1234 or ramana , i want to return true, else false
can you ell me how can i use string is ?
Hi,
I am new to tcl,
Please help with below simple requirement
I will have a value in my variable, need to check wheather it is numeric or string.
i tried in below way, but did not work
if [ [regexp {^([0-9]+)$} $variable] || ![string match {^([a-z]+)$} $var] ] {
puts "either numeric or...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.