Отдал бы и ползарплаты! Войти !bnw Сегодня Клубы
perl -p -e 's/^.*timestamp ([0-9]{4})([0-9]{2})([0-9]{2})T([0-9]{2})([0-9]{2})([0-9]{2}) .*nick (.*) body {?(.*?)}?$/\1\/\2\/\3 \4:\5:\6 \7> \8/;s/\\n/ /g'
#JVDP1R / @l29ah / 4883 дня назад

$ cat ~/bin/tkabber-log #!/usr/bin/perl while (<STDIN>) { /^timestamp (.*?) jid (.*?) nick (.*?) body (.*)$/; ($time, $nick, $body) = ($1, unescape($3), unescape($4)); $nick = "$nick: " if $nick; print "$time $nick$body\n" } sub unescape($) { $x = shift; $x =~ s/(^\{|\}$)g; $x =~ s/\\n/\n/g; $x =~ s/\\\\/\\/g; return $x; }
#JVDP1R/66D / @lexszero / 4883 дня назад
@lexszero У меня ДВОЕТОЧИЯ ПОЛУЩ.
#JVDP1R/97Z / @l29ah --> #JVDP1R/66D / 4883 дня назад
Ты это кого пидором тут назвал, ааа?
#JVDP1R/NAZ / @vrusha / 4883 дня назад
ipv6 ready BnW для ведрофона BnW на Реформале Викивач Котятки

Цоперайт © 2010-2016 @stiletto.