home.social

#perl — Public Fediverse posts

Live and recent posts from across the Fediverse tagged #perl, aggregated by home.social.

fetched live
  1. Data Munging With Perl [2ed]: Techniques for data recognition, parsing, transformation and filtering by Dave Cross is the featured book 📖 on Leanpub!

    "Work in Progress" - Updated with the latest syntax, new CPAN modules and new file formats

    Link: leanpub.com/datamungingwithperl

    #Perl #Data_structures #Software_engineering

  2. German #Perl Workshop 2027 in Hanover - 14.04.2027-16.04.2027

    act.yapc.eu/gpw2027/

  3. Here is one thing that I run in a container:

    @tobsboe has developed this amazing software to deal with conditional independence formally

    cinet.link/

    And it is in #Perl, developed on Linux. So that's a works-on-my-machine situation and with Containers I can basically ship Tobias' machine over and work on it here on my Mac.

  4. Print all the four letter words in the Bible #Perl

    cat kjv.txt | perl -ne 'print map("$_\n", m/\w+/g);' | tr A-Z a-z | sort | uniq | awk 'length($1) == 4 {printf "%s ", $0}'

  5. here's a tool to see how much upload and download a tor snowflake proxy set up using docker has helped people:

    I set it up using docker:
    https://community.torproject.org/relay/setup/snowflake/standalone/docker/

    stats.sh

    #! /usr/bin/bash
    
    docker logs snowflake-proxy 2>&1 | perl -ne '
    if (/there were\s+(\d+)\s+completed successful connections/) {
      $conns += $1;
    }
    
    if (/Traffic Relayed\s+↓\s*([0-9.]+)\s*(KB|MB|GB|TB)/) {
      my ($v,$u)=($1,$2);
      $down += $v * ($u eq "KB" ? 1024 :
                      $u eq "MB" ? 1024*1024 :
                      $u eq "GB" ? 1024*1024*1024 :
                                   1024*1024*1024*1024);
    }
    
    if (/Traffic Relayed.*?↑\s*([0-9.]+)\s*(KB|MB|GB|TB)/) {
      my ($v,$u)=($1,$2);
      $up += $v * ($u eq "KB" ? 1024 :
                    $u eq "MB" ? 1024*1024 :
                    $u eq "GB" ? 1024*1024*1024 :
                                 1024*1024*1024*1024);
    }
    
    END{
      my $gib = 1024*1024*1024;
      printf("\nAll-time Tor Snowflake proxy stats:\n-----------------------------------\n\n");
      printf("Completed successful connections: %d\n", $conns);
      printf("Downloaded for users (↓): %.2f GiB\n", $down/$gib);
      printf("Uploaded for users   (↑): %.2f GiB\n\n", $up/$gib);
    }'


    #docker #perl #tor #snowflake

  6. Hello, fellow hackers,

    I am a #whistleblower and have lost access to computing resources for the time being.

    I have this code repository, almost ready. It forms the basis of a True Democracy. Basically, voters get to collectively make up the government’s budget. Government departments have to work within the budgets set by the people.

    Could someone please clone, tweak, and deploy it to a public website?

    This is a topical solution that will fix many issues we face today.

    gitlab.com/purrperl/peoples-co

    Thank you so much!

    #hack #hacker #HackThePlanet #government #governments #democracy
    #code #software #MutualAidRequest #perl #PerlHacker
    #WebDeveloper #MAGA #democrat #republican #UsPol

  7. Perl Weekly Challenge 387's tasks are "Rearrange Binary String" and "Atoms Count".

    When I saw that one of this week's tasks was counting atoms, I thought "This is a job for PARTICLE MAN!!!"

    #PerlWeeklyChallenge #raku #perl #python #elixir

    packy.dardan.com/b/yD

    Perl Weekly Challenge: Regex M...

  8. Whipping up an interactive, CC filter runner in . :D

  9. So sehr ich die vielfältigen Möglichkeiten von #HomeAssistant schätze, so sehr gehr mit das YAML-Zeugs auf den Keks. Mir fehlt schon irgendwie #perl von #fhem.

  10. Fuck yeah. It's done. ATProto flavor OAuth for #perl - freshly tangled at tangled.org/beardeddutch... and coming to a CPAN mirror near you real damn soon(tm).

    beardeddutchman.services/mojo-...

  11. #Perl @PerlWChallenge 387 Rearrange Binary String and Chemical Formula wlmb.github.io/2026/08/17/PWC3
    #noxp

  12. CW: Perl Weekly Challenge 387T1

    #Perl @PerlWChallenge 387 Task 1: Reverse Base
    #noxp
    ```
    perl -E '
    for(@ARGV){$i=$_; $c=0; ++$c while s/01/10/g; say "$i -> $c"}
    ' 111000 00011 01011 010101 00001
    ```

  13. [$] Bootstrappable builds: how and why

    This year's edition of the Free and Open Source Software Yearly conference, better known as "FOSSY", moved north to the beautiful (and enormous) campus of the University of British [...]

    lwn.net/Articles/1088279/

    #LWN #Linux #Debian #GCC #Rust #Python #Perl #Git

  14. New issue of #Perl Weekly:786 - CPAN Day - perlweekly.com/archive/786.html

    25+ useful and commonly used Regular Expressions
    Pacman in Perl/Tk
    pperl 0.6.12+ - "Shall we play a game?"
    Access / Refresh Token
    PAGI::FastAPI + DBIx::Class::Async
    PAGI::FastAPI + WebSocket
    Punk: Perl MVC, compiled at boot
    MCP - Model Context Protocol in Perl: From Web App to AI Tools - with Dave Cross
    Amsterdam PM bijeenkomst
    Purdue Perl Mongers (HackLafayette) - TBA
    [...]

  15. This is a subtle and interesting #security #vulnerability in the #Perl module HTML::FormHandler.

    An attacker submits two values for the same field, e.g. "u=a&u=b" in Catalyst the form parameter's value is an array reference instead of a string.

    HTML::FormHandler sees this as the wrong type, but includes the value in the error message, which it then feeds to Locale::Maketext to translate into different languages.

    Since the value is an array ref, it's converted to a string ["a","b"] which is a Locale::Maketext template that can run the method "a" on the argument "b".

    lists.security.metacpan.org/cv

  16. Бесшовный переезд с Perl на Nuxt: история одного 20-летнего монолита

    Привет, Хабр! Меня зовут Эрнест Гилязов, я тимлид группы разработки интерфейсов Рунити. В этой статье расскажу, как мы переносим на новый стек проект Рег.ру, кодовой базе которого исполняется 20 лет, и почему в итоге Nuxt-приложение само раздает шапку и футер в легаси-монолит через обычный JSON-эндпоинт.

    habr.com/ru/companies/runity/a

    #Nuxt #Vuejs #SSR #легаси #миграция #Template_Toolkit #Perl #микрофронтенды #серверный_рендеринг #Vite

  17. Perl Weekly Challenge 386's tasks are "Reverse Base" and "Rational Numbers".

    I figured, since both tasks are all about Algebra, we should listen to some Tom Lehrer.

    #PerlWeeklyChallenge #raku #perl #python #elixir

    Perl Weekly Challenge: We’re T...

  18. Spent a productive hour diagnosing a test failure that I had reported back in December through the . When the module's author asked me for help I marked his email as important, and then Christmas happened and it got lost in my mailbox. Anyway, diagnosis: one of the dependencies was buggy, and has already been fixed so the author should just update the dependency version.