11 2012 档案

摘要：do_code.plreturn sub {print "hello\n"};do_array.pl[1 2 3 4 5]do_hash.pl{a = 'hello', b = '你好', c = 'bonjour'}do_excute.pl#!/usr/bin/perl -wuse strict;use YAML::XS;my $code = do 'do_code';#y $code = eval `cat stat.pl`;my $ref = ref $code; print "$ref\n&q 阅读全文