Perl

Python で言うところの getattr してみる

ていうかむしろ eval してるだけ． eval じゃなくてホントに getattr したいんだけど，どうやってやるんだろう？

• hoge.pm

  use strict;
  use warnings;
  
  package hoge;
  
  our $foo = "hogeraccho";
  
  1;
  
  __END__
  

• unko.pm

  use strict;
  use warnings;
  
  package unko;
  
  our $foo = "unkokko";
  
  1;
  
  __END__
  

• modules ファイル

  unko
  hoge
  foo
  

• main.pl

  #!/usr/bin/env perl
  
  use strict;
  use warnings;
  use Symbol;
  
  my $sym = gensym;
  open($sym, "modules");
  while (my $module = <$sym>) {
      chomp $module;
      next unless $module;
  
      eval {
          require $module . '.pm';
          my $foo = eval("\$${module}::foo");
          print "\$${module}::foo = $foo\n";
      };
      warn "WARNING: $@" if $@;
  }
  close($sym);
  

• 実行結果

  bash$ perl main.pl
  $unko::foo = unkokko
  $hoge::foo = hogeraccho
  WARNING: Can't locate foo.pm in @INC ...