🚀 go-pugleaf

tomjas wrote:
> Witam.
> Mam plik z danymi, który wygląda mniej więcej tak:
> 
> [ciach]
> bla bla bla
> cos_innego
> X(1)=2.83662 5.75662 0.65738
> .
> .
> X(10)=-4.62785 -1.63096 7.7584E-02
> jakies_inne_dane
> [ciach]
> 
> Z tego pliku potrzebuję wydobyć serie współrzędnych. Jak z całego pliku
> wydobyć linie z tymi współrzędnymi - to już wymyśliłem:
> 
> perl -ne "print if /X/" plik>wyniki
> 
> ale jak pozbyć się z początku znaków X(n)= to nie mam zielonego pojęcia.

uzyc regexa? np. tak:
perl -ne "print $1 if /X\(\n+\)=(.*)/" plik>wyniki

> Problem komplikuje to iż nie są one jednakowej długości czyli dla n>9

print to jest to samo co print $_ .
ale jak w regexie cos otoczysz nawiasami, jest przypisywane kolejno
do $1, $2 $3 itd, co tez mozesz wypisac.

> pojawia się kolejne pole. A gdyby jeszcze po wyciągnięciu tych
> współrzędnych udało się je ładnie sformatować - żeby każda liczba miała
> określone położenie i długość pola to byłoby super:)

tez sie da :) ale wszystko sie z deka komplikuje:


perl -ne "print substr($1.(' ' x 10,0,10),substr($2.(' ' x 10,0,10),substr($3.(' ' x 10,0,10),"\n" if /X\(\n+\)=(\S*)\s(\S*)\s(\S*)/" plik>wyniki
(linia sie pewnie polamala, posklejaj sobie)


wartosc 10 to przykladowa szerokosc pola, liczby sa dosuwane do lewej, uzupelniane spacjami z prawej.
btw. zamiast substr mozna uzyc length :) mozliwe ze bedzie ciut szybciej.

znik.

> Zatem proszę o jakąś podpowiedź.
> Z góry dzięki i pozdrawiam.
>