|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Serg 2:5020/400 25 Feb 2003 16:31:07
To : Artem Chuprina
Subject : Re: регистр букв
--------------------------------------------------------------------------------
Привет, Artem!
Tue Feb 25 2003 00:12, Artem Chuprina wrote to ilya voronin:
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);
==== >> 8 [test.pl] ====
хинт ь3: если $s="", то выдаст "Capital":). Гы, странно что не substr на это
дело не ругается:). Бейсик бы за такие дела очень сильно отшмонал:).
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
