Skip to content

A placeholder module for code accompanying a Perl photo project

Notifications You must be signed in to change notification settings

leejo/acme-glue

Folders and files

NameName
Last commit message
Last commit date

Latest commit

 

History

23 Commits
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Repository files navigation

NAME

Acme::Glue - A placeholder module for code accompanying a Perl photo project

VERSION

2024.12

DESCRIPTION

Acme::Glue is the companion Perl module for a Perl photo project, the idea for the photo project is to have each photo include a small snippet of code. The code does not have to be Perl, it just has to be something you're quite fond of for whatever reason.

"Glue" is a series of photos shot at Perl conferences and workshops in Europe and America. Perl was one of the programming languages that bootstrapped a lot of internet based companies in the mid/late 1990s and early 2000s. Perl was considered a “glue” language by some, but has fallen out of favour as newer languages have taken its place. The title is a metaphor not just for the language but also for shrinking of the community at the events the photos are shot at.

SNIPPETS

Here are the snippets that may accompany the photo project

LEEJO (transform.pl)

#!/usr/bin/env perl
#
# transform an array of hashes into an array of arrays where each array
# contains the values from the hash sorted by the original hash keys or
# the passed order of columns (hash slicing)
my @ordered = $column_order
    ? map { [ @$_{ @{ $column_order } } ] } @{ $chaos }
    : map { [ @$_{sort keys %$_} ] } @{ $chaos };

LEEJO (hopscotch.p6)

#!/usr/bin/env perl6

my @court = (
    [ 'FIN' ],
    [ 9 ,10 ],
    [   8   ],
    [ 6 , 7 ],
    [   5   ],
    [   4   ],
    [ 2 , 3 ],
    [   1   ],
);

my $skip = @court.[1..*].pick.pick;
my @play;

for @court.reverse -> $hop {
    @play.push( $hop.map( *.subst( /^$skip$/,'🚫' ).list ) );
}

say @play.reverse.join( "\n" );

LEEJO (vec and pack examples from perldoc vec)

#!/usr/bin/env perl -wl

print <<'EOT';
                                  0         1         2         3
                   unpack("V",$_) 01234567890123456789012345678901
------------------------------------------------------------------
EOT

for $w (0..3) {
    $width = 2**$w;
    for ($shift=0; $shift < $width; ++$shift) {
        for ($off=0; $off < 32/$width; ++$off) {
            $str = pack("B*", "0"x32);
            $bits = (1<<$shift);
            vec($str, $off, $width) = $bits;
            $res = unpack("b*",$str);
            $val = unpack("V", $str);
            write;
        }
    }
}

format STDOUT =
vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$off, $width, $bits, $val, $res
.
__END__

LEEJO (example from "How Perl Saved the Human Genome Project" complete with syntax error)

use Boulder::Stream; 
$stream = new Boulder::Stream; 
while ($record=$stream->read_record('NAME','SEQUENCE')) {
    $name = $record->get('NAME'); 
    $sequence = $record->get('SEQUENCE'); 

    ...continue processing...

    $record->add(QUALITY_CHECK=>"OK|); 
    $stream->write_record($record); 
} 

LEEJO (quine - a program that prints itself out)

$_=q(print"\$_=q($_);eval;");eval;

LEEJO (perl5 LOC count as of 5.38 release)

% git branch
* blead
% find . -name "*.[ch]" | xargs wc -l | sort -nr | head -n5
  788279 total
  436086 ./charclass_invlists.h
   17540 ./sv.c
   16254 ./regcomp.c
   15712 ./op.c

LEEJO (fizz_buzz.pl generated from an "AI"; it's wrong in so many ways, it doesn't even compile)

    # Define a function that takes two arguments (starting number and ending number)
    sub fizz_buzz {

            # Initialize variables for counting and ending values
            my $count   = 0;
            my @results = ();

            # Loop through numbers between starting and ending values
            for my $i ( $starting .. $ending ) {

                    # Check if current number is divisible by any of these factors: 15, 3 or itself
                    foreach my $factor ( @factors ) {
                            next unless $_  * $i == $i;
                            push( @{ $results[$factor] },"$i" );
                    }
                    else {
                            push( @{ $results[0] },"$i" );
                    }

                    $count++;
            }

            return \@results;
    }

    # Define arrays containing factors to check for each result type
    my %fizz = ( 15 );
    my %buzz = ( 3 );
    my %self = ( 0 );

    # Call the fizz_buzz subroutine with appropriate parameters
    print Dumper( \@result );

LEEJO (snippet from obs-studio/libobs/obs.c)

    static void stop_audio(void)
    {
            struct obs_core_audio *audio = &obs->audio;

            if (audio->audio) {
                    audio_output_close(audio->audio);
                    audio->audio = NULL;
            }
    }

LEEJO (only compiles on a Friday)

# general idea shamelessly stolen from Randal L. Schwartz:
# https://www.perlmonks.org/index.pl?node_id=44722

use Time::Piece;

BEGIN {
    *f = (localtime->wdayname eq 'Fri')
        ? sub() {}
        : sub {};
}

f/1;#/+

MIKESTOK (soundex "joke")

sub Soundex
{
  local ($_, $f) = shift;

  y;a-z;A-Z;;y;A-Z;;cd;$_ ne q???do{($f)=m;^(.);;s;$f+;;;
  y;AEHIOUWYBFPVCGJKQSXZDTLMNR;00000000111122222222334556;;
  y;;;cs;y;0;;d;s;^;$f;;s;$;0000;;m;(^.{4});;$1;}:q;;;
}

NERDVANA (delorean_ options.pl)

GetOptions(
    'help|h|?'       => sub { pod2usage(1) },
    'serial-dev|d=s' => \my $opt_serial_dev= '/dev/delorean',
    'socket|S=s'     => \my $opt_socket= '/run/uctl-daemon.sock',
) or pod2usage(2);

SLU (MAZE.BAS)

10 PRINT CHR$(205.5+RND(1));:GOTO 10

SLU (schwartzian_transform.pl)

#!/usr/bin/env perl
# https://en.wikipedia.org/wiki/Schwartzian_transform
# Sort list of words according to word length

print "$_\n" foreach
  map  { $_->[0] }
  sort { $a->[1] <=> $b->[1] or $a->[0] cmp $b->[0] }
  map  { [$_, length($_)] }
  qw(demo of schwartzian transform);

LIST OF WORKSHOPS / CONFERENCES

A full list of the workshops and conferences this project was shot at

  • Alpine Perl Workshop (2016)
  • FOSDEM (2024)
  • German Perl Workshop (2019)
  • German Perl and Raku Workshop (2022, 2023, 2024)
  • Les Journées Perl (2017, 2019)
  • London Perl Workshop (2015, 2016, 2019)
  • PerlCon (2019)
  • Swiss Perl Workshop (2015, 2017, 2018, 2019)
  • The Perl Conference [EU] (2017, 2018)
  • The Perl Conference [NA] (2016, 2017)
  • The Perl Toolchain Summit (2017)
  • The Perl and Raku Conference [NA] (2023, 2024)
  • Yet Another Perl Conference [EU] (2015, 2016)

THANKS

Thanks to all who contributed a snippet

SEE ALSO

https://www.formulanon.com/glue

https://www.youtube.com/watch?v=OXcHLAL_luU

https://leejo.github.io/acme-glue-talk/presentation.html#1

AUTHOR

Lee Johnson - leejo@cpan.org

LICENCE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. If you would like to contribute documentation, features, bug fixes, or anything else then please raise an issue / pull request:

https://github.com/leejo/acme-glue

All photos © Lee Johnson

About

A placeholder module for code accompanying a Perl photo project

Resources

Stars

Watchers

Forks

Packages

No packages published