|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 07 May 2003 07:44:45
To : Alexander Ilyankin
Subject : Re: Цифры и слова
--------------------------------------------------------------------------------
use locale; # :-)
AI>> А как сделать чтобы $ran мог принимать и буквы и цифры
AI>> ? Вместо == ставлю eq - не получается :(
IZ> Плохо ставишь, к тому же в полследующем куске у тебя именно скалярное,
IZ> а не строковое сравнение.
IZ> for (@array){
IZ> if ($_ eq $var1){$var2 = 'yes'}else{$var2 = 'not'}
IZ> }
IZ> RU.CGI.PERL.CHAINIK
AI>> open (TXTFILE, "1.txt");
AI>> @lines = <TXTFILE>;
AI>> close(TXTFILE);
AI>> $max = "ет";
AI>> foreach $temp (@lines) {
AI>> $max = "ДА" if $temp == $ran;
AI>> }
AI>> print "$max";
IZ> WBR, Snake.
IZ> No one survive...
IZ> -+-
IZ> + Origin: Light is just a visible part of Darkness (2:5030/518.75)
* Лечу Бесплодие,методом научного тыка!!!
-- Hиколай
----------------------------------------------------------------------
---
* Origin: Где начало того конца, которым оканчивается начало? (2:5056/30)
Вернуться к списку тем, сортированных по:
|
