Форматировать запрос Perl

Сейчас имеется формат вывода tcpdump:

tcpdump -e -tt -nn tcp | perl -pe 's/(\d*\.\d*)\s.*length\s([0-9]*):\s((?:\d+\.){3}\d+)\.(\d+)\s>\s((?:\d+\.){3}\d+)\.(\d+).*/$1 $2 $3 $4 $5 $6/'

Он выводит данные в таком виде:

введите сюда описание изображения

Все вроде бы здорово, но мне нужно записать эти данные в БД. Есть концепция превратить все это в INSERT-запросы к MySQL такого типа:

INSERT INTO Table 
VALUES ('1586092251.654965', 120, '188.170.175.84', 22029, '192.168.132.251', 1194);

И так каждую строку.

Очень плохо разбираюсь в Perl, поэтому нужна помощь. Нужно отформатировать вывод строк в конкретные запросы к БД.

Направьте в нужное русло, как я мог бы это сделать, либо помогите исправить запрос.


Ответы (0 шт):