информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Сетевые кракеры и правда о деле ЛевинаСтрашный баг в WindowsАтака на Internet
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Три миллиона электронных замков... 
 Doom на газонокосилках 
 Умер Никлаус Вирт 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[bum, perl] Функция замороченная. 1 шт. 16.07.04 20:00  Число просмотров: 983
Автор: !? <!?> Статус: Member
<"чистая" ссылка>
Смысл выкладывания сюда этой функции,- сделать её лучше ;). Сам не могу, тк не имею хорошего опыта работы на perl, но вижу, что это выглядит просто нелепо по сравнению с чистым кодом ;).

Комменты:
Массив @xMA содержит список, элементы которого или равны "checked", или "".
Количество элементов напрямую связано с файлами "conf/ma/".$x, содержащими ID пользователей, имеющих "checked" в массиве @xMA с индексом $x.
Конечно, на всякий случай для каждого пользователя создаётся отдельная запись, но это на случай повреждения какого либо из "conf/ma/".$x.

for ($x= 0; $x< 2; $x++)
{
open $xT, "conf/ma/".$x;
@xT= <$xT>;
close $xT;
grep {$_=~ s/\r|\n//g;} (@xT);
if (@xMA[$x] eq "checked")
{
$x0= 0;
foreach (@xT)
{
$x0= 1 and last if $uID eq $_;
}
push @xT, $uID if $x0 eq 0;
} else
{
for ($xT= 0; $xT< @xT; $xT++)
{
@xT[$xT]= "" and last if @xT[$xT] eq $uID;
}
}
open $xT, ">conf/ma/".$x;
foreach (@xT)
{
print $xT $_."\n" if $_ ne "";
}
close $xT;
}
<programming> Поиск 






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach