ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitriy Kyrhlarov                    2:5020/400     07 Oct 2002  18:13:38
 To : All
 Subject : s///m
 -------------------------------------------------------------------------------- 
 

 Hi!
 
 Скачал книжку по перлу в html. Сдампил ее в кучку txt-шек.
 Задача: отрезать несколько строк в начале файла до известного
 ограничителя, а так же отрезать строки от известного ограничителя до
 конца файла.
 Как это сделать?
 
 Еще вопрос:
 perldoc -q commas
 
     sub commify {
         local $_  = shift;
         1 while s/^([-+]?\d+)(\d{3})/$1,$2/;
         return $_;
     }
 
     $n = 23659019423.2331;
     print "GOT: ", commify($n), "\n";
 
     GOT: 23,659,019,423.2331
 
 Объясните, плз, КАК это работает.
 
 s/^([-+]?\d+)(\d{3})/$1,$2/;
 Разбиваем число на 2 группы -- начало со знаком и конец из 3 цифр. Между
 группами ставим "," и возвращаем.
 
     $n = 23659019423.2331;
     print "GOT: ", commify($n), "\n";
 
     GOT: 23,659,019,423.2331
 
 Я ожидал увидеть 23659019,423.2331
 Поясните, плз, откуда рекурсия?
 
 By.
 Dmitriy
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    s///m   Dmitriy Kyrhlarov   07 Oct 2002 18:13:38   Re: s///m   Artem Chuprina   07 Oct 2002 19:12:56   Re: s///m   Andrey Sapozhnikov   07 Oct 2002 19:14:58