Всем привет!

Ребята , гуру , подскажите , как в перле , заменить все символы в слове , кроме первого и последнего ?
Заменить первый и последний могу , $str =~ s/^[a-zA-Z0-9]|[a-zA-Z0-9]$/@/g;
а наоборот чето никак .. (
спасибо!

• Perl regex help,Pahanivo, 14:25 , 05-Дек-13
  • Perl regex help,kotvsapogax, 15:15 , 05-Дек-13
    • Perl regex help,Pahanivo, 16:41 , 05-Дек-13
• Perl regex help,михалыч, 17:00 , 05-Дек-13
  • Perl regex help,Pahanivo, 17:18 , 05-Дек-13
    • Perl regex help,oOo, 22:58 , 07-Дек-13
  • Perl regex help,kotvsapogax, 17:27 , 05-Дек-13

> Всем привет!
> Ребята , гуру , подскажите , как в перле , заменить все
> символы в слове , кроме первого и последнего ?
> Заменить первый и последний могу , $str =~ s/^[a-zA-Z0-9]|[a-zA-Z0-9]$/@/g;

1) ваш регекс полная хня - про то что вы меняете первый и последний звездите по полной, вы даже не понимаете что напЕсали
2) четче формулировать надо учится - вы много слов знаете которые содержат [0-9]?
3) ну меняй на здоровье s#^(\s)(\S)\S+(\S)(\s)$#$1$2ololo$3$4#g

> а наоборот чето никак .. (
> спасибо!

$cat reg.pl

#!/usr/bin/perl

$str = "q1w2e3r4t5y6";

$str =~ s/^[a-zA-Z0-9]|[a-zA-Z0-9]$/@/g;

print "$str\n";

exit 0;

--

$perl reg.pl
@1w2e3r4t5y@

> $cat reg.pl
> #!/usr/bin/perl
> $str = "q1w2e3r4t5y6";
> $str =~ s/^[a-zA-Z0-9]|[a-zA-Z0-9]$/@/g;
> print "$str\n";
> exit 0;
> $perl reg.pl
> @1w2e3r4t5y@

яя! это полный пезд^Wвосторг ))
хотелось бы посоветовать афтару испробовать свой мега скрипт на такой строке:
$str = " q1w2e3r4t5y6 "; а потом убить сибя ап стену, больно ))

темболее выше решение дано, причем универсальное (с маленькой подковыркой, чтоб подумать) ))

> Всем привет!
> Ребята , гуру , подскажите , как в перле , заменить все
> символы в слове , кроме первого и последнего ?
> Заменить первый и последний могу , $str =~ s/^[a-zA-Z0-9]|[a-zA-Z0-9]$/@/g;
> а наоборот чето никак .. (
> спасибо!

#!/usr/bin/perl

$str = "q1w2e3r4t5y6";

# меняем только первый и последний символ
$str =~ s/^.|.$/*/g;

# то же самое, но с группировкой
$str =~ s/(?=^.|.$)./*/g;

# а это как раз наоборот - меняем всё, кроме первого и последнего символа
# супер-пупер-мега шифровальщики :)
$str =~ s/(?!^.|.$)./*/g;

print "$str\n";

>> Всем привет!
>> Ребята , гуру , подскажите , как в перле , заменить все
>> символы в слове , кроме первого и последнего ?
>> Заменить первый и последний могу , $str =~ s/^[a-zA-Z0-9]|[a-zA-Z0-9]$/@/g;
>> а наоборот чето никак .. (
>> спасибо!
> #!/usr/bin/perl
> $str = "q1w2e3r4t5y6";
> # меняем только первый и последний символ
> $str =~ s/^.|.$/*/g;

чож вы все прицепились в маркерам начала/конца СТРОКИ, когда нужно СЛОВО разобрать ))

> # то же самое, но с группировкой
> $str =~ s/(?=^.|.$)./*/g;

ща у студента мозг порвет ))

> # а это как раз наоборот - меняем всё, кроме первого и
> последнего символа
> # супер-пупер-мега шифровальщики :)
> $str =~ s/(?!^.|.$)./*/g;
> print "$str\n";

>> # меняем только первый и последний символ
>> $str =~ s/^.|.$/*/g;
> чож вы все прицепились в маркерам начала/конца СТРОКИ, когда нужно СЛОВО разобрать ))

Походу оне не вкуривают вообще, не по есть напрочь - о чём ты им говоришь :)
И видимо дойдёт только когда очередной "Фобос" - "в грунт" :(

Михалыч! :) Спасибо!

>[оверквотинг удален]
> $str = "q1w2e3r4t5y6";
> # меняем только первый и последний символ
> $str =~ s/^.|.$/*/g;
> # то же самое, но с группировкой
> $str =~ s/(?=^.|.$)./*/g;
> # а это как раз наоборот - меняем всё, кроме первого и
> последнего символа
> # супер-пупер-мега шифровальщики :)
> $str =~ s/(?!^.|.$)./*/g;
> print "$str\n";