VPF::[PHP->Perl] Перевести инициализацию массива

sergejzr

Дата 26.3.2007, 19:55 (ссылка)

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

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

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

Код


$vermarkter = array (
    "vermarkter1" => array (
        'anteil' => 10,
        'cnt' => "http://vermarkter1.de/getcode.js"
    ),
    "vermarkter2" => array (
        'anteil' => 20,
        'cnt' => "http://vermarkter2.de/getcode.js"
    ),
    "vermarkter3" => array (
        'cnt' => 30,
        'URL' => "http://vermarkter3.de/getcode.js"
    ),
    "vermarkter4" => array (
        'cnt' => 20,
        'URL' => "http://vermarkter4.de/getcode.js"
    ),
    
);

    $sum = 0;
    foreach ($vermarkter as $name => $data) {
        $sum += $data['cnt'];
        print $name."=>".$sum;
    }

Как мне это написать на Perl?

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

Me.
FB.
LinkedIn.
ORCID.
YT.

JAPH

Дата 26.3.2007, 21:14 (ссылка)

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

Загрузка ...

Опытный

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

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

Вроде, оно?

Код

%vermarkter = ( #Хэш
    "vermarkter1" => { #Ссылок на хэш
        'anteil' => 10,    
        'cnt' => "http://vermarkter1.de/getcode.js"    #Это-то в числовом сложении в строке 22?
    },    
    "vermarkter2" => {
        'anteil' => 20,    
        'cnt' => "http://vermarkter2.de/getcode.js"    # И это? Точно вы это имеете в виду?
    },    
    "vermarkter3" => {
        'cnt' => 30,    #Ну так уже лучше.
        'URL' => "http://vermarkter3.de/getcode.js"    
    },    
    "vermarkter4" => {
        'cnt' => 20,    
        'URL' => "http://vermarkter4.de/getcode.js"    
    },    
     
);    
    $sum = 0;    
    foreach $name(keys %vermarkter) {    
        $sum += $vermarkter{$name}{'cnt'};    
        print $name."=>".$sum;    
    }

Или проход по хэшу (траверзацию? - что это?) сделать так:

Код


    $sum = 0;    
    while (($name, $data) = each %vermarkter) {    
        $sum += $$data{'cnt'};    
        print $name."=>".$sum;    
    }

Это сообщение отредактировал(а) JAPH - 26.3.2007, 21:30

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

Что непонятно - спрашиваем smile

sergejzr

Дата 27.3.2007, 13:10 (ссылка)

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

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

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

Спасибо, что надо! smile

А с числами - это другая заморочка была smile

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

Me.
FB.
LinkedIn.
ORCID.
YT.

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