Функция substr используется для удаления части строки. Она имеет следующий формат:
$substring = substr(Str, Offset[,Len]);
Функция возвращает подстроку, т. е. часть строки, длина которой не превышает величины, заданной факультативным параметром Len . Возвращаемая подстрока строки str начинается с символа в позиции, заданной сдвигом Offset . Если параметр Len опущен, то возвращаемая строка содержит символы до конца строки включительно. Если параметр Offset отрицательный, то сдвиг вычисляется от конца строки. Наконец, скрипт может использовать substr как lvalue для выполнения операции присваивания. Следующий фрагмент кода иллюстрирует использование функции substr .
print substr(‘orange’,3);
# Выведет ‘nge’
print substr(‘orange’,-2); # Выведет ‘ge’
print substr(‘orange’,2,2); # Выведет ’an’
$str = ‘apple’;
substr($str,-3) = ‘ricot’;
print $str; # Выведет ‘apricot’
Примечание: Часто использование операторов языка Perl для регулярных выражений оказывается более эффективным, чем функции substr . Регулярные выражения обсуждаются ниже в данной главе.