ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Oleg Bakiev                          2:5061/109.58  03 Aug 2000  15:26:08
 To : Pavel Zaikin
 Subject : print число
 -------------------------------------------------------------------------------- 
 

 
 03 Aug 00 08:37, Pavel Zaikin wrote to All:
 
  PZ> Я хочу напечатать число с пробелами через каждые 3 цифры. Типа :
  PZ> $s=1234567;  =>  1 234 567.
 
  PZ> пока я сделал так :
  PZ> @d=split(//,$s);
  PZ> print "$d[-8]$d[-7] $d[-6]$d[-5]$d[-4] $d[-3]$d[-2]$d[-1]\n" ;
 
  PZ> можно это сделать как-то по другому ?
 
 perldoc perlop
 === Cut ===
 # put commas in the right places in an integer
 1 while s/(\d)(\d\d\d)(?!\d)/$1,$2/g;  # perl5
 === Cut ===
 
 Запятую в твоём случае нужно, естественно, заменить пробелом.
 
 WBR, Oleg
 --- GoldED/W32 3.0.1
  * Origin:  >>> Можно я лягу? <<< (2:5061/109.58)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    print число   Pavel Zaikin   03 Aug 2000 00:32:00   print число   Oleg Bakiev   03 Aug 2000 15:26:08