Овощи-фрукты... Хэш хэшей

[shoorick]

0. Почему-то когда надо придумать первые попавшиеся три строки для тестирования чего-либо, вспоминаются apple, banana и cucumber...

1. Двумерный хэш:

#!/usr/bin/perl

# Хэш хэшей

%fruit =
(
 'apple' =>
 { 'color' => 'red', 'form' => 'ball', 'softness' => 'hard' },
 'banana' =>
 { 'color' => 'yellow', 'form' => 'cylinder', 'softness' => 'soft'},
 'cucumber' =>
 {'color' => 'green', 'form' => 'cylinder', 'softness' => 'hard'}
);

foreach $fr (keys(%fruit))      # Цикл по фруктам
{
 print "\n$fr:\n";
 foreach $pr (keys(%{$fruit{$fr}}))     # Цикл по свойствам
 {
  print "\t$pr - $fruit{$fr}{$pr}\n";
 }
}

print "\nЦвет огурца - ", $fruit{cucumber}{color};

Comments

[porutchik.livejournal.com]

а мне, как настоящему линуксоиду, придумывается foo, bar, baz... :-)

Дык

[shoorick.livejournal.com]

А я не настоящий линуксоид.
Более того, я, обленившись цепляться к юниксовым серверам, водрузил перл+апач+пхп+мускл на свою виндузовую машину...

[ping8.livejournal.com]

Да ничего такого не вспоминается %)

while (($a,$b)=each %fruit) {
   print "\n$a:\n", map { "$_ - $b->{$_}\n" } keys %$b;
}

гы %)

[gour.livejournal.com]

есть в этом что-то до боли знакомое =)

Таки да

[shoorick.livejournal.com]

О! Точно...

Блин! Стоило вместо перла пописáть чуток на пхп — сразу мозги заплесневели...

[ex-unexy646.livejournal.com]

body:alice, bob,
particle: electron, proton,
charm: strange, up, down, beauty
ну и братья Foo и Bar само собой

[master-m.livejournal.com]

Шо - только мне одному что ль придумывается фраза "FUCK OFF"? Наверное это не нормально...

[mikkka.livejournal.com]

дада. цилиндрические огурцы и бонаны. дада.

Дык

[shoorick.livejournal.com]

Я вначале вообще написал, что $fruit{banana}{form} == 'sickel', а потом решил не выёживаться...

[sappa.livejournal.com]

1. не используется ни use strict ни -w/use warnings
2. не объявляются переменные
3. в качестве индексов хэша используются barewords
4. стиль написания скрипта абсволютно не соответствует рекомендованному в perldoc perlstyle

вывод, работать будет, но людям показывать такое нельзя. Да и самому лучше не приучаться, даже если никто не видит. Потом трудно будет переключиться из режима "пишу для разового исполнения, лишь бы работало" в режим "пишу для командного проекта". Это на самом деле большая проблема, трудно людей набивших руку на плохо стилизованных скриптах заставить работать над цельным проектом так, чтоб проект не выглядел лоскутным одеялом и никто не путался в чужом коде. Пренебрежение же use strict и использование barewords часто приводит к чрезвычайно трудноуловимым ошибкам, на поиск которых тратится несравнимо больше времени чем на то, чтобы изначально писать хорошо.

[porutchik.livejournal.com]

афтар, выпей йаду

[sappa.livejournal.com]

Извините, молодой человек, мне давно уже не 18 и я не понимаю этих Ваших молодежных приколов. У Вас есть что сказать по существу?

Ух!

[shoorick.livejournal.com]

Сурьёзно приложил! :-)
Подумаем/учтём...

Итого через десять лет

[shoorick.livejournal.com]

Сейчас:

1. Сразу пишу, используя strict и warnings;
2. Объявляю переменные;
3. Не использую bare words;
4. Следую написанному в perldoc perlstyle и в Perl Best Practices.

Re: Итого через десять лет

[sappa.livejournal.com]

:)