Dotaz: Skript nebo program na "vycucnutí" dat z txt souboru..

[Zdenek]

Ahoj. Zdravím zdejší komunitu. Měl bych někoho z Vás prosbu. Nenašel by se zde někdo tak laskavý a nanapsal mi skript či malý program např. v c, který by plnil následující funkci? Mám *.txt soubory a potřebuju z nich vycucnout vždy určité číselné údaje. Soubory jsou výstupem z iwconfigu a obsahuji položky jako signal level, link quality, tx power apod. Potřebuji z toho pak udělat tabulky v Excelu, takže by bylo dobré, kdyby ten program ty hodnoty nějak rozumně oddělil středníkama a vytvořil se csv soubor, který už Excel umí načíst.. OS mám Ubuntu 9.10. Předem moc děkuji za Váš čas.

---

---

Odpovědi

[Chytrex]

je nějaký vážný důvod proč to musí být v C? Jde to v ruby, pythonu, php a IMO jsou všechny mnou jmenované jazyky mnohem vhodnější..

[Zdenek]

Muze to byt v cemkoliv.C jsem uvedl jen jako priklad.Nejsem zadny programator

[Jendа]

Jde to třeba grepem a sedem.

[cronin]

Daj sem priklad takeho suboru.

[rastos]

Viď https://www.abclinuxu.cz/poradna/linux/show/293283 - mne vtedy išlo o zistenie či posunutie antény o meter ďalej, trocha za roh a prípadne výmena WiFi USB adaptéra, má výrazný vplyv na kvalitu spojenia. (Nemá. Signál občas výrazne zakolíše, ale v priemere je to fuk.)

Odpoveď na pôvodnú otázku:

while (true)
do
iwlist wlan0 scan |grep Quality >> vystup.csv
sleep 10
done

A potom importnúť výstup.csv s tým, že oddeľovač je medzera. Ak chytíš viac ako jednu sieť, tak sa treba pohrať s grep-om:

iwlist wlan0 scan |grep -A 'ESSID:"mojasiet"' |grep Quality

alebo tak nejak.

[rastos]

oprava:

iwlist wlan0 scan |grep -A 8 'ESSID:"mojasiet"' |grep Quality

[Zdenek]

Příloha:

• pujde.txt (7550 bytů)

Nepoužíval jsem iwlist na skenování okolí, zajímali mě údaje jen mého "spojení", proto iwconfig. Přikladám ukázku souboru, ze kterého chci importovat..

[Fuky]

Příloha:

• parse.py (671 bytů)

#! /usr/bin/env python
# -*- coding: utf-8 -*-

import re
import sys

# Link Quality=75/100  Signal level=-59 dBm  Noise level=-127 dBm
# Bit Rate=54 Mb/s   Tx-Power=27 dBm
PATTERNS = [
    re.compile(r"""Link Quality=([0-9]+)/([0-9]+)\s+Signal level=(-[0-9]+) dBm\s+Noise level=(-[0-9]+) dBm"""),
    re.compile(r"""Bit Rate=([0-9]+) Mb/s\s+Tx-Power=([0-9]+) dBm"""),
]

while (True):
    line = sys.stdin.readline()
    if (not line):
        break

    for pattern in PATTERNS:
        m = pattern.match(line.strip())
        if (not m):
            continue

        for group in m.groups():
            sys.stdout.write("%s;" % group)
        sys.stdout.write("\n")

Použití:

$ chmod +x parse.py
$ ./parse.py <input.txt
75;100;-59;-127;
54;27;
75;100;-59;-127;
54;27;
75;100;-59;-127;

[JaSel]

Ještě by bylo dobré napsat, jak si představuješ výstup. Pokud chceš jenom sloupce čísel, tak obecně bych postupoval takto:

1) Ten výpis je po trojřádcích, takže první krok by byl grep na nějaký výraz ze zpracovávaných řádků. Proto, že ti pak pro další zpracování vzniknou podčásti s jiným počtem sloupců.

2) Nahradil bych rovnítka mezerou pomocí tr.

3) Vytáhnul bych relevantní sloupce pomocí awk.Oddělovač (středník) bych asi nacpal rovnou do příkazu pro awk.

4) Jestli to chceš v jednom souboru, tak si pak výsledky spoj pomocí paste.

[NeoV]

mozes to spravit napr takto:

perl -e 'open FH,"155530-pujde-14396.txt"; while(<FH>) {$f.=$_}; while($f=~/=(\S+\s{0,1}\S*)[^=]+=(\S+\s{0,1}\S*)[^=]+=(\S+\s{0,1}\S*)[^=]+=(\S+\s{0,1}\S*)[^=]+=(\S+\s{0,1}\S*)/sg) {print join(";",$1,$2,$3,$4,$5)."\n"}; close FH;' > vystup.csv

[NeoV]

Vystup potom vyzera takto:

54 Mb/s;27 dBm;74/100 ;-60 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;74/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;74/100 ;-60 dBm;-127 dBm
54 Mb/s;27 dBm;74/100 ;-60 dBm;-127 dBm
54 Mb/s;27 dBm;74/100 ;-60 dBm;-127 dBm
54 Mb/s;27 dBm;73/100 ;-60 dBm;-127 dBm
54 Mb/s;27 dBm;73/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;73/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;72/100 ;-62 dBm;-127 dBm
54 Mb/s;27 dBm;73/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;73/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;72/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;72/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;73/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;72/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;73/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;74/100 ;-60 dBm;-127 dBm
54 Mb/s;27 dBm;73/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;74/100 ;-60 dBm;-127 dBm
54 Mb/s;27 dBm;74/100 ;-60 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;76/100 ;-58 dBm;-127 dBm
54 Mb/s;27 dBm;76/100 ;-58 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;74/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;73/100 ;-60 dBm;-127 dBm
54 Mb/s;27 dBm;72/100 ;-62 dBm;-127 dBm
54 Mb/s;27 dBm;72/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;73/100 ;-61 dBm;-127 dBm
54 Mb/s;27 dBm;74/100 ;-60 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm
54 Mb/s;27 dBm;75/100 ;-59 dBm;-127 dBm

[NeoV]

hmm este ma napadlo ze si chcel len cislice... tak potom:

perl -e 'open F,"155530-pujde-14396.txt"; while(<F>) {$f.=$_}; while($f=~/=(-?\d+)[^=]+=(-?\d+)[^=]+=(-?\d+)[^=]+=(-?\d+)[^=]+=(-?\d+)/sg) {print join(";",$1,$2,$3,$4,$5)."\n"}; close F;' > vystup.csv

a vystup vyzera:

54;27;74;-60;-127
54;27;75;-59;-127
54;27;75;-59;-127
54;27;74;-59;-127
54;27;75;-59;-127
...

[Zdenek]

Super. Díky kluci. Zatím to funguje podle mých představ. Pokud bych měl nějaký dotaz ještě se ozvu. A moc děkuji !

[Zdenek]

Příloha:

• -malesoubory (40817 bytů)

Ahoj. Jsem tu znovu a doufám že už pro poslední radu

Tentokráte bych potřeboval vycucnout rychlost z log souboru wgetu. Chtěl bych Vás tedy poprosit u nějakou úpravu stávajících(pokud to lze). Já to jako neprogramátor nepobírám vůbec. Pokud jsem stahoval velky soubor, průměrná rychlost je uvedena na konci, ale já stahoval 100 x malý soubor po pár kB a sčítat to a dělit manuálně, abych dostal průměrnou rychlost, by bylo opravdu na dlouho. Stačil by opět export do csv, klidně samostatné hodnoty pod sebou. Přikládám na ukázku jak vypadá můj log výstup. Děkuji.