Умножение чисел с плавающей точкой и целых в Perl с помощью оператора if

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

Добро пожаловать в 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;
}

Answer 2

Произвольные выражения не могут быть интерполированы в двойные кавычки. Пытаться:

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

Страница документации perlop включает в себя все подробности синтаксического анализа цитируемых конструкций.