Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!ccut!wnoc-tyo-news!sranha!sran230!sran84!utashiro
From: utashiro@sran84.sra.co.jp (Kazumasa Utashiro)
Newsgroups: comp.lang.perl
Subject: Re: suggestion for dbmopen
Message-ID: <283@sran84.sra.co.jp>
Date: 30 Jan 91 02:37:18 GMT
References: <281@sran84.sra.co.jp> <COMPOSER.91Jan29102909@chem.bu.edu> <1991Jan29.163953.15953@convex.com>
Distribution: comp
Organization: Software Research Associates, Inc., Japan
Lines: 27

In article <1991Jan29.163953.15953@convex.com>
	tchrist@convex.COM (Tom Christiansen) writes:
>> That could actually be
>> 
>> 	$prog = $foo[$num];
>> 	do $prog();

Yes.  That is the way I'm doing now.  I think eval is the
last way to do something in most cases.

>> and skip the costly eval entirely.    But don't try to 
>> cheat and do this:
>> 	
>> 	do ($prog = $foo[$num])();

That was the intermediate stage before I reached to the
above result.  Why you know? :-)

>> Now, I admit that I've sometimes wanted 
>> 
>>     do $jump_table{$command}($arguments);

I don't want to complain about this at all.  It isn't too
bad and documented well.  Just an idea.

---
utashiro@sra.co.jp