Changes between Initial Version and Version 1 of Perl

Timestamp:

07/31/06 22:52:47 (18 years ago)

Author:

atzm

Comment:

--

Perl

@@ +1 @@
+[[PageOutline]]
+
+= Perl =
+== Python で言うところの getattr してみる ==
+ていうかむしろ eval してるだけ．
+eval じゃなくてホントに getattr したいんだけど，どうやってやるんだろう？
+
+ * {{{hoge.pm}}}
+{{{
+#!perl
+use strict;
+use warnings;
+
+package hoge;
+
+our $foo = "hogeraccho";
+
+1;
+
+__END__
+}}}
+ * {{{unko.pm}}}
+{{{
+#!perl
+use strict;
+use warnings;
+
+package unko;
+
+our $foo = "unkokko";
+
+1;
+
+__END__
+}}}
+ * {{{modules}}} ファイル
+{{{
+unko
+hoge
+foo
+}}}
+ * {{{main.pl}}}
+{{{
+#!perl
+#!/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);
+}}}
+ * 実行結果
+{{{
+#!sh
+bash$ perl main.pl
+$unko::foo = unkokko
+$hoge::foo = hogeraccho
+WARNING: Can't locate foo.pm in @INC ...
+}}}