Исходное сообщение
"INET_ATON" Отправлено Федор, 12-Дек-06 23:47
Подскажите плиз... как использовать функцию MySQL'я INET_ATON в данном скрипте (ng_stat_in.pl)? или это не реально? :(   ===== sub insert_data_db { my ($dbh,$sth,$count); $dbh = DBI->connect("DBI:mysql:host=$serverdb;database=$dbname","$dbuser","$dbpass")                 or &error_connection_in; $insert = "INSERT INTO $table_date (ip_from,s_port,ip_to,d_port,proto,packets,bytes,date_ins,time_ins,host,interface) VA LUES (?,?,?,?,?,?,?,?,?,?,?)"; $sth = $dbh->prepare("$insert"); #print "$insert\n"; while (@ipacct_arr_in) {         $line_in = shift @ipacct_arr_in;         ($ip_from,$s_port,$ip_to,$d_port,$proto,$packets,$bytes,$date_ins,$time_ins,$host,$interface)=split(/[\s\t]+/,$l ine_in);         if (!defined $proto){                 $proto="0";         }         if (!defined $packets){                 $packets="0";         }         if (!defined $bytes){                 $bytes="0";         }         $sth->execute ($ip_from,$s_port,$ip_to,$d_port,$proto,$packets,$bytes,$date_ins,$time_ins,$host,$interface); } $sth->finish; $dbh->disconnect; } ===== Спасибо

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Подскажите плиз... > как использовать функцию MySQL'я INET_ATON в данном скрипте (ng_stat_in.pl)? или это не > реально? :( > ===== > sub insert_data_db { > my ($dbh,$sth,$count); > $dbh = DBI->connect("DBI:mysql:host=$serverdb;database=$dbname","$dbuser","$dbpass") > > or &error_connection_in; > $insert = "INSERT INTO $table_date (ip_from,s_port,ip_to,d_port,proto,packets,bytes,date_ins,time_ins,host,interface) > VA > LUES (?,?,?,?,?,?,?,?,?,?,?)"; > $sth = $dbh->prepare("$insert"); > #print "$insert\n"; > while (@ipacct_arr_in) { > $line_in = shift @ipacct_arr_in; > ($ip_from,$s_port,$ip_to,$d_port,$proto,$packets,$bytes,$date_ins,$time_ins,$host,$interface)=split(/[\s\t]+/,$l > ine_in); > if (!defined $proto){ > > $proto="0"; > } > if (!defined $packets){ > > $packets="0"; > } > if (!defined $bytes){ > > $bytes="0"; > } > $sth->execute ($ip_from,$s_port,$ip_to,$d_port,$proto,$packets,$bytes,$date_ins,$time_ins,$host,$interface); > } > $sth->finish; > $dbh->disconnect; > } > ===== > Спасибо
	Введите код, изображенный на картинке: