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.cLEEJO (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 10SLU (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-glueAll photos © Lee Johnson