|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Bolotnov 2:5052/4.82 03 Nov 2000 16:29:14
To : All
Subject : никак не получается...
--------------------------------------------------------------------------------
что-то никак не придумается написать простой способ вот для чего:
open FD, < pwds or die $!;
while <FD>{
($e,$r) = $_ =~/.+::(.+)::.+::(.+{6})::/;
if (проверяем пароли и все такое){
&CREATE;
last; #??
}
else{
print "error";
}
}
close FD;
но ведь уродство такое, он "error" раз 10 напечатает, пока до нужной строки
дойдет, я там всяко извращялся, вроде работает, но все такие кривые решения...
может есть какое-то простое?
[NewNet] Alexander Bolotnov.
---
* Origin: Мы рождены, чтоб смазку сделать пылью... (2:5052/4.82)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
