Perlについての質問箱 33箱目
■ このスレッドは過去ログ倉庫に格納されています
0853デフォルトの名無しさん
2008/01/06(日) 16:09:09use YAML;
use Scalar::Util;
print "\$YAML::VERSION = $YAML::VERSION\n";
my $arrayref = Load(<<'__HERE__');
- hoge
- 123
- true
__HERE__
foreach (@{$arrayref}) {
# cf. http://blog.livedoor.jp/dankogai/archives/50916183.html
print "$_: ", Scalar::Util::looks_like_number $_ ? 'num' : 'string', "\n";
}
■ このスレッドは過去ログ倉庫に格納されています