Ошибка в Perl скрипте

[Darnet]

Пожалуста помогите разобрать со скриптом в perl, выводит ошибку, но сам вроде работает. Скрипт очень полезный может кому-нибудь еще пригодится.

Вот скрипт mac.pl:

Код: Выделить всё

#!/usr/bin/perl -w

$community = "public";
$switch = "172.16.0.254";


for ($vlan_id=300; $vlan_id<=327; $vlan_id++)
{

open(SNMP,"snmpwalk -v2c -c $community'\@'$vlan_id $switch .1.3.6.1.2.1.17.4.3.1.1|");
while (<SNMP>)
{
   chomp;
   my ($oid, $mac) = split /=\s*/;

   $_ = $mac;
   s/\s*$//; s/ /:/g; s/(.)/\l\1/g; s/hex-string:://g;
   $mac_table{$_} .= $mac;
   
}
close(SNMP);

}

foreach $mac (keys %mac_table) {
        print "$mac\n"; 
}

А вот сама ошибка:

Код: Выделить всё

\1 better written as $1 at ./mac.pl line 17.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[hizel]

скрипт дурацкий, почему не использовать интерфейс Net::SNMP сразу из пёрла

[Darnet]

Не могу с ним работать, да мне только надо снять маки с виланов и все, а что та на счет ошибки как ее исправить.

[hizel]

Код: Выделить всё

\1 better written as $1 at ./mac.pl line 17.

ок перевожу, харашо бэ вместо \1 использовать $1 в файлике mac.pl в строке 17