VPF::Динамический вывод на экран содержания массива

Ismoilzoda

Дата 13.8.2009, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.8.2009

Репутация: нет
Всего: нет

Приветствую друзья!

Стоит задача о динамическом выводе информации хоронящихся в массиве, привожу пример:

есть

my @array = ();

$array[0] = "AAA";
$array[1] = "BBB";
$array[2] = "CCC";

$message = @array;

print "$message";

т.е при каждом print , на экран печатался один из элементов массива, что то типа динамики.
Не судите строго пожалуйста, я сам только начинаю программировать.
Заранее благодарен.

gcc

Дата 13.8.2009, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: нет
Всего: 17

легче всего так:

Код


print "@array \n";

или

Код


print "@array \n\n";

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

Ismoilzoda

Дата 13.8.2009, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.8.2009

Репутация: нет
Всего: нет

Цитата(gcc @ 13.8.2009, 10:08)

легче всего так:

Код


print "@array \n";

или

Код


print "@array \n\n";

Но так выводится на экран все три элемента

./test.pl
AAA BBB CCC

а нужно что бы при каждом выполнении скрипта, выводился один элемент, и так далее по очереди или хаотична.

shamber

Дата 13.8.2009, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 1
Всего: 18

Код


my $i = 2; #(или что-то динамическое)

print $array[$i];

ginnie

Дата 13.8.2009, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 6
Всего: 49

предложу

Код


print $array[rand(@array)], $/;

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

amg

Дата 13.8.2009, 16:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 9
Всего: 50

Цитата(Ismoilzoda @ 13.8.2009, 09:50

)

т.е при каждом print , на экран печатался один из элементов массива, что то типа динамики.

Может, сгодится что-то вроде

Код

my @array = qw(AAA BBB CCC);
print next_element(@array);
print next_element(@array);
print next_element(@array);
print next_element(@array);

INIT {
  my $i = 0;
  sub next_element {
    return undef if $i > $#_;
    $_[$i++];
  }
}

Это сообщение отредактировал(а) amg - 13.8.2009, 16:38

KSURi

Дата 13.8.2009, 17:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 5
Всего: 27

A зачем INIT {} ?

Добавлено через 2 минуты и 42 секунды
Я, кстати, так и не понял, что требуется(

--------------------

Died at Life.pl line 21

amg

Дата 13.8.2009, 19:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 9
Всего: 50

Цитата(KSURi @ 13.8.2009, 17:19

)

A зачем INIT {} ?

Без INIT, если блок с закрытой переменной и подпрограммой расположен после вызова подпрограммы, будет предупреждение на использование неинициализированной переменной в сравнении.

KSURi

Дата 13.8.2009, 22:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 5
Всего: 27

А, я просто не сразу понял, что это вы так изобразили объявление

Код


my @array = qw(AAA BBB CCC);
my $i = 0;

...

--------------------

Died at Life.pl line 21

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »