ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Danil Pismenny                       2:5020/52      23 Nov 2000  21:14:02
 To : All
 Subject : Re: вопрос к мастерам регэкспов
 -------------------------------------------------------------------------------- 
 

 >>>>> "Gleb" == Gleb Galkin writes:
 
  Gleb>           Hi All!  Как внутри html-тегов перевести все имена файлов
  Gleb> в нижний регистр при этом не трогая директорий?  Т. е преобразовать
  Gleb> <a href="../DiRectory/FiLeName.HTML> в <a
  Gleb> href="../DiRectory/filename.html>
 
  Gleb>   Я написал функцию которая преобразует правильно строку внутри
  Gleb> кавычек.  Hо как вызвать функцию из регекспа?
 
         Прямо так и вызывать:
 
 $s=~s/\s*(PHP)\s*/&superSub($1)/eg;
 
 sub superSub {
   my $p=shift;
   return 'PERL';
 }
 
 но у тебя все равно регексп не правильно и вообще это все делается без
 вызова функций, лови:
 
 perl -pi.bak -e 's/<(.*)\s*(HREF|SRC|BACKGROUND)\s*=\s*\"?(\S+)\"?(.*)>/<$1
 $2=\"\L$3\E\"\s$4>/ig' *.html
 --- Gnus/5.0807 (Gnus v5.8.7) XEmacs/21.1 (Channel Islands)
  * Origin: Mr. Postman (2:5020/52.0)
 
 

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