Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!etlinn.etl.go.jp!etl.go.jp!trc.rwcp!rwc-tyo!news.iij.ad.jp!news.sun.co.jp!sunj-gate.Japan.Sun.COM!news2me.EBay.Sun.COM!venus.sun.com!wnoc-sfc-news!wnoc-snd-ss2!akiu!sakunami!ayashi!kaneko
From: kaneko@ccedu.sendai-ct.ac.jp (Yutaka Kaneko)
Subject: Re: [Q]How to execute setenv
X-Nntp-Posting-Host: saikachi
Message-ID: <DE80Iq.3s8@ayashi.cc.sendai-ct.ac.jp>
Lines: 41
Sender: news@ayashi.cc.sendai-ct.ac.jp (SNCT NetNews Manager)
Organization: Sendai National College of Technology
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
References: <1341@eris.asahi-kasei.co.jp>
	<DE7J1F.6s4@Maria.nid.co.jp>
Date: Fri, 1 Sep 1995 09:47:14 GMT
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:459
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=459&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.

  $B6b;R!w@gBfEEGH$G$9!#(B

In article <DE7J1F.6s4@Maria.nid.co.jp>
takahasi@Nancy.nid.co.jp writes:
>> perl $B$K8B$C$?;v$G$O$"$j$^$;$s$,!"?F%W%m%;%9$N4D6-JQ?t$r(B
>> $B;R%W%m%;%9$+$iD>@\A`:n$9$k$3$H$O$G$-$^$;$s!#(B
>> csh $B$+$i8F$V;~$K(B
>> 
>>         set rlhost = `perl-program`
>> 
>> $B$H$d$C$F!"(Bperl $B$N%W%m%0%i%`$G$O4D6-JQ?t$XF~$l$?$$CM$rI8=`=PNO$X(B
>> $B=PNO$9$k!#$H$$$&$d$j$+$?$G$O$@$a$G$7$g$&$+(B?

  $BB>$K$b!"(Bresize(X11)$B$d(Btset(1)$B$N$h$&$K!"(Beval$B$r;H$&J}K!$b$"$j$^$9!#(B

  $B%W%m%0%i%`$OI8=`=PNO$K(B

setenv A HOGE
setenv B GEHO

$B$r=PNO$7!"F0$+$9;~$O(B

% eval `perl prog ...`

$B$9$l$P$h$$$@$1$G$9!#$b$A$m$s!"Kh2s(Beval$B$&$s$L$s$HBG$D$N$O(B
$BBgJQ$G$9$+$i!"E,Ev$K(Balias$B$r;H$($P$h$$$G$7$g$&!#(B

  $B$"$H!"$3$N<j$N%3%^%s%I$O!";HMQCf$N%7%'%k$,(Bcsh$B$+(Bsh$B$+$rH=Dj(B
$B$7$F!"$=$l$>$l$K$"$C$?=PNO$r$9$Y$-$G$7$g$&!#4pK\E*$K$O!"(B
$SHELL$B$GH=Dj$7!"$5$i$K(Bcsh(sh)$BMQ$N=PNO$r$9$k$h$&$K$J%*%W%7%g(B
$B%s$r;}$F$P$h$$$H;W$$$^$9!#(B

  source(sh$B$@$H(B . )$B$rMxMQ$9$k<j$b$"$j$^$9$,!"IaDL(Beval$B$GB-$j(B
$B$k$G$7$g$&!#%3%^%s%I9T$KD9$5@)8B$,$"$k%7%'%k$b$"$j$^$9$,!"D9(B
$B$5@)8B$K0z$C3]$+$k$h$&$JBgNL$N4D6-JQ?t$r%;%C%H$9$k;v$J$I$U$D(B
$B$&$7$^$;$s!#(B

main(i,j){j=time(0);do for(i /*      $B6b;R(B $BM5(B(Yutaka Kaneko)           */
=0;i<79;i++)printf(j%512>>4? /* Sendai National College of Technology */
" ":"*"),j=j*331+113;while(  /*    kaneko@cc.sendai-ct.ac.jp          */
printf("\n\033[H\033[1L"));} /* or kaneko@akiu.gw.tohoku.ac.jp        */
