|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Igor Zinkovsky 2:5030/518.75 06 May 2003 04:48:36 To : Alexander Ilyankin Subject : Цифры и слова -------------------------------------------------------------------------------- AI> А как сделать чтобы $ran мог принимать и буквы и цифры AI> ? Вместо == ставлю eq - не получается :( Плохо ставишь, к тому же в полследующем куске у тебя именно скалярное, а не строковое сравнение. for (@array){ if ($_ eq $var1){$var2 = 'yes'}else{$var2 = 'not'} } 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"; WBR, Snake. No one survive... --- * Origin: Light is just a visible part of Darkness (2:5030/518.75) Вернуться к списку тем, сортированных по:
Архивное /ru.cgi.perl/40023eb74066.html, оценка из 5, голосов 10
|