Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[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;
}
|
- [bum, perl] Функция замороченная. 1 шт. - !? 16.07.04 20:00 [983]
|
|
|