Kitkas > Programavimas

Perl vienos eilutes programos

(1/1)

GODhack:
Susiduriau su darbine problema, kad turiu faila duomenys.txt kuriame viskas is naujos eilutes mazdaug taip:

--- Kodas: ---vienas
du
trys

--- Baigti kodą ---
O man reikia, kad butu viskas vienoje eiluteje atskirta kalbeliais ir tarpais (.csv). Va taip:

--- Kodas: ---vienas, du, trys,

--- Baigti kodą ---
Kad paskui ofiso Calc atidarytu kaip viena eilute.
Zinoma galima atsidaryti viska su teksto redaktoriumi ir taisyti ilgai ir nuobodziai ir dar ivelti kokia nesamone.
Bet galima tai padaryti ir su perl:

--- Kodas: ---cat duomenys.txt | perl -p -e 's/\s/, /g' >duomenys.csv

--- Baigti kodą ---
Viskas tik tokia komanda ir darbas baigtas :D

cat nuskaito faila tada | perduoda ji i perl tada perl -p -e paleidzia programa kurios kodas kabutese ir tai yra pakeitimas s///g, o \s tai naujos eilutes simbolis keiciamas i ", ". Tada > nukreipia rezultata i tekstini faila duomenys.csv. Tikiuosi suprantamai paaiskinau. Man labai praverte, tuo paciu budu galima daryti ivairius pakeitimus, netgi skaiciavimus tekstiniuose failuose. Bet skaiciavimus pasidarysiu su Calc si karta. :)

Navigacija

[0] Pranešimų sąrašas

Eiti į pilną versiją