Question

我的目标是利用perl来乘以一个浮点数和一个int，我已经做到这一点，我还在研究，非常感谢任何帮助。

#!/usr/bin/perl

$float1 = 0.90

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

Answer 1

欢迎来到Perl。一些提示：

始终在每个Perl脚本的顶部包含use strict;和use warnings;。
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;
}

Answer 2

无法将任意表达式插入双引号中。尝试：

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

perlop 文档页面包含所有gory details of parsing quoted constructs。

通过if语句将perl中的浮点数和整数相乘

2 个答案: