Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!sun-barr!cs.utexas.edu!usc!ucsd!ucbvax!iwarp.intel.com!news
From: merlyn@iwarp.intel.com (Randal Schwartz)
Newsgroups: comp.lang.perl
Subject: Table inversion (was Re: alarm())
Message-ID: <1990Dec1.193120.28978@iwarp.intel.com>
Date: 1 Dec 90 19:31:20 GMT
References: <3294@medusa.informatik.uni-erlangen.de> <109564@convex.convex.com> <EMV.90Nov30194551@poe.aa.ox.com>
Sender: news@iwarp.intel.com
Reply-To: merlyn@iwarp.intel.com (Randal Schwartz)
Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA
Lines: 46
In-Reply-To: emv@ox.com (Ed Vielmetti)

In article <EMV.90Nov30194551@poe.aa.ox.com>, emv@ox (Ed Vielmetti) writes:
| A nice example of how to load data into an associative array with some
| kind of <<ENDOFTABLE construct would be welcomed (if it's not already
| in there).  Or several associative arrays, for that matter.  I'd like
| to have some way of taking a table
| 
| news/readers	rn,nn,trn
| news/nntp	nntp,nntpxmit,nntplink
| gnu		binutils,flex,fileutils
| x11/games	xtrek
| lwall		rn,patch,perl
| ENDOFTABLE
| 
| and turning it into
| 
| $category{"rn"} -> "news/readers,lwall"
| $category{"nntpxmit"} -> "news/nntp"
| $category{"binutils"} -> "gnu"

for (split(/\n/,<<ENDOFTABLE)) {
news/readers	rn,nn,trn
news/nntp	nntp,nntpxmit,nntplink
gnu		binutils,flex,fileutils
x11/games	xtrek
lwall		rn,patch,perl
ENDOFTABLE
	($key,$rest) = split;
	for (split(/,/,$rest)) {
		if (defined($category{$_})) {
			$category{$_} .= ",$key";
		} else {
			$category{$_} = $key;
		}
	}
}

for (sort keys category) {
	print "$_\t$category{$_}\n";
}

print "Just another Perl hacker,"
-- 
/=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\
| on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III      |
| merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn |
\=Cute Quote: "Intel: putting the 'backward' in 'backward compatible'..."====/


Brought to you by Super Global Mega Corp .com