https://mobile.opennet.me/openforum/vsluhforumID9/10176.html Привет, у меня не получается замена с символом $ на perl 5.26.0<br><br>вот так я делаю на sed<br>echo "aa bb$ cc"&#124;sed -E 's&#124;\S+\$&#124;XXX&#124;g'<br>aa XXX cc<br><br>а вот на perl<br>perl -E 'my $p="aa bb$ cc"; $p =~ s/\S+\$/XXX/g; say "$p"'<br>aa bb<br><br>варианты с \Q \E не работают тоже. Как тут правильно делается?<br><br> https://mobile.opennet.me/openforum/vsluhforumID9/10176.html#6 Wed, 13 Sep 2017 10:55:53 GMT &gt;&gt; для линукса (под виндой не сработает, экранироваь надо по другому): <br>&gt;&gt; perl -e "\$p='aa bb$ cc'; \$p=~s/\S+\\$/XXX/g; print \$p;" <br>&gt; Можно проще: <br>&gt; [code]perl -E 'my $p=q{aa bb$ cc}; $p =~ s/\S+\$/XXX/g; say $p'[/code] <br><br>Ну...Мне кажется вообще странным желание решать задачу через однострочник, подставляя ему значения в виде сформированной в том же однострочнике переменной.<br>Поэтому возможно что и этот случай не будет удовлетворять желаемому решению...<br> https://mobile.opennet.me/openforum/vsluhforumID9/10176.html#5 Wed, 13 Sep 2017 09:25:28 GMT &gt; для линукса (под виндой не сработает, экранироваь надо по другому): <br>&gt; perl -e "\$p='aa bb$ cc'; \$p=~s/\S+\\$/XXX/g; print \$p;" <br><br>Можно проще:<br><br>[code]perl -E 'my $p=q{aa bb$ cc}; $p =~ s/\S+\$/XXX/g; say $p'[/code]<br> https://mobile.opennet.me/openforum/vsluhforumID9/10176.html#4 Wed, 13 Sep 2017 07:59:33 GMT &gt;&gt;&gt; Либо надо так "aa bb\$ cc" <br>&gt;&gt; Спасибо так работает, но я получаю данные без экранирования, и меня конечно <br>&gt;&gt; интересует вариант <br>&gt;&gt;&gt; либо так 'aa bb$ cc' <br>&gt;&gt; но не работает <br>&gt;&gt; perl -E 'my $p='aa bb$ cc'; $p =~ s/S+\$/XXX/g; say "$p"' <br>&gt;&gt; &lt;ничего&gt; <br>&gt; потому что однострочник с неэкранированным спецсимволом ("одинарная кавычка").<br><br>для линукса (под виндой не сработает, экранироваь надо по другому):<br>perl -e "\$p='aa bb$ cc'; \$p=~s/\S+\\$/XXX/g; print \$p;"<br> https://mobile.opennet.me/openforum/vsluhforumID9/10176.html#3 Wed, 13 Sep 2017 07:52:55 GMT &gt;&gt; Либо надо так "aa bb\$ cc" <br>&gt; Спасибо так работает, но я получаю данные без экранирования, и меня конечно <br>&gt; интересует вариант <br>&gt;&gt; либо так 'aa bb$ cc' <br>&gt; но не работает <br>&gt; perl -E 'my $p='aa bb$ cc'; $p =~ s/S+\$/XXX/g; say "$p"' <br>&gt; &lt;ничего&gt; <br><br>потому что однострочник с неэкранированным спецсимволом ("одинарная кавычка").<br> https://mobile.opennet.me/openforum/vsluhforumID9/10176.html#2 Wed, 13 Sep 2017 02:41:04 GMT &gt; Либо надо так "aa bb\$ cc"<br><br>Спасибо так работает, но я получаю данные без экранирования, и меня конечно интересует вариант <br>&gt; либо так 'aa bb$ cc' <br><br>но не работает<br>perl -E 'my $p='aa bb$ cc'; $p =~ s/S+\$/XXX/g; say "$p"'<br>&lt;ничего&gt;<br><br><br> https://mobile.opennet.me/openforum/vsluhforumID9/10176.html#1 Tue, 12 Sep 2017 20:45:02 GMT &gt; Привет, у меня не получается замена с символом $ на perl 5.26.0 <br>&gt; вот так я делаю на sed <br>&gt; echo "aa bb$ cc"&#124;sed -E 's&#124;\S+\$&#124;XXX&#124;g' <br>&gt; aa XXX cc <br>&gt; а вот на perl <br>&gt; perl -E 'my $p="aa bb$ cc"; $p =~ s/\S+\$/XXX/g; say "$p"' <br>&gt; aa bb <br>&gt; варианты с \Q \E не работают тоже. Как тут правильно делается?<br><br>Правильно очевидно - не использовать двойные кавычки там где вы не хотите чтобы $ воспринимался как служебный символ.<br>Либо надо так "aa bb\$ cc" либо так 'aa bb$ cc'<br>