Nie jesteś zalogowany.
Jeśli nie posiadasz konta, zarejestruj je już teraz! Pozwoli Ci ono w pełni korzystać z naszego serwisu. Spamerom dziękujemy!

Ogłoszenie

Prosimy o pomoc dla małej Julki — przekaż 1% podatku na Fundacji Dzieciom zdazyć z Pomocą.
Więcej informacji na dug.net.pl/pomagamy/.

#1  2012-06-08 20:39:39

  rulezdc - Członek DUG

rulezdc
Członek DUG
Skąd: Tarnowskie Góry
Zarejestrowany: 2007-05-22

[perl] wyrównanie danych poleceniem printf

Witam
mam takie coś:

Kod:

my $cpu = sprintf ("%.2f", `lscpu | grep 'CPU(s):'|head -n1|awk '{print $2}'`);
my $swap = sprintf ("%.2f", `cat /proc/swaps | grep -v Si | awk ' {print $3}'`);
print "cpu";
printf ("%35s", $cpu);
print "swap";
printf ("%35s", $swap);

i wynik mam taki :

Kod:

cpu                               0.00
swap                               0.00

Jak zrobić aby dane w drugiej kolumnie były wyrównane. Wiem, że nierówne wyrównanie jest związane z długością wpisu w pierwszej koumnie, ale może można to wyjustować aby dane były równe w każdej kolumnie.
Pozdrawiam

Offline

 

#2  2012-06-08 20:51:11

  azhag - Admin łajza

azhag
Admin łajza
Skąd: Warszawa
Zarejestrowany: 2005-11-15

Re: [perl] wyrównanie danych poleceniem printf

Kod:

perl.pl | column -t

;)


Błogosławieni, którzy czynią FAQ.
opencaching :: debian sources.list :: coś jakby blog :: polski portal debiana :: linux user #403712

Offline

 

Stopka forum

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson
Możesz wyłączyć AdBlock — tu nie ma reklam ;-)