VPF::перебор хэш массова в объекте - Форум программистов

gcc

Дата 27.12.2008, 08:24 (ссылка)

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

Загрузка ...

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

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

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

Код


my %p = $query->Vars;

в %p пепедается массив fDomains из html, он есть, если посмотреть через Data::Dumper

Код


dumper ($self->{p}->{fDomains});

Код


'fDomains' => '2sdfsdf3sdf.org.ua�3dfgsdfdg.org.ua'

данный код не работает (элементы не выводяться и exit не срабатывает):

Код


foreach $item (@{$self->{p}->{fDomains}}) { 
             print $item;
             exit;
}

найти как сделать не смог
надо что-то добавить?

Это сообщение отредактировал(а) gcc - 27.12.2008, 13:27

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

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

gcc

Дата 27.12.2008, 09:55 (ссылка)

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

Загрузка ...

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

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

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

Код

�

что это за знак, по-моиму он не должен быть?

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

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

KSURi

Дата 27.12.2008, 11:09 (ссылка)

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

Загрузка ...

Опытный

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

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

perldoc -f split

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

Died at Life.pl line 21

gcc

Дата 27.12.2008, 11:23 (ссылка)

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

Загрузка ...

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

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

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

спасибо, нашел только что

Цитата

Создавть хеш массивов, где ключем будет буква, а значением будет массив из строк спецзаданий.

Код


for $k(sort keys %ha){print "<a href=\"#$k\">$k[/url] "}

Цитата

Вывести линейку начальных букв, по которым будут сортироваться результаты.

Код


for $k(sort keys %ha){
  print "<a name=\"$k\"> [/url]
\n";
  foreach $im(@{$ha{$k}}){
    ($autor, $pesniya, $position)=split /#/, $im;
    print "$autor, $pesniya, $position
\n";
  }
}

Цитата

Вывести массивы, ассоциированные со значениями ключей букв. @{$ha{$k}} - просто обычный массив, доступ к которому зависит от значения ключа $k. Каждый элемент массива стостоит из строки с разделителями #, по нему и разделяет функция split ($autor, $pesniya, $position)=split /#/, $im;

поробовал сделать так:

Код


              my $item;
                foreach $item (@{$self->{p}->{fDomains}}) { 
               my ($autor)=split /#/, $item;
               print $autor;
 
            # print $item;
             exit;

тоже самое не работает, то есть exit не срабатывает

так, тоже не работает:

Код


             for $self->{p}->{fDomains} (sort keys $self->{p}) {
              my $item;
                foreach $item (@{$self->{p}->{fDomains}}) { 
               my ($autor)=split /#/, $item;
               print $autor;
              # print $item;
             exit;

подправте как сделать?

Добавлено @ 11:24

Цитата(KSURi @ 27.12.2008, 11:09)

perldoc -f split

какую переменную надо ставить в split? если внутри блока for и foreach ничего не видно? даже exit не рабатывает...

Код


    ($autor,)=split /#/, $im;

Это сообщение отредактировал(а) gcc - 27.12.2008, 11:39

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

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

gcc

Дата 27.12.2008, 11:40 (ссылка)

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

Загрузка ...

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

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

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

а что это за знак �?

Код


               my ($autor) = split /�/, @{$self->{p}->{fDomains}};
               print $autor;
               exit;

Код


               my ($autor) = split /#/, @{$self->{p}->{fDomains}};
               print $autor;
               exit;

вывод:

Код


print join '', @{$self->{p}->{fDomains}};

не выводиться

Это сообщение отредактировал(а) gcc - 27.12.2008, 11:52

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

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

gcc

Дата 27.12.2008, 13:26 (ссылка)

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

Загрузка ...

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

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

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

Код


@foo = split("\0",$params->{'foo'});

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

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

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