perl中编写程序，提示用户键入半径，根据用户输入的半径的值，求出对应圆的直径、周长和面积，并输出

在Perl中，你可以创建一个简单的小程序来让用户输入圆的半径，然后根据公式计算直径、周长和面积并打印出来。下面是相应的代码示例：

#!/usr/bin/perl
use strict;
use warnings;

print "请输入圆的半径：";
my $radius = <STDIN>;
chomp($radius);  # 移除输入末尾的换行符

# 定义圆的直径、周长和面积计算函数
sub calculate {
    my ($r) = @_;
    my $diameter = 2 * $r;     # 直径 = 半径 * 2
    my $circumference = 2 * pi() * $r;   # 周长 = 2πr，其中pi()是Perl内置的圆周率常量
    my $area = pi() * $r**2;   # 面积 = πr²

    return ($diameter, $circumference, $area);
}

# 调用函数并输出结果
my ($d, $c, $a) = calculate($radius);
print "圆的直径是：$d\n";
print "圆的周长是：$c\n";
print "圆的面积是：$a\n";

# 提供相关问题