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

    −91.4

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    sub inet_aton{
  my $n_ip;
  $sth1 = $dbh->prepare("SELECT inet_aton(\"$_[0]\") as inet_aton");
  $sth1->execute();
  while (my $ips = $sth1->fetchrow_hashref()) {
    $n_ip = "$ips->{'inet_aton'}";
  };
  $sth1->finish();
  return $n_ip;
};

    вот так в одном коммерческом продукте получают ip-адрес в виде int'а

    Запостил: Mihard, 17 Сентября 2009

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

    • ava guest 17.09.2009 12:19 # +3

      да, конвертить данные через скуль это модная тема. Ещё через него можно рэндомы генерить :)
      Ответить

      • ava guest6 11.09.2023 00:50 # 0

        ты даже не представляешь ЧТО можно делать через скуль
        https://database.guide/how-to-send-emails-from-sql-server-t-sql/
        Ответить

    • ava poltora 22.09.2009 15:34 # 0

      в каком? страна должна знать своих героев!
      Ответить

    • ava guest 01.10.2009 15:08 # 0

      Щикарна!
      Ответить

    • ava guest 12.12.2009 00:33 # +1

      Реальные пацаны передают IP-адрес в виде XML-параметра в хранимую процедуру . Внутри процедуры вызывается MSXML парсер который разбирает XML и уже потом вызывается inet_aton. Ну и конечно собирать "руками" XML непозволительно. Необходимо использовать библиотеку/модуль/etc c 1001 перделкой и свистелкой.
      Ответить

    • ava guest6 11.09.2023 00:51 # 0

      пыхопидор в моем перле сделал SQL инъекцию
      перловик никогда бы так не сделал


      ну про забивание шурупа мультиметром я шутить не буду
      Ответить

      • ava ropuJIJIa 11.09.2023 01:46 # 0

        Тут нагромождение мультиметров, которые никак не используются:

        1. СУБД ради вызова функции, которая и так есть (или легко может быть реализована) локально.

        2. Подготовленное выражение без аргументов, да ещё и ради одного запроса.

        Годится только ради защиты от тайм-атаки.
        Ответить

        • ava guest6 11.09.2023 02:16 # +1

          в Perl всё, естественно, есть в модуле сокет, и было там последние тридцать лет:
          https://perldoc.perl.org/5.005_04/Socket
          Ответить

          • ava Desktop 11.09.2023 10:56 # 0

            > This module is just a translation of the C socket.h file

            – то есть перлу транслировать сишные сорцы это нормально, а рустне использовать ллвм под капотом нет, да, Пи?!
            Ответить

          • ava Desktop 11.09.2023 10:59 # 0

            и вообще там есть новее

            https://perldoc.perl.org/Socket
            Ответить

    • ava guest6 11.09.2023 01:19 # 0

      Стертор книжку написал
      https://pbs.twimg.com/media/F5rYB9oW0AAvGK1?format=jpg&name=medium
      Ответить

      • ava ropuJIJIa 11.09.2023 01:37 # 0

        Автор книги о семейной гармонии «Как сохранить брак» застрелил свою жену и выложил в Facebook фотографию трупа.

        Дейл Карнеги умер в полном одиночестве.

        Бенжамина Спока его собственные сыновья хотели сдать в дом престарелых.

        М. Монтесори отдала своего сына в приёмную семью, чувствуя, что ее предназначение на этой земле - посвятить себя чужим детям.

        А корейская писательница, автор бестселлеров «Как быть счастливым» повесилась от депрессии.
        Ответить

        • ava guest6 11.09.2023 02:17 # 0

          Китайцы брак продают как будто это секс без обязательств.
          Ответить

          • ava guest6 11.09.2023 02:29 # 0

            Дрочи вприсядку — и поебёшься, и потанцуешь.
            Ответить

            • ava guest6 11.09.2023 02:54 # 0

              Дай дураку хуй стеклянный, так он и хуй разобьет, и руки порежет
              Ответить

        • ava Desktop 11.09.2023 11:41 # 0

          автор руста пишет на пхп
          Ответить

    • ava ropuJIJIa 11.09.2023 01:43 # 0

      Перевёл:

      <?php
function inet_aton() {
  global $dbh;
  $sth1 = $dbh->prepare("SELECT inet_aton(\"" . func_get_arg(0) . "\") as inet_aton");
  $sth1->execute();
  while ($ips = $sth1->fetchrow()) {
    $n_ip = "${ips['inet_aton']}";
  };
  $sth1->close();
  return $n_ip;
};


      Идиоматично?
      Ответить

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