ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alan Long                            2:5030/1082.72 10 Jul 2002  10:35:05
 To : Alexander Lunkov
 Subject : regexp
 -------------------------------------------------------------------------------- 
 

 * Originally from Alexander Lunkov (2:5055/201.26) to All.
 
  AL>     Можно ли объеденить след. строки в одну?
  AL> Вырезаем 10:43 из 2002-Jun-23 10:43:20.76:
  AL>     $log_time=~s/(\d+)-(\w+)-(\d+) //;
  AL>     $log_time=~s/:(\d+)\.(\d+)//;
 
 $log_time =~ s/^\d+-\w+-\d+ (\d+:\d+):\d+\.\d+/$1/;
 возможно в конце regexp нцжно поставить модификатор e, просто сейчас нету доки
 под рукой.
 
  AL> Преобразуем dir/file.txt к dir,file.
  AL>     $flist[$i]=~s%^(\w+)/%%;
  AL>     $flist[$i]=~s/\.txt$//;
  AL>     $flist[$i]=~s/\//,/;
 
 $filst[$i] =~ s%^(\w+)/([^.]+)\.txt$%$1,$2%;
 аналогично см выше про модификатор e
 
  AL>     Можно сделать проще?
 
 может быть прочитать доку про регулярные выражения и оператор s/// а то
 складывается чуство что ты смутно представляешь как он работает.
 
  AL> yours, Alex 
 
 -- 
 With best,
      Ъ-·    Ъ
      Е-ЧLaі\і <alan@x-rays.eu.org>
 
 --- timEd/386 1.10+
  * Origin: X - Rays Station (2:5030/1082.72)
 
 

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