Newsgroups: fj.lang.misc
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!nirvana.cs.titech!wnoc-tyo-news!nkkgw!newshost!nakatani
From: nakatani@csrd.nkk.co.jp (NAKATANI ext.4442)
Subject: Re: [Tcl] Q: How can I get UNIX env values? / UNIX$B4D6-JQ?t$rFI$`$K$O(B
In-Reply-To: kanjy@slab.tnr.sharp.co.jp's message of 18 Jan 1994 21:18:49 +0900
Message-ID: <NAKATANI.94Jan20092657@poseidon.csrd.nkk.co.jp>
Followup-To: fj.lang.misc
Sender: news@nkk.co.jp
Organization: NKK corp.,Tokyo,Japan
References: <2hgk39$qa5@slabd.slab.tnr.sharp.co.jp>
Date: Thu, 20 Jan 1994 00:26:57 GMT
Lines: 21
Xref: galaxy.trc.rwcp.or.jp fj.lang.misc:1407
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.misc&nb=1407&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BCfC+!w#N#K#K$G$9!#(B

   Tcl script $B$NCf$G(B UNIX $B$N4D6-JQ?t$NCM$r8+$?$$$s$G$9$,!"J}K!(B
   $B$,$o$+$j$^$;$s!#$I$J$?$+65$($F$$$?$@$1$^$;$s$G$7$g$&$+!#(B
   $BNc$($P!"%[!<%`%G%#%l%/%H%j$rCN$j$?$$$h$&$J>l9g$G$9!#(B

tcl $B$,=`Hw$7$F$$$kJQ?t!JG[Ns!K$K(B env $B$,$"$j$^$9!#(B

  % info args $B$GJ,$+$j$^$9!#(B

$B$G!"(B
  % array names env $B$H$d$l$P!"(B
  HOME MANPATH XMODIFIERS LANG LOGNAME PWD TERMCAP DISPLAY HOST HOSTTYPE SHELL TERM SHLVL WINDOWID PATH USER

$B4D6-JQ?tL>$,J,$+$j$^$9!#(B
  % set home $env(HOME)
$B$J$I$H$9$l$P=&$($k$O$:$G$9!#(B
--
$B#N#K#K(B $B%(%l%/%H%m%K%/%98&5f=j(B $B%3%s%T%e!<%?%7%9%F%`8&5fIt(B
$BCfC+C$8^O:(B (Nakatani Tatsugoro)
nakatani@csrd.nkk.co.jp
