Perlについての質問箱 38箱目
レス数が950を超えています。1000を超えると書き込みができなくなります。
0995デフォルトの名無しさん
2009/01/18(日) 19:03:48何をしたいのかよく分からんがこういう事ではないのか?
#!/usr/bin/perl -w
use strict;
use Scalar::Util qw(looks_like_number);
our $PI;
my($pi, $r) = map looks_like_number($_) ? $_ : 3, @ARGV;
eval "*PI = \\$pi";
print 2 * $PI * $r, "\n", eval { $PI = 3 } ? "Uh...\n" : $@;
__END__
レス数が950を超えています。1000を超えると書き込みができなくなります。