LINUX.ORG.RU

Народ, помогите с Perl !!!


0

0

Народ, помогите с Perl !!! Не могу удалить нужное количество символов из длинной строки. Должна быть какая-то простая функция. Никак не могу найти. Могу перемещаться в любую позицию (seek), могу прочесть определенное кол-во символов (read), а удалить их не получается. Помогите пожалуйста.

anonymous

this is an example, how to delete the third character

$str="........";
@ts=split '', $str;
undef $ts[2];
$str= join '', @ts;

Z0termaNN
()

Another (cleaner IMHO) way:

$s="12345"; 
substr $s,2,1,"";


perldoc -f substr

Ilja.

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.