Smart questions
Smart answers
Smart people
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login
Remember Me
Forgot Password?
Join Us!

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
Join Tek-Tips
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

LINK TO THIS FORUM!

Add Stickiness To Your Site By Linking To This Professionally Managed Technical Forum.
Just copy and paste the
code below into your site.

Tek-Tips LinkedIn® Group

Partner With Us!

"Best Of Breed" Forums Add Stickiness To Your Site
Partner Button
(Download This Button Today!)

Feedback

"...I have been a grateful member of this site for several years. I love this site and refer everyone to it!..."
More...

Geography

Where in the world do Tek-Tips members come from?
Click Here To Find Out!

Tek-Tips Shirts!

Get Tek-Tips Swag
Get your
Tek-Tips Forums
SWAG here!
Home > Forums > Programmers > Languages > Tcl/Tk Forum

how to findout root symlink directory?

thread287-1686400
Read More Threads Like This One
ramana35 (TechnicalUser)
21 Jun 12 7:54
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.
Bong (Programmer)
21 Jun 12 9:02
use [file readlink name]

_________________
Bob Rashkin

ramana35 (TechnicalUser)
22 Jun 12 6:23
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.
ramana35 (TechnicalUser)
22 Jun 12 6:26
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.
feherke (Programmer)
22 Jun 12 7:26
Hi

Not much bigger theory neither in Tcl :

CODE --> Tcl

while {[file type $input]=="link"} {
set input [file readlink $input]
}

Feherke.
http://feherke.github.com/

ramana35 (TechnicalUser)
22 Jun 12 7:38
Amazing, this is what I wanted.
thanks a ton Feherke.
Read More Threads Like This One

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Back To Forum

Back To Tcl/Tk

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close