隨手記錄

#!/usr/bin/perl

$PARA1 = 10.25;
$PARA2 = 20;
$PARA3 = "YTLIU0.PIXNET.NET";
$PARA4 = "-123.456";

$ABS_1 = abs($PARA1);
$ABS_2 = abs($PARA2);
$ABS_3 = abs($PARA3);
$ABS_4 = abs($PARA4);

print "PARA1 → ABS VALUE is $ABS_1\n" ;
print "PARA2 → ABS VALUE is $ABS_2\n" ;
print "PARA3 → ABS VALUE is $ABS_3\n" ;
print "PARA4 → ABS VALUE is $ABS_4\n" ;

PARA1 → ABS VALUE is 10.25
PARA2 → ABS VALUE is 20
PARA3 → ABS VALUE is 0
PARA4 → ABS VALUE is 123.456