Функции для работы со строками

Перечислим основные функции для работы со строками:
• length () — возвращает количество символов в строке:
$strl = "СтрокаХп";
print length($strl); # Выведет 7
print "<BR>";
$str2 = ’СтрокаХп";
print length($str2); # Выведет 8
ОБРАТИТЕ ВНИМАНИЕ
Если в строке содержатся специальные символы, то длина строки в кавычках будет отличаться от длины строки в апострофах.
• chop о —удаляет последний символ в конце строки и возвращает его:
$strl = "Строка";
print "Из строки \"$strl\" <BR>";
$str2 = chop($strl);
print "мы удалили символ \"$str2\"<BR>"; print "в итоге строка выглядит так \"$strl\"";
Вывод:
Из строки "Строка"
мы удалили символ "а"
в итоге строка выглядит так "Строк"
Функция chop о работает также с массивами. В этом случае будут удалены последние символы во всех элементах массива:
@Mass = ("Фамилия", "Имя", "Отчество", "Год рождения"); chop(@Mass);
$str = join(" - ", @Mass);
print "$str"; # $str = Фамили — Им — Отчеств — Год рождени
• chomp о — удаляет символ новой строки (\п). Возвращает количество уда¬ленных символов:
$str = "Строка\п\п\п\п";
$var = chomp($str);
print "Удален(о) $var символ(а)";
# Вьшедет Удален(о) 1 символ(а)
Обратите внимание, функция chomp о удалила только один символ новой строки из четырех. Для того чтобы удалить все четыре символа, необхо¬димо присвоить пустую строку специальной переменной — $/:
$str = "Строка\п\п\п\п";
$/ =
$var = chomp($str);
print "Удален(о) $var символ(a)";
# Выведется Удален(о) 4 символ(а)
Переменной $/ можно присвоить другое значение. Например, чтобы уда¬лить символ табуляции, переменной необходимо присвоить значение \t:
$str = "CTpOKa\t";
$/ = "\t";
$var = chomp($str);
print "Удален(о) $var символ(а)";
# Выведется Удален(о) 1 символ(а)
Функция chomp о работает также с массивами. В этом случае будет удален символ новой строки (\п) во всех элементах массива:
@Mass = ("Фамилия\п", "Имя\п", "Отчество\п", "Год рождения\п"); for($i=0; $i<@Mass; $i++) { print $Mass[$i];
}
print "<BR>"; chomp(@Mass);
for($i=0; $i<@Mass; $i++) { print $Mass[$i];
}


Страница: 1 | 2 | 3


Web сайты на Perl и MySql