通過if語句將perl中的浮點數和整數相乘

Question

我的目標是利用perl來乘以float和int，我已經得到了這麼多，並且仍在研究中，非常感謝任何幫助。

#!/usr/bin/perl 

$float1 = 0.90 

print "give me an integer"; 
$that_integer = <>; 
if ($that_integer<=5000) { 
    print "$that_integer * $float1"; 
} 

Answer 1

任意表達式不能插入到雙引號中。嘗試：

print $that_integer * $float1, "\n"; 

的perlop中文檔頁面包括所有gory details of parsing quoted constructs。

Answer 2

歡迎來到Perl。一些提示：

• 始終包括use strict;和use warnings;在每一個Perl腳本的頂部。

• chomp您從<STDIN>輸入刪除最後一個換行符。

• 不能內插表達式。但是，您可以使用printf輕鬆地將它們包含在一個字符串中。

作爲證明：

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

my $float1 = 0.90; 

print "give me an integer: "; 
chomp(my $that_integer = <>); 

if ($that_integer <= 5000) { 
    printf "%f\n", $that_integer * $float1; 
}