ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Timur Vafin 2:5020/400 31 Jan 2003 19:04:40
To : All
Subject : Заменить s///
--------------------------------------------------------------------------------
Мир вертится, коннект нормальный, а посему приветствую вас All
Hе могу сообразить как выполнить s/PATTERN/REPLACEMENT/, если REPLACEMENT
строка содержащая переменные $N...
Вот что то этого...
#!/usr/bin/perl
$a = 'qwe(\d+)qwe';
$b = '===$1===';
$qq = '1100qwe123qwe0011';
$qq=~s/$a/$b/e;
print $qq;
Получам 1100===$1===0011
А хочется 1100===123===0011
Всё будет хорошо...
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
