Zobrazit příspěvky
Tato sekce Vám umožňuje zobrazit všechny příspěvky tohoto uživatele. Prosím uvědomte si, že můžete vidět příspěvky pouze z oblastí Vám přístupných.
To nebylo reseni ale ukazka jak se k reseni jednoduse dopracovat. Ale klidne si tu dal hrajte s Perlem, me je to fuk.
Kazdopadne je to porad lepsi nez ten Perl, ktery pomalu spoleha i na to ze zitra bude 5 stupnu a na nebi videt 823 hvezd.
A nebo prestat onanovat nad Perlem a pouzit veci co jsou na to urceny.Kód: [Vybrat]$ tshark -nr dump.pcap -T fields -e frame.time_epoch -e data | while read timestamp hexdata; do echo $timestamp `echo $hexdata | xxd -r -p`; done
1578063514.667469000 +ACK:GTHBD,550101,863574040725046,GL50,20191228211917,2389$
1578063518.964255000 +RESP:GTPDP,550101,863574040725046,GL50,20191228211914,2388$
1578063520.553689000 +ACK:GTHBD,550101,863574040725046,GL50,20191228211917,2389$
... a dale grepovat, sedovat, nebo cokolivstimdaldelat...
#!/usr/bin/perl -nl
$time = $1 if /^(\d\d:\d\d:\d\d\.\d+) IP/;
$data = $1 if /^\s+0x0050:.*(.{5})$/;
if (/^\s+0x0060:.*(.{16})$/) {
$data .= $1;
print "$time\t$1,$2" if $data =~ /(\d+\.\d+),(\d+\.\d+),/;
}
Grep s akciou pre každý nájdený riadok je awk.
Napríklad „Nájdi riadky začínajúce na "root" a vypíš ich so štyroma nasledovnými riadkami“, resp. emulácia GNU grep -A:Kód: [Vybrat]awk '/^root/ { for(i=0; i<5; i++) { print; getline; }}' /etc/passwd
Napríklad „Skupiny z grep -A oddelené dvoma pomlčkami dajte na jeden riadok“Citacegrep -A1 root /etc/passwd | awk '/^--/ { print BUF; BUF=""; next } { BUF = BUF $0 } END { print BUF }'
Resp. plný skript v awk:Citace/^--/ {- Druhé pravidlo nalepí každý riadok do buffera BUF.
print BUF
BUF=""
next
}
{
BUF = BUF $0
}
END {
print BUF
}
- Prvé pravidlo vraví, že ak na začiatku riadku sú dve pomlčky --, vyprintuje obsah buffera a vymaže buffer.
- Tretie pravidlo vyprintuje obsah buffera na konci súboru.
pokud nechceš programovat úplně celé flow - vstup, zpracování, výstup
grep -A1 root /etc/passwd | perl -lpe 'BEGIN {$/ = "--\n"} s/\n/ /g'
grep -A 5 neco | perl -F'\n' -lne 'BEGIN {$/ = "--\n"} print $F[0]'Na praci s textem doporucuju PERL, byl pro tyto ucely vyvinut.
Priklad z webu:Kód: [Vybrat]use strict;
use warnings;
die "Usage: $0 FILENAMEs\n" if not @ARGV;
foreach my $file (@ARGV) {
open my $fh, '<:encoding(UTF-8)', $file or die;
while (my $line = <$fh>) {
if ($line =~ /REGEX/) {
print $line;
}
}
}
grep -A 5 neco | perl -lne 'BEGIN {$/ = "--\n"} @lines = split /\n/; '
Taky bych to viděl na ten awk, ten je na to stavěný.
(pokud nechceš programovat úplně celé flow - vstup, zpracování, výstup - třeba v tom pythonu)
Root.cz (www.root.cz), informace nejen ze světa Linuxu. ISSN 1212-8309
Copyright © 1998 – 2023 Internet Info, s.r.o. Všechna práva vyhrazena. Powered by Linux.