ответ можно поискать в выводе этой команды

perldoc perlop

сравнивает(==), только если use warnings убрать.

Называть переменные a/b в Perl - плохая практика. Эти переменные зарезервированы для иных целей.

«Как сравнить эти две переменные» - что подразумевается под сравнением? Так сойдет?

my $a_var = '5291-373'; 
my $b_var = '5291';

print qq{a eq b\n} if $a_var eq $b_var;
print qq{a ne b\n} if $a_var ne $b_var;

сравнивает(==), только если use warnings убрать.

Операторы == и != годятся только для сравнения чисел. В переменной $a не число, поэтому надо использовать eq и ne.

надо писать в Вижуал Студио.

так преподу и скажи. а то развели тут пёрл поэмаыш...

только если use warnings убрать.

Никогда так не делай. И use strict; тоже постоянно используй.

Называть переменные a/b в Perl - плохая практика. Эти переменные зарезервированы для иных целей.

Для каких?

Для сравнений в сортировках, ЕМНИП. Причем они глобальные.

https://perldoc.perl.org/functions/sort.html

Жесть.

Никогда так не делай. И use strict; тоже постоянно используй.

а еще лучше - use common::sence;

use common::sence

А тебе — use spell::check;.

это да, лажанулся

Жесть.

https://perldoc.perl.org/perlvar.html

use common::sense;
use spell::check;

И поди разберись, какая из прагм реально существует, а какая — просто шутка.

common::sense

https://metacpan.org/pod/distribution/common-sense/sense.pod

spell::check

Ну, почти: https://metacpan.org/pod/Comment::Spell::Check

Называть переменные a/b в Perl - плохая практика

Если использовать use strict и все локальные переменные объявлять с my, то ничего плохого не случится. Хотя однобнквенные переменные это в принципе плохая практика.

use perl or die;

Хотя однобнквенные переменные это в принципе плохая практика.

В принципе, нет. Одна или две однобуквенных переменных в коротенькой функции на несколько строк — прекрасная практика.

Без разницы короткая функция или длинная. Однобуквенное имя уместно только если это счетчик в цикле или что-то вроде того, либо функция реализует абстрактный алгоритм (НОД считает, например)

https://metacpan.org/pod/common::sense

Однобуквенное имя уместно только если это счетчик в цикле или что-то вроде того, либо функция реализует абстрактный алгоритм (НОД считает, например)

Выделение абстракции — это больше половины случаев использования коротких функций. (Хотя, как там принято именно в перле, я не знаю. Может, перловики вообще функции меньше сотни строк не пишут.)

И в любом случае, никаких проблем уследить за одной-двумя переменными в функции на несколько строк нет. Поэтому никакого удобства длинное имя не добавляет.

С другой стороны, если вы просто бездумно приняли правило «однобуквенные переменные — плохая практика» от какого-то авторитета, то вопросов больше не имею.

Да, спасибо, я уже сам поискал. К тому же Кенни тебя опередил.

А вот БезымянныйОдин, вполне возможно, принял use common::sense; за такую шутку.

За что мне перл нравится, так это за специфическое чувство юмора у сообщества. Постмодернистское, что ли. У Ларри даже где-то статья была о том, что перл — язык постмодерна.

что подразумевается под сравнением?

Я попытался упростить. Надо найти одинаковые элементы массивов. В одном массиве содержатся строки, в другом числа. Т.е. 5291 = 5291-373, как то так.

my $item;
while($item = shift (@new_lst), my $f2_line = <$fn>)
{
    $item =~ tr/\r\n//d;
    #$item =~ s/-\d+//d;
    if ($item == $f2_line) 
    { 
     	#print $item,' ', $f2_line; 
     	print $f2_line;
    	#print $item;
    }
}

И вот тут я не знаю как сделать без use warnings. Если $item eq $f2_line . То он вообще ничего не находит.

скрипт пишется для себя. Иди сри в другую тему.

Спасибо.

Когда на ЛОРе научаться игнорировать откровенно мудацкие вопросы?