|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 25 Feb 2003 17:03:44
To : "Serg"
Subject : Re: регистр букв
--------------------------------------------------------------------------------
Здравствуй, Serg.
AC>> Правильный ответ:
AC>> ==== 8< [test.pl] ====
AC>> #!/usr/bin/perl -w
AC>> use strict;
AC>> use locale;
AC>> my $s = "Слово";
AC>> print "Capital" if uc substr($s,0,1) eq substr($s,0,1);
S> ==== >> 8 [test.pl] ====
S> хинт ь3: если $s="", то выдаст "Capital":). Гы, странно что не substr на это
S> дело не ругается:). Бейсик бы за такие дела очень сильно отшмонал:).
А чем первая буква пустого слова не заглавная? А чего сабстру на это ругаться?
Hу, пустая строка... Hа самом деле тут есть и другие засады - так, оно будет
считать заглавной любую небукву (у нее uc равно ей самой). Логичнее было бы
написать lc ... ne ..., но и тут могут быть грабли. Все зависит от допусков в
задаче.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
