Убираем BOM заголовки из переменных в perl
Posted in Новости on 12 декабря, 2012 by adminДопустим, у нас есть скрипт, запускающийся вот так :
./1.pl user password
Для удобства сохраняем доступы в Windows в txt файле, из которого их будем копипастить при запуске скрипта.
В этом случае при использовании работы по ssh в auth логе будет ошибка вида :
server sshd[23315]: Failed password for invalid user \357\273\277user from x.x.x.x port 42509 ssh2
server sshd[23319]: Did not receive identification string from x.x.x.x
то есть вместе с логином в переменную вливается BOM последовательность. Лечится ее выпиливанием через регулярные выражения
my $LOGIN = $ARGV[0];
$LOGIN =~ s/^\xEF\xBB\xBF//;