Matthew Dalton <[EMAIL PROTECTED]> wrote:
>
> Friday afternoon blues....
> #!/usr/bin/perl
> # only works on Linux :)
> $pid = `ps | grep $0 | grep perl | grep -v grep | cut -d " " -f 1`;
> chomp($pid);
> print `ls /proc/$pid -l | grep cwd | sed -e 's/.*cwd -> //g'`;
There is a /proc/self you know :)
--
Debian GNU/Linux 2.2 is out! ( http://www.debian.org/ )
Email: Herbert Xu ~{PmV>HI~} <[EMAIL PROTECTED]>
Home Page: http://gondor.apana.org.au/~herbert/
PGP Key: http://gondor.apana.org.au/~herbert/pubkey.txt
--
SLUG - Sydney Linux User Group Mailing List - http://slug.org.au/
More Info: http://slug.org.au/lists/listinfo/slug
