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

    −123

    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
    sub check_interface
{
	my $int_input = shift;
	my $all_intr_local = [];
	$_ = qx[ip a];
	s[\d{1,}:[ ]{1,}([^ ]{1,}):.*]<unshift(@$all_intr_local, $1)>ge;
	if ( ! grep( { /^$config_params{$int_input}$/ } @$all_intr_local ))
	{
		$warning->debug("Error: interface $int_input can't found local!!!");
		exit 1;         
	}
	else
	{
		$info->debug("Load param $int_input = $config_params{$int_input}.");   
	}
}

    А вот так мы сканируем сетевые интерфейсы...

    Запостил: SadKo, 21 Февраля 2011

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

    • ava Dummy00001 21.02.2011 18:52 # +5 

      $warning->debug("Error: interface $int_input can't found local!!!");


      warning? debug? error? can't found?

      весьма читабельный код ;)
      Ответить

    • ava Анонимус 21.02.2011 23:42 # +2

      $notice->warning("INFO: Fatal Error found while ..."
      Ответить

      • ava guest 21.02.2011 23:51 # +3

        $warning->debug("INFO: Fatal Error can't foundl!!!");
        Не найден, но есть.)
        Ответить

        • ava SadKo 22.02.2011 00:12 # +1

          Такое чувство, что эта строчка скоро станет мемом :).
          Хотя да, она реально доставляет.
          Ответить

        • ava Lure Of Chaos 22.02.2011 00:19 # +2

          can't foundl тоже доставляет, это высокий штиль
          Ответить

          • ava SadKo 22.02.2011 00:21 # 0

            Ладно, завтра ещё поковыряюсь, ещё выражений найду весёлых. Они там были, точно помню.
            Ответить

            • ava roskomgovno 24.07.2018 04:46 # 0

              Да вроде завтра уже наступило, удалось что-нить найти?
              Ответить

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