имею следующий код sub compare_links{ $_[0] =~ /.*d=(\d{7}).*/; my $l1 = $1 $_[1] =~ /.*d=(\d{7}).*/; my $l2 = $1; if ($l1 = $l2) { print "Compared: $l1 \n\t$l2 - equals\n"; return 1; } else { print "Compared: $l1 \n\t$l2 - not!equals\n"; return 0; } } и получаю в $l1 и $l2 одно и тоже значение, $_[0] $_[1] - разнятся только 7ю цифрами, которые мне собственно и нужны переписал так: sub get_msgid{ $_[0] =~ /.*msgid=(\d{7}).*/; return $1; } sub compare_links{ my $l1 = get_msgid $_[0]; print "_[0] - $_[0] \n"; my $l2 = get_msgid $_[1]; print "_[1] - $_[1] \n"; if ($l1 = $l2) { print "Compared: $l1 \n\t$l2 - equals\n"; return 1; } else { print "Compared: $l1 \n\t$l2 - not!equals\n"; return 0; } } эффект тот же, помогите плиз, я даж незнаю, куда мне копать с таким
Ответ на:
комментарий
от sdio
Ответ на:
комментарий
от anonymous
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум Perl tie variables assignment (2015)
- Форум А давайте меряться? (2008)
- Форум Как сравнить длину списков по принципу связного списка? (2021)
- Форум pipe perl (2007)
- Форум Помогите с Perl разобраться. (2005)
- Форум Решил освоить perl =) (2005)
- Форум PERL (2005)
- Форум Для тех у кого не работает Kerio Client под Linux (2023)
- Форум Perl + threads (2006)
- Форум сравнение, «==» (2021)