The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Ерунда какая-то с сортировкой=("
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Ерунда какая-то с сортировкой=("
Сообщение от z3f emailИскать по авторуВ закладки on 06-Апр-04, 17:54  (MSK)
мой скрипт полностью приводить не буду - здоровый он и бестолковый ко всему прочему=)
#!/usr/bin/perl
use strict;
use CGI ':standard';
my @s;
my @activ;
# после этого @activ забивается данными и он адназначна=) на пуст и не имеет пустых значений
@s = sort @activ;
print "Сортированный -- \n";
print "$_ \n" foreach @s;
print "Не сортированный -- \n";
print "$_ \n" foreach @activ;

Ответ - Сортированный -- 1 9 3 Не сортированный -- 1 9 3

Я просто не знаю - в чем проблема?
Посмотрите на мой скрипт пожалуйста!!!

С уважением z3f.

ЗЫ - сервер FreeBSD 4.7 -- perl - вчера выкачал и поставил -- apache - месяц назад ставил... все - рабочее... может здесь проблема?


  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "Ерунда какая-то с сортировкой=("
Сообщение от alchie Искать по авторуВ закладки(ok) on 07-Апр-04, 04:48  (MSK)
bash-2.05b$ perl -e '@act=qw(1 9 3); @s=sort @act; print join ",",@s; print"\n"; print join ",",@act; print "\n"'
1,3,9
1,9,3

bash-2.05b$ uname -sr
FreeBSD 4.7-STABLE

  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Ерунда какая-то с сортировкой=("
Сообщение от alchie Искать по авторуВ закладки(ok) on 07-Апр-04, 04:52  (MSK)
>bash-2.05b$ perl -e '@act=qw(1 9 3); @s=sort @act; print join ",",@s; print"\n";
>print join ",",@act; print "\n"'
>1,3,9
>1,9,3
>
>bash-2.05b$ uname -sr
>FreeBSD 4.7-STABLE


bash-2.05b$ cat 1
@activ=qw(1 9 3);
@s = sort @activ;
print "Сортированный -- \n";
print "$_ \n" foreach @s;
print "Не сортированный -- \n";
print "$_ \n" foreach @activ;


bash-2.05b$ perl 1
Сортированный --
1
3
9
Не сортированный --
1
9
3

  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру