27 lines
720 B
Perl
27 lines
720 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
$integerValue = 10;
|
||
|
|
$floatingPointValue = 11.43;
|
||
|
|
$scientificValue = 42.03E-04;
|
||
|
|
$nationalDebt = 6_000_000_000_000;
|
||
|
|
$divisionValue = 23/7;
|
||
|
|
$hexValue = 0x0F3;
|
||
|
|
$octalValue = 037;
|
||
|
|
|
||
|
|
$itotal = $integerValue + $hexValue;
|
||
|
|
$ftotal = $floatingPointValue + $integerValue;
|
||
|
|
$dtotal = $divisionValue + $octalValue;
|
||
|
|
|
||
|
|
print "Integer \t $integerValue\n";
|
||
|
|
print "Floating Point \t $floatingPointValue\n";
|
||
|
|
print "Scientific \t $scientificValue\n";
|
||
|
|
print "National Debt \t $nationalDebt\n";
|
||
|
|
print "Division \t $divisionValue\n";
|
||
|
|
print "Hex \t\t $hexValue\n";
|
||
|
|
print "Octal \t\t $octalValue\n";
|
||
|
|
print "\n\n";
|
||
|
|
print "itotal = $itotal\n";
|
||
|
|
print "ftotal = $ftotal\n";
|
||
|
|
print "dtotal = $dtotal\n";
|