ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexander Ilyankin 2:5059/9.81 05 May 2003 23:25:18
To : All
Subject : Цифры и слова
--------------------------------------------------------------------------------
Почему скрипт работает правильно только в том случае, если $ran - число
(цифра).
А как сделать чтобы $ran мог принимать и буквы и цифры ?
Вместо == ставлю eq - не получается :(
open (TXTFILE, "1.txt");
@lines = <TXTFILE>;
close(TXTFILE);
$max = "ет";
foreach $temp (@lines) {
$max = "ДА" if $temp == $ran;
}
print "$max";
Удачи!
--- GoldED+/386 1.1.4.5
* Origin: Тра ля ля (2:5059/9.81)
Вернуться к списку тем, сортированных по:
|
