perl脚本中如何实现python中的decimal函数

在 Perl 脚本中，可以使用 Math::Decimal 模块来实现 decimal 函数的功能。这个模块提供了 Decimal 类型，可以用于精确计算十进制数。

以下是一个示例代码：

use Math::Decimal;

# 创建 Decimal 对象
my $a = Math::Decimal->new("0.1");
my $b = Math::Decimal->new("0.2");

# 加法
my $c = $a + $b;
print $c->as_string() . "\n";  # 输出 0.3

# 减法
my $d = $b - $a;
print $d->as_string() . "\n";  # 输出 0.1

# 乘法
my $e = $a * $b;
print $e->as_string() . "\n";  # 输出 0.02

# 除法
my $f = $b / $a;
print $f->as_string() . "\n";  # 输出 2

在创建 Decimal 对象时，需要将字符串形式的十进制数作为参数。在计算时，可以直接使用加减乘除等运算符进行操作。最后，使用 `as_string()` 方法将结果转换为字符串输出。