ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel Zaikin                         2:5079/32      03 Aug 2000  00:32:00
 To : All
 Subject : print число
 -------------------------------------------------------------------------------- 
 

 
 Я хочу напечатать число с пробелами через каждые 3 цифры. Типа :
 $s=1234567;  =>  1 234 567.
 
 пока я сделал так :
 @d=split(//,$s);
 print "$d[-8]$d[-7] $d[-6]$d[-5]$d[-4] $d[-3]$d[-2]$d[-1]\n" ;
 
 можно это сделать как-то по другому ?
 
 Pavel.[work] e-mail: odert@surgu.wsnet.ru ICQ (UIN): 81786442
       [home] e-mail: pz@quake.ru          ICQ (UIN): 76373832 *http://pz.da.ru*
 ... Win32 UpTime: 0 days, 8 hours, 27 minutes, 1 second, 520 msec.
 --- [SandS]
  * Origin: Hадо научить этих хамов уважать начальство! (2:5079/32)
 
 

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

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