Perl abs()函数

这个函数返回其参数的绝对值。如果传递的是纯整数，那么它将原样返回，但如果传递的是字符串，那么它将返回0。如果省略了VALUE，则使用$_。

语法： abs(VALUE)

参数：

VALUE： 这是一个必需的数字，可以是正数或负数，也可以是一个字符串。

返回： 函数返回所传递参数的绝对值。

示例 1 :

#!/usr/bin/perl
  
# Defining decimal value
var1 = 15.8;
  
# Defining integer valuevar2 = 7;
  
# Defining negative value
var3 = "-15.2";
  
# Calling abs() functionres1 = abs(var1);res2 = abs(var2);res3 = abs(var3);
  
# Printing these values
print "Abs value of var1 isres1\n";
print "Abs value of var2 is res2\n";
print "Abs value of var3 isres3";

输出

Abs value of var1 is 15.8
Abs value of var2 is 7
Abs value of var3 is 15.2

例2 :

#!/usr/bin/perl
  
# Defining string value
var1 = "Geeks";
  
# Defining Fractional valuevar2 = 7/2;
  
# Calling abs() function
res1 = abs(var1);
res2 = abs(var2);
  
# Print these values
print "Abs value of var1 is res1\n";
print "Abs value of var2 isres2";

输出

Abs value of var1 is 0
Abs value of var2 is 3.5