Парсинг вывода iostat

Берете php preg_split и вперед. А здесь отладка http://www.phpliveregex.com/

а какой результат нужен?

Я не знаю что такое vios, все что доступно в iostat можно получить через /proc без вызова лишних execve.

+

открываешь сорцы iostat, смотришь откуда и как формируется вывод: открытая система же, ну

Спасибо, я с перлом 10 лет как «на ты»

а какой результат нужен?

Разбить вывод на отдельные колонки, и выделить заголовки. Чтобы например заполнить таблицу

Т.е. например строка «fcs2/22:25:20», колонка «xfers/bps», значение - «131.1k»

По вертикали я текст разобью. выделю отдельные блоки Adapter, Disk, Vadapter и т.д. отделить строки с заголовком от строк с данными тоже не проблема.

Но как заголовок побить на столбцы? он же мать его за ногу, human readable в особо извращённой форме.

Т.е. как понять, что для «fcs2/22:25:20» значение «131.1k» относится именно к колонке «xfers/bps» ? Или, ещё хуже, в строке «hdisk72_157-uarc01/22:25:20» поле «0.0» относится к колонке «read/avg serv»

Это хорошая идея. Но научиться разбирать такой сложный текст тоже хочется.

Тем более

Возможно это не очевидно, но регулярками данная задача не решается ;)

То что не решается регулярками и функциями не нешается никак :)

зафрендил

Можно написать функцию которая бы отдельно обрабатывала столбцы функциями типа pos substr

Если в вашем тексте есть логика расположения то парсинг возможен

Там же можно по строкам с минусами ориентироваться? Строка выше - заголовок, ниже - подзаголовки и данные.

А можно, наверное, и по-взрослому, чем-то типа flex/bison или что больше нравится. Токенизатор только будет замороченый, нужно будет обрабатывать пробелы (хорошо хоть там табов не видно)

Хотя, именно в этом тексте вообще просто - заголовки начинаются с заглавной буквы, подзаголовки с пробелов, данные со строчной

Пришлось как-то писать парсер идиотских логов, состоящих из последовательного выхлопа nfsstat, ps + прочей диагностики. При решении в лоб задача, в принципе, несложная, но кропотливая и муторная. Top-down approach решает: мысленно разбиваем текст на однородные куски всё уменьшающейся сложности и комбинируем парсеры.

Меня мучила мысль создать некую более-менее универсальную либу для разбора подобных табличек, но руки пока не дошли.

Делалось всё на Haskell&Attoparsec&pipes.

говорю ж - по вертикали разбить вообще не проблема. Проблема выделить столбцы

Top-down approach решает: мысленно разбиваем текст на однородные куски всё уменьшающейся сложности и комбинируем парсеры.

Как раз это уже пройденный этап. Вспомнил, как в институте читали лекции по конечным автоматам - пригодилось.

Тут проблема в том, как выделить столбцы в однородном блоке

Не вижу проблем. Достаточно распарсить текст в какую-нибудь подходящую структуру данных типа матрицы, и из неё уже извлекать какие угодно столбцы.

Proof of concept для твоего файла (парсит только один тип записей — что-то там про диск)

{-# LANGUAGE TupleSections, OverloadedStrings #-}

import Prelude hiding (takeWhile)
import qualified Data.ByteString as B
import Data.Attoparsec.ByteString
import Data.Attoparsec.ByteString.Char8 hiding (satisfy, skipWhile, takeWhile1)
import Control.Arrow
import Control.Applicative
import Data.Word

type IOStat = (B.ByteString, [(B.ByteString, [Int])])

table :: ([c] -> a) -- ^ Postprocess
      -> Parser b   -- ^ Header
      -> Parser c   -- ^ Element
      -> Parser (b, [a])
table f h c = (,) <$> (h <?> "Header")
                  <*> (map f <$> many row)
  where
    row = (skipSpace <?> "Leading space") *>
          ((c <?> "ElemParser") `sepBy1` many1 space)
          <* (skipSpace <* endOfLine <|> endOfInput)

disks :: Parser IOStat
disks = table f header something
  where
    header = "Disks:" *> dropLines 4 *> pure "Disks"
    f (a:t) = (a, map parseInt t)

dropLines :: Word -> Parser ()
dropLines 0 = pure ()
dropLines n = skipWhile (not . isEndOfLine) *> endOfLine *> dropLines (n - 1)

parseInt :: B.ByteString -> Int
parseInt s = case parseOnly (p <* endOfInput) s of
               Left  _ -> error $ "parseInt: " ++ show s
               Right i -> round i
  where
    p = (*) <$> double <*> option 1 e
    e =   "K" *> pure (10^3)
      <|> "M" *> pure (10^6)
      <|> "G" *> pure (10^9)

something :: Parser B.ByteString
something = takeWhile1 $ not . isSpace_w8

parser :: Parser [IOStat]
parser = many1 (disks <?> "Disks")

main :: IO ()
main = print =<< parseOnly parser <$> B.getContents

P.S. Вывод:

[("Disks",[("hdisk0",[0,131100,1,0,131100,0,0,0,0,0,0,1,2,1,3,0,0,0,0,0,0,0])])]

На выходе — список ключ-значения, который уже можно легко обработать.

Проблема выделить столбцы

Ну, «визуальные» выделить несложно. Я поморщил моск и написал такой вот «парсер» (без генераторов, на С вручную) : http://pastebin.com/K19Bqs2a

Выглядит конечно слегка адово, но суть простая: делаем две карты, карту заголовков и подзаголовков. Строки подзаголовков склеиваем. Каждому знакоместу (вертикальной полосе) ставим в соответствие заголовок и подзаголовок (или NULL если в строке с минусами пропуск). Когда доходим до разбора данных, берем значение, вычисляем его центр (номер знакоместа, расстояние от левого края) и смотрим что там в картах.

Если текст «поедет», то такое не сработает, конечно. Но тогда можно не морочиться, считать по пробелам, как уже посоветовали