https://www.opennet.ru/openforum/vsluhforumID9/9791.html Всем привет!<br><br>Ребята , гуру , подскажите , как в перле , заменить все символы в слове , кроме первого и последнего ?<br>Заменить первый и последний могу , $str =~ s/^[a-zA-Z0-9]&#124;[a-zA-Z0-9]$/@/g; <br>а наоборот чето никак .. (<br>спасибо!<br><br> https://www.opennet.ru/openforum/vsluhforumID9/9791.html#7 Sat, 07 Dec 2013 18:58:27 GMT &gt;&gt; # меняем только первый и последний символ <br>&gt;&gt; $str =~ s/^.&#124;.$/*/g; <br>&gt; чож вы все прицепились в маркерам начала/конца СТРОКИ, когда нужно СЛОВО разобрать )) <br><br>Походу оне не вкуривают вообще, не по есть напрочь - о чём ты им говоришь :)<br>И видимо дойдёт только когда очередной "Фобос" - "в грунт" :(<br> https://www.opennet.ru/openforum/vsluhforumID9/9791.html#6 Thu, 05 Dec 2013 13:27:01 GMT Михалыч! :) Спасибо!<br><br><br>&gt;[оверквотинг удален]<br>&gt; $str = "q1w2e3r4t5y6"; <br>&gt; # меняем только первый и последний символ <br>&gt; $str =~ s/^.&#124;.$/*/g; <br>&gt; # то же самое, но с группировкой <br>&gt; $str =~ s/(?=^.&#124;.$)./*/g; <br>&gt; # а это как раз наоборот - меняем всё, кроме первого и <br>&gt; последнего символа <br>&gt; # супер-пупер-мега шифровальщики :) <br>&gt; $str =~ s/(?!^.&#124;.$)./*/g; <br>&gt; print "$str\n"; <br><br> https://www.opennet.ru/openforum/vsluhforumID9/9791.html#5 Thu, 05 Dec 2013 13:18:21 GMT &gt;&gt; Всем привет!<br>&gt;&gt; Ребята , гуру , подскажите , как в перле , заменить все <br>&gt;&gt; символы в слове , кроме первого и последнего ?<br>&gt;&gt; Заменить первый и последний могу , $str =~ s/^[a-zA-Z0-9]&#124;[a-zA-Z0-9]$/@/g; <br>&gt;&gt; а наоборот чето никак .. ( <br>&gt;&gt; спасибо!<br>&gt; #!/usr/bin/perl <br>&gt; $str = "q1w2e3r4t5y6"; <br>&gt; # меняем только первый и последний символ <br>&gt; $str =~ s/^.&#124;.$/*/g; <br><br>чож вы все прицепились в маркерам начала/конца СТРОКИ, когда нужно СЛОВО разобрать ))<br><br>&gt; # то же самое, но с группировкой <br>&gt; $str =~ s/(?=^.&#124;.$)./*/g; <br><br>ща у студента мозг порвет ))<br><br>&gt; # а это как раз наоборот - меняем всё, кроме первого и <br>&gt; последнего символа <br>&gt; # супер-пупер-мега шифровальщики :) <br>&gt; $str =~ s/(?!^.&#124;.$)./*/g; <br>&gt; print "$str\n"; https://www.opennet.ru/openforum/vsluhforumID9/9791.html#4 Thu, 05 Dec 2013 13:00:16 GMT &gt; Всем привет!<br>&gt; Ребята , гуру , подскажите , как в перле , заменить все <br>&gt; символы в слове , кроме первого и последнего ?<br>&gt; Заменить первый и последний могу , $str =~ s/^[a-zA-Z0-9]&#124;[a-zA-Z0-9]$/@/g; <br>&gt; а наоборот чето никак .. ( <br>&gt; спасибо!<br><br>#!/usr/bin/perl<br><br>$str = "q1w2e3r4t5y6";<br><br># меняем только первый и последний символ<br>$str =~ s/^.&#124;.$/*/g;<br><br># то же самое, но с группировкой<br>$str =~ s/(?=^.&#124;.$)./*/g;<br><br># а это как раз наоборот - меняем всё, кроме первого и последнего символа<br># супер-пупер-мега шифровальщики :)<br>$str =~ s/(?!^.&#124;.$)./*/g;<br><br>print "$str\n";<br><br> https://www.opennet.ru/openforum/vsluhforumID9/9791.html#3 Thu, 05 Dec 2013 12:41:01 GMT &gt; $cat reg.pl <br>&gt; #!/usr/bin/perl <br>&gt; $str = "q1w2e3r4t5y6"; <br>&gt; $str =~ s/^[a-zA-Z0-9]&#124;[a-zA-Z0-9]$/@/g; <br>&gt; print "$str\n"; <br>&gt; exit 0; <br>&gt; $perl reg.pl <br>&gt; @1w2e3r4t5y@ <br><br>яя! это полный пезд^Wвосторг ))<br>хотелось бы посоветовать афтару испробовать свой мега скрипт на такой строке:<br>$str = " q1w2e3r4t5y6 "; а потом убить сибя ап стену, больно ))<br><br>темболее выше решение дано, причем универсальное (с маленькой подковыркой, чтоб подумать) ))<br> https://www.opennet.ru/openforum/vsluhforumID9/9791.html#2 Thu, 05 Dec 2013 11:15:10 GMT $cat reg.pl <br><br>#!/usr/bin/perl<br><br>$str = "q1w2e3r4t5y6";<br><br>$str =~ s/^[a-zA-Z0-9]&#124;[a-zA-Z0-9]$/@/g;<br><br>print "$str\n";<br><br>exit 0;<br><br>--<br><br>$perl reg.pl <br>@1w2e3r4t5y@<br> https://www.opennet.ru/openforum/vsluhforumID9/9791.html#1 Thu, 05 Dec 2013 10:25:36 GMT &gt; Всем привет!<br>&gt; Ребята , гуру , подскажите , как в перле , заменить все <br>&gt; символы в слове , кроме первого и последнего ?<br>&gt; Заменить первый и последний могу , $str =~ s/^[a-zA-Z0-9]&#124;[a-zA-Z0-9]$/@/g; <br><br>1) ваш регекс полная хня - про то что вы меняете первый и последний звездите по полной, вы даже не понимаете что напЕсали<br>2) четче формулировать надо учится - вы много слов знаете которые содержат [0-9]?<br>3) ну меняй на здоровье s#^(\s)(\S)\S+(\S)(\s)$#$1$2ololo$3$4#g<br><br>&gt; а наоборот чето никак .. ( <br>&gt; спасибо!