500 ошибка внутреннего сервера perl/База данных

Question

Я получаю доступ к базе данных из моего скрипта perl и пытаюсь включить оператор if, чтобы иметь возможность запрашивать разные вещи в зависимости от того, что пользователь выбирает.

Он отлично работает без оператора if, но когда я добавляю оператор if, он дает мне ошибку 500.

Так это работает:

my $query = "SELECT * FROM cars"; 

И это один не делает:

if($model eq "All" ){ 

    my $query = "SELECT * FROM cars"; 

} 

Answer 1

Переменные, объявленные с моей имеют объем ближайшего объемлющего блока. Что в вашем случае означает, что $query не объявлен вне вашего оператора if.

Решение заключается в размещении декларации в правом объеме, например. перед if-statement.

Фактически, как показано в сообщении о вашей ошибке Global symbol "$query" requires explicit package name, это приведет к ошибке 500.