есть скрипт который работал на red hat нормально а на Freebsd вместо результата выдает ошибки, в чем моя ошибка?#!/usr/bin/perl
open(FILE1, "/home/user/ip-email");
while (<FILE1>) {chop; split();
$ip1="$_[0]";
$ma="$_[1]";
$des="$_[2]";
open(FILE2, "/home/user/output");
while (<FILE2>) {chop; split('-');
$ip2="$_[0]";
$tr="$_[1]";
foreach ($ip1) {
if ($ma ne "") {
foreach ($ip1) {
if ($ip1 eq $ip2) {
print " $ip1, $ma, $des, $ip2, $tr, /n ";
}}}}}}
отрывки от файла ip-email и output
192.168.0.1 somemail@mail.ru Description1
192.168.0.2 other@mail.ru Description2
192.168.0.3
192.168.0.4 mail_3@mail.ru Description3
192.168.0.5
192.168.0.6
192.168.0.1 - 233 + 16 = 249
192.168.0.2 - 401 + 45 = 446
192.168.0.3 - 26509 + 8278 = 34787
192.168.0.4 - 802 + 9172 = 9974
192.168.0.5 - 4868 + 1665 = 6533
192.168.0.6 - 3 + 0 = 3
192.168.0.7 - 214 + 3331 = 3545
192.168.0.8 - 408 + 3599 = 4007
192.168.0.9 - 5034 + 955 = 5989
на экране должен был быть вот что
192.168.0.1 somemail@mail.ru Description1 192.168.0.1 - 233 + 16 = 249
192.168.0.2 other@mail.ru Description2 192.168.0.2 - 401 + 45 = 446
192.168.0.4 mail_3@mail.ru Description3 192.168.0.4 - 802 + 9172 = 9974
Результат вот какой
Use of implicit split to @_ is deprecated at ./send line 8.
Use of implicit split to @_ is deprecated at ./send line 3.
Use of uninitialized value in string at ./send line 9, <FILE2> line 1.
Use of uninitialized value in string at ./send line 10, <FILE2> line 1.
Use of uninitialized value in string at ./send line 9, <FILE2> line 2.
Use of uninitialized value in string at ./send line 10, <FILE2> line 2.
Use of uninitialized value in string at ./send line 9, <FILE2> line 3.
Use of uninitialized value in string at ./send line 10, <FILE2> line 3.
Use of uninitialized value in string at ./send line 9, <FILE2> line 5.
Use of uninitialized value in string at ./send line 10, <FILE2> line 5.
Use of uninitialized value in string at ./send line 9, <FILE2> line 6.
Use of uninitialized value in string at ./send line 10, <FILE2> line 6.
Use of uninitialized value in string at ./send line 9, <FILE2> line 7.
Use of uninitialized value in string at ./send line 10, <FILE2> line 7.
Use of uninitialized value in string at ./send line 9, <FILE2> line 9.
Use of uninitialized value in string at ./send line 10, <FILE2> line 9.