https://www.opennet.ru/openforum/vsluhforumID3/10799.html Обсуждение статьи тематического каталога: Фильтр для перевода в наглядный вид времени в логе squid (squid log filter time)<br><br>Ссылка на текст статьи: http://www.opennet.ru/base/net/squid_time_patch.txt.html<br> https://www.opennet.ru/openforum/vsluhforumID3/10799.html#3 Thu, 07 Mar 2013 14:43:29 GMT &gt; perl -MPOSIX -ne 'if(/^(\d+)\.(\d+)\s+/){print POSIX::strftime("[%H:%M:%S.$2-%d.%m.%Y]: ",localtime $1);s/^$1\.$2//;}print $_' &lt; 40.txt &gt; out<br><br>С приветом из 2013-го! :))<br><br>[CODE]# awk -F. -v OFS=. '{if($1!=p)t=strftime("%F_%T",p=$1);$1=t;print}' &lt;33.txt<br>2013-03-07_18:40:29.717 0 127.0.0.1 TCP_DENIED/403 1649 GET http //www.opennet.ru/img/runnet.gif - NONE/- text/html<br>2013-03-07_18:40:29.718 0 127.0.0.1 TCP_DENIED/403 1641 GET http //www.opennet.ru/banner.gif - NONE/- text/html<br>2013-03-07_18:40:29.718 0 127.0.0.1 TCP_DENIED/403 1643 GET http //www.opennet.ru/adv_ibm.htm - NONE/- text/html[/CODE]<br> https://www.opennet.ru/openforum/vsluhforumID3/10799.html#2 Thu, 16 Jun 2005 09:49:26 GMT Tщё пару замечаний:<br>1. *** glibc detected *** double free or corruption (!prev): 0x09ecf008 ***<br>Aborted - Аккуратней с памятью!<br>2. Это простая задача, которую я решал на сях лет 5 назад. Не имеет смысла писать это на С - больше геммора, как видите однострочник на perl'e всё решил.<br>3. sprintf(str,"%02d%02d%02d-%02d:%02d:%02d%c%s", tma-&gt;tm_mday,tma-&gt;tm_mon+1,tma-&gt;tm_year-100,tma-&gt;tm_hour,tma-&gt;tm_min,tma-&gt;tm_sec,a,strIn+istrP);<br> Шо це було? Чёрт с ними миллисекундами! strftime и вперед.<br>4. Строка 27: return(ret);<br> fclose(f);<br> Выходим из программы, а потом закрываем файл :) - круто.<br>5. Что за код возврата (-1) ?<br>6. Зачем эта консрукция:<br> ret = Go(f);<br> return(ret);<br>если функция Go(FILE* ff) в любом случае возвращает 0? <br>7. Если это первая программа, то не спорю, нормально: есть идея и реализация, она прихрамывает, но всё же. https://www.opennet.ru/openforum/vsluhforumID3/10799.html#1 Thu, 16 Jun 2005 09:09:49 GMT perl -MPOSIX -ne 'if(/^(\d+)\.(\d+)\s+/){print POSIX::strftime("[%H:%M:%S.$2-%d.%m.%Y]: ",localtime $1);s/^$1\.$2//;}print $_' &lt; 40.txt &gt; out<br>head -3 out<br>[20:46:13.397-18.05.2005]: 0 172.20.4.10 TCP_HIT/200 2478 GET http://img.yandex.ru/i/fp2_morda.js - NONE/- application/x-javascript<br>[20:46:13.889-18.05.2005]: 731 172.20.4.10 TCP_MISS/200 25050 GET http://yandex.ru/ - DIRECT/213.180.204.11 text/html<br>[20:46:58.601-18.05.2005]: 2 172.20.4.10 TCP_HIT/200 7725 GET http://css.yandex.ru/css/optim.css - NONE/- text/css<br>