🚀 go-pugleaf

Szymon Sokół wrote:
> Grzegorz Szyszlo <znik@wbc.lublin.pl> wrote:
> :    open PLIK,"log.programu.tapeware 6.30 lub 7.00" or return (); #blad otwarcia
> :    sysread PLIK,$line,16384;
> Mam dziwne wrażenie, że tak naprawdę chcesz zrobić:
> undef $/; $line = <PLIK>;

teoretycznie tak, ale po drodze w algorytmie uzywam innych plikow
w trybie wierszowym. stad ta karkolomnosc.

> :    $line=~s/\x0D\x0A/\x0A/gm;  #skonwertuj \n do konwencji unix
> ...albo $line =~ tr/\x0D//d;

tysz prawda :)

> : btw. zastanawialem sie jak oznaczyc koniec linii, bo jak robilem $\n
> \n - po prostu \n; nie potrzebujesz tam żadnego $ ani ^.

w tym wyrazeniu potrzebuje, bo pomiedzy szukanymi liniami czesto
wystepuja linie z nieinteresujacymi mnie smieciami. jedyne co moge
zrobic, to zrezygnowac z $\n na rzecz samego \n .
ale ^ juz nie moge pominac w konstrukcji .*?^ .
( . pasuje tez do \n bo mam /s )

mam za to inny glupawy problem :)
otoz jak poumiesczalem wszystkie linie z regexa ktory naklepalem
w konstrukcjach  (?: ...........  )
bylo ok, ale     (?: ...........  )?
juz robil "dopasowania" do zerowych ciagow znakowych, w efekcie
wlasciwe dopasowanie z ( .... ) powodwalo ze w $1 ... $10
mialem undef zamiast szukanych wartosci.
poki co nie wiem jak to obejsc samym regexem. konstrukcja wyglada
dokladnie wiecej tak:

   $line=~/      (?:     ^Job \s                              ([^\n]+) $ \n              )?
         .*?     (?:     ^\s\s Job\ Type \s+             : \s ([^\n]+) $ \n              )?
         .*?     (?:     ^\s\s Backup\ mode \s+          : \s ([^\n]+) $ \n              )?
         .*?     (?:     ^\s\s Job\ Start\ Time \s+      : \s ([^\n]+) $ \n              )?
         .*?     (?:     ^\s+ Backup\ Last\ Objects? \s+ : \s+ End \s+ ([^\n]+) $ \n     )?
         .*?     (?:     ^\s+ Job\ End\ Time \s+         : \s ([^\n]+) $ \n              )?
         .*?     (?:     ^\s\s Completed\ Size \s+       : \s ([\d]+) [^\n]* $ \n        )?
         .*?     (?:     ^\s\s Failed\ Objects \s+       : \s ([^\n]+) $ \n              )?
         .*?     (?:     ^\s\s (Job\ Completed\ Succ?essfully) [^\n]* $ \n               )?
         .*?     (?:     ^\s\sMedia \s+  : \s Home\\[^\n]+? - [^\n]+? \\ ([^\n\\]+) $ \n )?
         /xsm;

teraz wiem ze bylem naiwniakiem myslac ze w takiej formie to zadziala, bo tu dopasuje
sie tylko wtedy, kiedy bedzie musialo. tyle ze w tym wyrazeniu nic nie ma obowiazku
nigdzie sie dopasowac, wiec w rezultacie z wlasciwych nawiasow uzyskuje undefy.
cale wyrazenie raportuje sie jako dopasowane. No trudno. bede myslal dalej
jak obejsc problem :) w najgorszym przypadku, kazda z powyzszych linii
wyladuje w osobnym regexie, i dalej do tabelki zbiorczej z wartoscia POS na jakiej
wyrazenie sie wpasowalo. Po polach POS bede mogl ocenic czy kolejnosc
jest prawidlowa (wartosci rosnace), czy nieprawidlowa.
ale chcialem tego uniknac. w kazdym razie na tym w gruncie rzeczy glupawym przykladzie
lyknalem sporo doswiadczenia :)

znik.