BnW — l29ah: perl -p -e 's/^.*timestamp…

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 / 4676 дней назад

$ 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 / 4676 дней назад

@lexszero У меня ДВОЕТОЧИЯ ПОЛУЩ.

#JVDP1R/97Z / @l29ah --> #JVDP1R/66D / 4676 дней назад

Ты это кого пидором тут назвал, ааа?

#JVDP1R/NAZ / @vrusha / 4676 дней назад

BnW для ведрофона BnW на Реформале Викивач Котятки