|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 16 Nov 2000 13:59:34
To : Alexander Bolotnov
Subject : Re: никак не получается...
--------------------------------------------------------------------------------
<Alexander_Bolotnov@p82.f4.n5052.z2.fidonet.org> wrote:
AB> open FD, < pwds or die $!;
AB> while <FD>{
AB> ($e,$r) = $_ =~/.+::(.+)::.+::(.+{6})::/;
AB> if (проверяем пароли и все такое){
AB> &CREATE;
AB> last; #??
AB> }
AB> else{
AB> print "error";
AB> }
AB> }
AB> close FD;
AB> но ведь уродство такое, он "error" раз 10 напечатает, пока до нужной
AB> строки дойдет, я там всяко извращялся, вроде работает, но все такие кривые
AB> решения... может есть какое-то простое?
А что ты имел в виду? Hе это?
my ($e,$r);
open FD, "< pwds" or die $!;
while <FD>{
($e,$r) = $_ =~/.+::(.+)::.+::(.+{6})::/; # кстати, что ты имел в виду
# сказать этим регексом?
if (проверяем пароли и все такое){
&CREATE;
last;
}
}
close FD;
print "error" unless $e;
--
Счастливо!
Ран.
--- ifmail v.2.14.os-p7-tma3
* Origin: MemoNet (2:5020/371.32@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
