mirror of
https://github.com/zulip/zulip.git
synced 2025-10-31 12:03:46 +00:00
12 lines
223 B
Perl
Executable File
12 lines
223 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
while (<>) {
|
|
# remove milliseconds
|
|
s/(?<= \d\d:\d\d:\d\d)\.\d{3}//;
|
|
# convert session id to process id
|
|
s/\[[0-9a-zA-Z]+\.([0-9a-zA-Z]+)\]/"[" . hex($1) . "]"/e;
|
|
print;
|
|
}
|