https://www.opennet.ru/openforum/vsluhforumID9/7268.html Привет всем! Столкнулся с такой проблемой: <br>Имеется syslog-ng, который ловит логи от виндовой машины на udp порт. Затем я пытаюсь перенаправить их пайпом в perl скрипт, через обьект FIFO, предварительно созданный с помощью mkfifo(). Права на FIFO - rw у рута. syslog-ng и скрипт запускаются под rootом.<br><br>destination { pipe(/scripts/syslog-ng.pipe); };<br><br>На стороне скрипта, открываю FIFO на чтение функцией open.<br><br>open($hLog, '&lt;', '/scripts/syslog-ng.pipe'); <br><br>Затем пытаюсь парсить полученые строки и запихивать в базу. Примерно так...<br>while(&lt;$hLog&gt;)<br>{<br> #обработка текущей строки $_<br> #Запись в базу...<br>}<br>Скрипт ругается на не верный SQL запрос!<br>После того как я перед обработкой строки, вывожу ее в STDOUT, все начинает работать без проблем. Строки базы успешно добавляются.<br>while(&lt;$hLog&gt;)<br>{<br> print $_; #!!!!<br> #обработка текущей строки $_<br> #Запись в базу...<br>}<br>Не могу понять в чем проблема, может в блокировке FIFO? Обьясните пожалуйста!<br>ЗЫ:Заранее благодарен.<br> https://www.opennet.ru/openforum/vsluhforumID9/7268.html#9 Sat, 28 Jun 2008 15:32:16 GMT добавлю к замечаниям<br><br>&gt;while(&lt;$hLog&gt;)<br>&gt; { <br>&gt; if($_=~/(\S{3})\s?(\d{2})\s?(\d{2}\:?\d{2}\:?\d{2})\s?(\d{4})\s+(\d{3})\s+\S+\s+(\S+)/) <br><br>вот это вот конструкция очень подозрительна<br>if($_ =~ /***/)<br><br>замените ее на:<br>while($in = &lt;$hLog&gt;) {<br>{<br> а вот здесь надо выствить значения переменных по умолчанию, иначе, в случае невыполнения if они у вас будут использоваться со значениями последного успешного предыдущего шага<br><br><br> if($in =~ m/***/)<br>и далее по тексту замените $_ на $in, либо посто уберите '$_ =~'<br><br> https://www.opennet.ru/openforum/vsluhforumID9/7268.html#8 Thu, 26 Jun 2008 13:38:35 GMT а какой прогой вы загоняете логи винды на syslog ?????<br>неподелитесь?<br><br><br> https://www.opennet.ru/openforum/vsluhforumID9/7268.html#7 Mon, 24 Mar 2008 15:37:01 GMT Если вы не можете разобрать свой же код, то и не знаю чем помочь. Могу только предложить попробовать:<br>1. Попробуйте в консольном клиенте мускула запрос insert into some_table (date,code) values ('',)<br>2. perl -e '$a=1,$b=2; print "$a $b\n"; $a,$b="";print "$a $b\n";'<br><br>&gt;Дело в том что когда я скармливаю скрипту файл, все прекрасно работает<br><br>Ваш код по своей сути неустойчив, он не способен адекватно реагировать на некорректные данные, что мы и наблюдаем. Если вы не хотите об этом задумываться и предпочитаете "быдлокодить", то это ваше право. Способ как решить проблему в лоб вы и сами нашли, разбираться в причинах вам неохота, так что же вы хотите?<br><br> https://www.opennet.ru/openforum/vsluhforumID9/7268.html#6 Mon, 24 Mar 2008 07:47:47 GMT &gt;[оверквотинг удален]<br>&gt; chop($addr); <br>&gt; } <br>&gt; elsif($_=~/(\d+\.{1}){3}\d+/) # $& - ip addr <br>&gt; { <br>&gt; $addr=$&; <br>&gt; } <br>&gt;<br>&gt; $dBase-&gt;do("insert into ".$dbTable." (date,time,user,ip,code) values ('".$date."','".$time."','".$user."','".$addr."',".$code.");");<br>&gt; $date, $time, $user, $code, $addr=''; <br>&gt; } <br><br>Вставьте перед строчкой<br>$dBase-&gt;do("insert into ".$dbTable." (date,time,user,ip,code) values ('".$date."','".$time."','".$user."','".$addr."',".$code.");");<br>оператор print, который будет выводит строку вашего запроса<br>print "insert into ".$dbTable." (date,time,user,ip,code) values ('".$date."','".$time."','".$user."','".$addr."',".$code.");"; <br>И посмотрите, что с ней не так.<br> https://www.opennet.ru/openforum/vsluhforumID9/7268.html#5 Mon, 24 Mar 2008 07:12:40 GMT &gt;[оверквотинг удален]<br>&gt;переменных придет пустыми(это в перле, в С, например, они будут иметь <br>&gt;произвольные значения) и значит запрос будет некорректным. Вторая ошибка чуть более <br>&gt;высокого уровня - всегда надежней использовать параметризованные запросы через prepare+execute, чем <br>&gt;самому загонять переменные в строку, это избавит от целого ряда проблем. <br>&gt;Также есть неточности в регексах и корявый синтаксис, но это мелочи. <br>&gt;<br>&gt;По поводу изменения поведения при print, могу лишь предположить что почему-то нарушается <br>&gt;считывание по границе \n и print это как то исправляет, может <br>&gt;из-за задержки с выводом, надо нормально поотлаживать, чтобы сказать наверняка. Однако <br>&gt;в любом случае проблема в неправильном коде, он исключительно неустойчив. <br><br>Прошу прощения, а где Вы нашли обьявление переменных внутри блока условия и использование их за пределами блока? Все переменные обьявляются и инициализируются вверху по тексту программы. Дело в том что когда я скармливаю скрипту файл, все прекрасно работает. Н https://www.opennet.ru/openforum/vsluhforumID9/7268.html#4 Sun, 23 Mar 2008 23:13:27 GMT Попросите кого-нибудь переписать этот скрипт. Вы делаете одну из самых грубых ошибок в программировании - инициализация переменных внутри блока условия и использование их за пределами этого блока. Как следствие всегда есть шанс, что часть переменных придет пустыми(это в перле, в С, например, они будут иметь произвольные значения) и значит запрос будет некорректным. Вторая ошибка чуть более высокого уровня - всегда надежней использовать параметризованные запросы через prepare+execute, чем самому загонять переменные в строку, это избавит от целого ряда проблем. Также есть неточности в регексах и корявый синтаксис, но это мелочи. <br>По поводу изменения поведения при print, могу лишь предположить что почему-то нарушается считывание по границе \n и print это как то исправляет, может из-за задержки с выводом, надо нормально поотлаживать, чтобы сказать наверняка. Однако в любом случае проблема в неправильном коде, он исключительно неустойчив. <br><br> https://www.opennet.ru/openforum/vsluhforumID9/7268.html#3 Sun, 23 Mar 2008 13:04:38 GMT конфиг syslog-ng:<br><br>options {<br> sync (0);<br> time_reopen (10);<br> log_fifo_size (1000);<br> long_hostnames (off);<br> use_dns (no);<br> use_fqdn (no);<br> create_dirs (no);<br> keep_hostname (yes);<br>};<br><br>source ext_logger {<br> unix-stream ("/dev/log");<br> udp( ip(xxx.xxx.xxx.xxx) port(xxxx));<br> internal();<br>};<br><br>destination my_wks { fifo("/logs/scripts/syslog-ng.pipe"); };<br><br><br>log { source(ext_logger); destination(my_wks); flags(final); };<br><br>;---------------------------------------------------------------------<br>скрипт:<br><br>#!/usr/bin/perl<br><br>my $Pipe='/logs/scripts/syslog-ng.pipe';<br><br>use DBI;<br><br>my $hLog; #Log file handle<br>my $dbTable='xxxx'; #Name of dBase Table<br>my $date=''; #Event date<br>my $time=''; #Event time<br>my $user=''; #User<br>my $code=''; #Event code<br>my $addr=''; #host ip<br>%month = ('Jan'=&gt;'01', 'Feb'=&gt;'02', 'Mar'=&gt;'03', 'Apr'=&gt;'04', 'May'=&gt;'05', 'Jun'=&gt;'06', 'Jul'=&gt;'07', 'Aug'=&gt;'08', 'Sep'=&gt;'09', 'Oct'=&gt;'10'<br>, 'Nov'=&gt;'11', 'Dec'= https://www.opennet.ru/openforum/vsluhforumID9/7268.html#2 Sun, 23 Mar 2008 11:00:25 GMT Краткое содержание вашего поста: "у меня есть некая херня, она не работает, херню я вам не покажу, но ошибку пожалуйста найдите". <br>Вы ошиблись, уважаемый, форум телепатов не здесь. <br>