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

    +3

    1. 1
    print for <>

    Базовая функциональность программы cat на perl. Кто короче?
    (только возможности самого языка без exec и подобных, шеллы вне олимпиады)

    Запостил: Elvenfighter, 24 Сентября 2017

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

    • Конкатенация работает: cat.pl file1 file2
      Читание из Stdin: cat.pl < file1
      Ответить
    • > шеллы вне олимпиады
      > perl
      Ответить
      • Willst du meine große Gurke lecken?
        Ответить
      • echo /usr/bin/perl | sudo tee -a /etc/shells
        sudo usermod -s /usr/bin/perl $USER


        Давай-давай, я посмотрю. Для тренировки можешь начать с perlconsole
        Ответить
        • Can't locate object method "ls" via package "ls" (perhaps you forgot to load "asd"?) at - line 1.

          ПИДАР КАК ВИРНУТЬ ВСЕ ОбРАТНА?1
          Ответить
      • перл ненужное прыщеговно для красноглазых шкриптоблядей!!!1
        Ответить
        • А Питон?
          Ответить
          • А на него ходят.
            Ответить
            • Куда пропадал, гост?
              Ответить
              • Так ведь нелюди поганые, басурмане проклятые, нехристи окаянные и мужеложцы богопротивные Говнокодик до комы довели. А уютный форум и того раньше лёг.
                Ответить
                • Это фристайл?
                  Ответить
                  • Freestyler
                    Rock the microphone
                    Carry on with the freestyler
                    Yeah, straight from the top of my dome
                    As I rock, rock, rock, rock, rock the microphone
                    Yeah, straight from the top of my dome
                    As I rock, rock, rock, rock, rock the microphone
                    Yeah, straight from the top of my dome
                    As I rock, rock, rock, rock, rock the microphone
                    Yeah, straight from the top of my dome
                    As I rock, rock, rock, rock, rock the microphone
                    Ответить
                  • раки маки фу
                    дддддристайло
                    Ответить
        • Поддерживаю
          Ответить
        • Именно поэтому я за «Перл».
          Ответить
          • люблю перл

            я так считаю, что если кто перл не осилил -- тот тупой ослоеб, и тому в программировании делать нечего
            Ответить
    • Сэкономил 2 байта сорца, схавал >9000 памяти.
      seq 100500 | memusage perl -e '() for <>'
      seq 100500 | memusage perl -e '() while <>'
      Ответить
      • for <> весь поток сначала затянет в память, а while <> - нет?
        Ответить
        • Да, for даёт списковый контекст, и в нём ромбик возвращает все строки разом. А во while <> будет выдавать по одной.
          Ответить
      • Вот поэтому на Perl пишут однострочниками
        Ответить
      • да, для фора как-то малоков больше вызвано и куча силнее нагнута

        збс тула memusage кстати, чому мне она ранейше була незнайома?
        Ответить
    • perl -pe0 <file_1> ... <file_n>
      Ответить
    • *ткнул в случайный яп на вики в разделе бесполезного говна*
      *форкнул заброшенный гитхаб / втёрся в доверие к разрабу*
      *запилил правило "пустая программа -> работать аки кат согласно позикс"*
      *победная кружка чаю*
      Ответить
      • Как выяснилось когда-то такой мыслью уже ударило в мозг разработчиков sed (тогда еще даже не по-хипстерски "концептуально нового" ЯП, а stream editor)
        Ответить
    • awk:
      { print }
      Ответить
    • Что делает этот кот?
      Ответить
    • Больше print'ов богу <>!
      Ответить
    • Базовая функциональность программы true на Perl:
      Ответить
      • ... а так же на PHP, Python, Ruby, JS, Lua, Bash ... (продолжить список скриптушни)
        Ответить
        • Но это только базовая функциональность. Так-то /bin/true должна еще суперпознавательный хелп уметь показывать.
          Ответить
          • Там даже одно время баг был с чтением за пределами стекового фрейма...

            Что-то типа printf(argv[0]);
            Ответить
          • Кстати, я вот сейчас пробую в Ubuntu
            > true --help
            и
            > true --version
            , в мане пишут, что он должен выдавать хелп и версию, но он всё равно игнорирует эти аргументы (как и написано в мане), так что ничего не выводится. Так что, возможно, это ВЕСЬ функционал true.
            У кого-то иначе?
            Ответить
          • https://pikabu.ru/
            Ответить
        • https://pikabu.ru/
          Ответить
          • Спасибо, иди нахуй.
            Ответить
            • Спасибо.
              Ответить
            • заметили, что спам прекратился?

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

              Иньё, спасибо!
              Ответить
              • Далеко не весь спам был мой. Я спамил только ради того, чтобы дискредитировать xyz и забанить тебя. Но я тебя уже простил. Надеюсь, урок усвоен.

                Вбросы на стоке и подначивающий спам (видать, кто-то подымает активность) не мои.
                Ответить
                • показать все, что скрытозапоздалый фиксап

                  И постинг на .хуй упал до изначальных двух ватников. Вот это самое главное достижение.

                  На бывшей территории Палермо
                  В заросшем лопухами огороде
                  Они потом якшались все друг с другом
                  И не было в их жизни больше кайфа
                  Ответить
              • показать все, что скрытоДа нет, он продолжает писать, просто никто не читает, т.к. у всех он в игноре.
                Ответить
              • показать все, что скрытоИ постинг на .хуй упал до изначальных двух ватников. Вот это самое главное достижение.

                На бывшей территории Палермо
                В заросшем лопухами огороде
                Они потом ругались все друг с другом,
                И не было в их жизни больше кайфа
                Ответить

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