<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>Программирование на Perl, 3-е издание. стр. 194</div><div><br></div><blockquote class="webkit-indent-blockquote" style="margin: 0 0 0 40px; border: none; padding: 0px;"><div><span class="Apple-tab-span" style="white-space:pre"> </span>s/version ([0-9.]+)/the $Names($1) release/g</div><div><br></div><div>В строке замены $1 возвращает то, что захватила первая (и единственная) пара скобок. (Можно также указать \1, как в шаблоне, но такое использование в замене считается предосудительным. В обычной строке, заключенной в двойные кавычки, \1 означает <Ctrl>+<A>.)</div><div><br></div></blockquote>Так что помнится вам что-то странное.<div>Вот Фридла сейчас не найду, но он [кажется] тоже каленым железом был готов метить тех, кто писал \1 в части замены.</div><div>Так что можно, но общественность осуждает :)</div><div><div><br></div><br><div><div>On May 22, 2011, at 2:03 AM, Nick Knutov wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div>Спасибо, не догадался так посмотреть, помогло.<br><br>Да, когда-нибудь надо будет поправить )<br><br>btw, мне почему-то помнится, что $1 вместо \1 можно было делать не всегда и, более того, делать так было раньше нельзя. С какой версии перла это изменилось?<br><br><br>On 22.05.2011 3:54, Dmitry Karpich wrote:<br><blockquote type="cite"><blockquote type="cite">perl -wE 'use diagnostics;$a="true"; $a =~ s/(ru)/FFF\1/; say $a'<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">\1 better written as $1 at -e line 1 (#1)<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">(W syntax) Outside of patterns, backreferences live on as variables.<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">The use of backslashes is grandfathered on the right-hand side of a<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">substitution, but stylistically it's better to use the variable form<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">because other Perl programmers will expect it, and it works better if<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">there are more than 9 backreferences.<br></blockquote></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Отключить, как diagnostics пишет, можно через syntax.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Но, честно говоря, лучше прислушайтесь к интерпретатору, он дело говорит :)<br></blockquote><blockquote type="cite">Да и отключать ВСЮ категорию - это как себе в ногу выстрелить. Намаетесь<br></blockquote><blockquote type="cite">потом ловить странные косяки.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Митяй.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">On May 22, 2011, at 1:30 AM, Nick Knutov wrote:<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><blockquote type="cite">Коллеги, подскажите пожалуйста,<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">чтобы отключить вывод сообщений вида "\1 better written as $1 at"<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">no warnings (что) ?<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">Нагуглить категорию не получается, в документации к perllexwarn тоже<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">ничего.<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">--<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">Best Regards,<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">Nick Knutov<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><a href="http://knutov.com">http://knutov.com</a><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">ICQ: 272873706<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">Voice: +7-904-84-23-130<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">--<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">Moscow.pm mailing list<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org">http://moscow.pm.org</a><br></blockquote></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><br>-- <br>Best Regards,<br>Nick Knutov<br><a href="http://knutov.com">http://knutov.com</a><br>ICQ: 272873706<br>Voice: +7-904-84-23-130<br>-- <br>Moscow.pm mailing list<br>moscow-pm@pm.org | http://moscow.pm.org<br></div></blockquote></div><br></div></body></html>