1. Perl / Говнокод #1644

    −55.1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    #Пример раз
	my %parse_hash = (
		$sub_dir       => $dir,
		$sub_style_dir => $style_dir,
		$sub_image_dir => $image_dir
	);


#Пример два
...
elsif ($event eq $Event_View_Par){
  print &ViewPar(%Query);
}
elsif ($event eq $Event_View_All){
  print &ViewPar(%Query);
}
elsif ($event eq $Event_View_Asset){
  print &ViewAsset(%Query);
}

    Пример 1: В качестве ключей хэша переменные, которые определены в другом файле.
    Пример 2: переменные $Event_View* определены в другом, используются только здесь и больше нигде

    И так по всему коду
    Задалбывает всё время переключаться alt-табом на файл, смотреть на определение переменных

    Запостил: Oleg_quadro, 20 Августа 2009

    Комментарии (4) RSS

    • ava Oleg_quadro 20.08.2009 19:32 # 0

      Ах, да таких переменых $Event_View* не 3, а больше.
      Ответить

    • ava guest 08.09.2009 08:49 # 0

      во втором примере - если $Event_View* - это константы - не вижу ничего плохого.
      определение констант в отдельном файле - это, имхо, нормальная практика.
      Ответить

      • ava Suor 16.09.2009 10:03 # 0

        в перле константы задаются не переменными. см use const
        Ответить

        • ava guest 18.09.2009 12:09 # 0

          Константы могут называться и так. См. perldoc Readonly. Причем этот путь рекомендован в PBP. Правда называть их следует в верхнем регистре.
          Ответить

    Добавить комментарий