Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!wnoc-sfc-news!wnoc-kyo-news!kuis-news!news.cs.ritsumei.ac.jp!igakukei!daichi.first.tsukuba.ac.jp!ume!hagi!is.tsukuba.ac.jp!one
From: one@netlab.is.tsukuba.ac.jp (Hajime Tanno)
Subject: Re: how to get all env
References: <5ntmse$24o@news.aif.or.jp>
	<5nu5s8$3d1@news.aif.or.jp>
Date: Sat, 14 Jun 1997 15:43:10 GMT
Mime-Version: 1.0
Nntp-Posting-Host: pixy
X-Newsreader: mnews [version 1.20PL4] 1997-06/01(Sun)
Dnas-Posting-Host: unicorn.netlab.is.tsukuba.ac.jp
Lines: 18
Content-Type: text/plain; charset=ISO-2022-JP
Organization: Institute of Information Sciences & Electronics, University of Tsukuba, Japan
Sender: news@is.tsukuba.ac.jp (News Manager)
Message-ID: <1997Jun14.154310.16557@is.tsukuba.ac.jp>
Lines: 18
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:2077
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=2077&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.

$BB?$/$O?=$7$^$;$s$,!"(B

On Sat, 14 Jun 1997 22:24,
 $B!V(BRe: how to get all env$B!W$N5-;v$K$*$$$F!"(BDr.X$B$5$s$O=q$-$^$7$?!#(B

$B!d(B$i = 0;
$B!d(Bforeach $var (%ENV) {
$B!d(B      if($i == 0){ print "$var="; }
$B!d(B    else { print "$var\n"; }
$B!d(B   $i = ($i + 1) % 2
$B!d(B}

foreach (keys(%ENV)) { print "$_= $ENV{$_}\n"; }

$B$/$i$$$NJ}$,$h$$$+$H!D!#(B

----- posted from netlab ...
Hajime "one" Tanno @ Computer Network Laboratory, University of Tsukuba
