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

[andrez]

Как это сделать?

[NeoNox]

$stroka =~ s/^.{1}//;

[commander]

andrez
какой? первый последний или произвольный???

[andrez]

commander:
какой? первый последний или произвольный???

как первый удалить уже написали, напиши как произвольный


И где можно почитать про регулярные выражения, чтоб много и понятно?

[andrez]

и как удалить все символы кроме последних 3?

[NeoNox]

s/.{3}$//

[NeoNox]

andrez:
И где можно почитать про регулярные выражения, чтоб много и понятно?

perldoc perlre
http://perldoc.narod.ru/regexp2-ref.pdf

[andrez]

NeoNox:
s/.{3}$//

у меня вся строчка гробится, а вместо нее пробел возвращается

[NeoNox]

andrez:
у меня вся строчка гробится, а вместо нее пробел возвращается

угу, неправильно понял.
s/.*?(.{3})$/$1/
perldoc -f substr

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

Только все эти задачи лучше решать с помощью substr, оно именно для этого и предназначено.

[NeoNox]

КшЫуфксрук
прав
в @m помещен CGI.pm

   
RegEXP:  0 wallclock secs ( 0.26 usr +  0.00 sys =  0.26 CPU) @ 23.08/s (n=6)
            (warning: too few iterations for a reliable count)
    SUBSTR:  0 wallclock secs ( 0.03 usr +  0.00 sys =  0.03 CPU) @ 200.00/s (n=6)
            (warning: too few iterations for a reliable count)
         Rate RegEXP SUBSTR
RegEXP 23.1/s     --   -88%
SUBSTR  200/s   767%     --

             RegEXP => sub { undef $z; foreach my $t ( @m ){ $z .= $t =~ s/.*?(.{3})$/$1/} },
                SUBSTR => sub { undef $z; foreach my $t ( @m ){ $z .= substr $t, -3 }},

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

Произвольный символ тоже удобнее удалить в помощью substr:

substr($str,$pos,1) = ""; #удаляем символ под номером $pos

[andrez]

есть строчка ищу в ней точки ~/\\./ ищет по всей строке
вопос: как делать сравнение с нным символом строки, например с 2

[NeoNox]

Почитай документацию по регекспам и перестанеш по каждому чиху на форум бегать.

[andrez]

NeoNox:
Почитай

уже читаю! вдруг кто сразу скажет