|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Ђ¤аҐ© €®§Ґ¬жҐў 2:5020/400 29 Jun 2004 08:14:32
To : All
Subject : Считалка траффика! Помогите!!!
--------------------------------------------------------------------------------
Помогите, кто силён в перле. Есть скрипт. Он преобразует текстовый
отформатированный лог вида
1087978638 6 195.161.119.119 80 192.168.0.2 4093
577 eth0 unknown
1087978638 6 192.168.0.2 4100 195.161.119.119 80
576 eth0 unknown
1087978638 6 195.161.119.119 80 192.168.0.2 4100
577 eth0 unknown
1087978638 6 192.168.0.7 1415 194.67.57.68 110
363 eth0 unknown
1087978638 6 194.67.57.68 110 192.168.0.7 1415
627 eth0 unknown
1087978638 6 192.168.0.5 3297 80.68.244.72 110
180 eth0 unknown
1087978638 6 192.168.0.5 3309 80.68.244.72 110
180 eth0 unknown
1087978638 6 192.168.0.2 4099 80.68.244.72 110
422 eth0 unknown
1087978638 6 80.68.244.72 110 192.168.0.2 4099
712 eth0 unknown
1087978938 17 192.168.0.18 4525 195.184.192.12 53
183 eth0 unknown
в файл типа
Id |Hазвание фильтра | Всего байт | Перед. байт | Принято байт
----------------------------------------------------------------------------
- ---
1 | k1 | 0 |
0 | 0
2 | k2 | 0 |
0 | 0
3 | k3 | 0 |
0 | 0
сам скрипт
#!/usr/bin/perl
$netacct_log="/var/log/net-acct";
$tmetter_dir="/MatriX/Traf/";
#format: IP_addr,Filter_name,Sum_byte,Trans_byte,Resive_byte
@filter=(
["192.168.0.1","k1",0,0,0],
["192.168.0.2","k2",0,0,0],
["192.168.0.3","k3",0,0,0],
["192.168.0.4","k4",0,0,0],
["192.168.0.5","k5",0,0,0],
["192.168.0.6","k6",0,0,0],
["192.168.0.7","k7",0,0,0],
["192.168.0.8","k8",0,0,0],
["192.168.0.9","k9",0,0,0],
["192.168.0.10","k10",0,0,0],
["192.168.0.16","k11",0,0,0],
["192.168.0.17","k12",0,0,0],
["192.168.0.18","k13",0,0,0],
["192.168.0.20","k14",0,0,0],
["192.168.0.21","k15",0,0,0],
);
use FileHandle;
$vk="\r";
format CAPTION=
@*
$cap_text
--- ifmail v.2.15dev5.3
* Origin: Donbass InterNet Center DIPT (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
