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

Вывод в исходном HTML-коде:
Фамилия
Имя
Отчество Год рождения
<ВИ>ФамилияР1мяОтчествоГод рождения
• substro — возвращает подстроку указанной длины, начиная с заданной позиции. Если длина не указана, то возвращается подстрока, начиная с за¬данной позиции и до конца строки. Функция имеет следующий формат:
substr(<Строка>, <Начальная позиция>, [<Длина>], [<Строка для замены>]) ;
$str = "Строка";
$strl = substr($str, 0, 1); print "$strl"; # Выведет "С" print "<BR>";
$str2 = substr($str, 1);
. print "$str2"; # Выведет "трока"
Если указана строка для замены, то указанный фрагмент будет заменен в исходной строке:
$str = "Строка";
substr($str, 4, 2, "йка");
print "$str"; # Выведет "Стройка"
• uc () — делает все символы строки прописными буквами:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser);
# Настройка локали use locale;
use POSIX "localeji";
setlocale(LC_CTYPE, "ru_RU.CP1251");
print "Content-type: text/html\n\n";
$str = "очень длинная строка";
print uc($str); # ОЧЕНЬ ДЛИННАЯ СТРОКА
• lc () — делает все символы строки строчными буквами;
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser);
# Настройка локали use locale;
use POSIX "locale^1;
setlocale(LC_CTYPE, "ru_RU.CP1251");
print "Content-type: text/html\n\n";
$str = "ОЧЕНЬ ДЛИННАЯ СТРОКА";
print lc($str); # очень длинная строка
• ucfirst о —делает первый символ строки прописным:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser);
# Настройка локали use locale;
use POSIX ’locale_h";
setlocale(LC_CTYPE, "ru_RU.CP1251");
print "Content-type: text/html\n\n";
$str = "очень длинная строка";
print ucfirst($str); # Очень длинная строка
• lcfirst () — делает первый символ строки строчным:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser);
# Настройка локали use locale;
use POSIX "locale_hf;
setlocale(LC_CTYPE, "ru_RU.CP1251•);
print "Content-type: text/html\n\n";
$str = "ОЧЕНЬ ДЛИННАЯ СТРОКА";
print lcfirst($str); # ОЧЕНЬ ДЛИННАЯ СТРОКА


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