ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vitaly Cheprasov 2:5009/5.24 06 Jul 2003 15:59:49
To : All
Subject : сортировка
--------------------------------------------------------------------------------
есть коHструкция....оHа сортирует тока по алфавиту.....а Hадо чтобы сдлать так
чтобы еще было сортировка и уровHю....их всего 5...как это сделать????
foreach (sort { lc($$a[0]) cmp lc ($$b[0]) } @sa)
{
if ($$_[21] == 2 and not $$_[0] eq $session{'name'})
{
print "<a
href=javascript:OpenUrl('$script2_name?action=get&from=$session{'name'}
&id=$que ry{'id'}')><img src='/chat/gif/msg.gif' width=16 height=12 border=0
alt='Ee?iia niiauaiea'></a>"
}
elsif ($$_[2] == 1)
{
print "<img src='/chat/gif/aw.gif' width=16 height=12 border=0 alt='Iaiy iao'>"
}
elsif ($$_[2] == 0)
{
print "<img src='/chat/gif/ol.gif' width=16 height=12 border=0 alt='? caanu'>"
}
$color_tag = ($$_[8] and $$_[8] ne "standard" and
$sa_usercolors)?"STYLE=\"color:#
$$_[8]\"":"";
(not $$_[0] eq $session{'name'}) ?
print " $short_ul_names{$$_[3]}$sex_p{$$_[20]} <a href=javascript:OpenUrl
('$script2_name?action=send&to=$$_[0]&from=$session{'nam e'}&id=$query{'id'}')>
<font color='#33FF00'>$color_tag$$_[0]</font></a><br>" :
print "<font color='#33FF00'><i> $short_ul_names{$$_[3]}$sex_p{$$_[20]}
$color_tag
$$_[0]</i></font><br>";
}
Всего хорошего,
Vitaly.
--- ...CyberStudio...cyberstudio@tamb.ru
* Origin: ...<Rтя<м-л_ б_вЁ...ч_ц... (2:5009/5.24)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
