[perl]formatowanie tekstu

[ogrod87 0]

Witam.

Mam problem z formatowaniem tekstu wynikowego.

Zapisuje tekst do pliku txt i muszę to zrobić w kolumnach o stałej szerokości.

Próbowałem użyć \t ale to nie działało przy mniejszych lub większych nazwach wyświetlanych.

Mój kod:

foreach $e (@{$data->{pozycja}}){ 
	print PLIK "$e->{nazwa_waluty}  \t\t  $e->{kod_waluty}  \t\t  $e->{kurs_sredni} \n"; 			
}

 

99% tekstu jest dobrze sformatowane, chyba że nazwa waluty to np. euro (wtedy jest za mało ) albo yuan renminbi (Chiny) (to wtedy za daleko jest w pliku).

 

Czy może ktoś mi pomóc jak ustalić stałe szerokości kolumn? Mają być 3 kolumny pionowe

[Bono[UG] 1920]

Na początek wywaliłbym te spacje przed i po "\t\t".

Tak z automatu chyba nie da rady zrobić. Musisz sprawdzić jak długie masz napisy i dać odpowiednią ilość spacji lub tabulatorów.

Pytanie jeszcze do czego to ma służyć. Jak ma ładnie wyglądać w pliku, to trzeba kombinować, jak ma być dobrze odczytywane przez programy (np. arkusz kalkulacyjny), to wystarczy pojedynczy tab.

[ogrod87 0]

to ma ładnie wyglądać w txt.

a jak sprawdzić długość napisów?

[Bono[UG] 1920]

perldoc -f length

[ogrod87 0]

Dzięki

Poradziłem sobie już wcześniej, ale skorzystałem właśnie z length.

Sprawdziłem najpierw długość napisu, a potem w pętli if w zależności od długości napisu ustawiłem odpowiednią ilość tabulatorów