Как удалить 1 символ строки

[NeoNox]

запросто, но
неужели самому не интересно найти ответ?

[КшЫуфксрук]

> вопос: как делать сравнение с нным символом строки, например с 2

Если ты точно знаешь, где должна стоять точка, то почему бы не использовать все тот же substr?

[andrez]

if (substr($stroka,1,1)=~/\\./) вот так оно работает, упростить можно?

[КшЫуфксрук]

if (substr($str,1,1) eq ".") { print "Ok!\\n" }

[andrez]

КшЫуфксрук:
if (substr($str,1,1) eq ".") { print "Ok!\\n" }

 имелось ввиду не используя substr

[andrez]

еще вопросик! запись такого вида
if ($str=~/blabla/) выполнять если в строке $str есть blabla
как написать выполнять если в $str нет blabla?
Пишу if ($str!=~/blabla/) и нифига не работает

[NeoNox]

документацию открывал?
if ($str  !~ /blabla/)

[vladsu]

andrez:
if ($str=~/blabla/) выполнять если в строке $str есть blabla
как написать выполнять если в $str нет blabla?

perldoc perlsyn

смотреть unless

[КшЫуфксрук]

andrez

Ну а зачем использовать что-то другое, если для этих целей предназначем именно substr???

Можно придумать кучу способов, но вряд ли они будут быстрее или проще. А если какой-то и окажется на пару тактов быстрее, то читабельность сильно пострадает.