From: nobu.nokada@...
Date: 2002-06-03T08:42:16+09:00
Subject: Re: $a = 5; $b = 'a'; print $$b

Hi,

At Mon, 3 Jun 2002 08:27:04 +0900,
Philip Mak wrote:
> class Series
>     attr_accessor :sid, :handle, :name
>     def initialize(vals)
>         vals.each_key { |key|
>             eval("@" + key + "= vals[key]")
>         }
>     end
> end
> 
> A bit kludgy looking (I'm porting something from Perl, and it abused
> the fact that classes are hashes in Perl) but it works.

  Series = Struct.new(nil, :sid, :handle, :name)
  class Series
    def initialize(vals)
      super(*vals.indexes(*members))
      # super(*vals.select(*members)) # for 1.7
    end
  end
  a = Series.new("sid"=>3, "handle" => "smoon", "name" => "Sailor Moon")
  puts a.name

-- 
Nobu Nakada