Hello perlmonks. I am hosting a website and for that purpose i want to make some animated gifs. I have downloaded the module GD but it gives the following error:

libgd 2.0.33 or higher required for animated GIF support at C:\gd.pl line 7.

I downloaded it again to make sure i have the right version, and i get the following message:

GD is up to date. (2.83).

It seems to me i have the right version but i am relatively new to perl. I have been looking on the internet but am unable to find an answer, therefore i seek your help. If you cannot help me i will have to find some other way to make some animated gifs. Thank you.

I use this to process s-expressions with Marpa::R2:

my $DSL = <<'DSL';
:default ::= action => ::first
lexeme default = latm => 1

start ::= sexp

sexp ::= list
       | atom

list ::= LPAREN elements RPAREN action => Sexp::Tiny::Actions::do_list
elements ::= element* action => Sexp::Tiny::Actions::do_elements
element ::= sexp

atom ::= string
       | symbol

string ::= DQUOTE string_chars DQUOTE action => Sexp::Tiny::Actions::d
+o_string
         | DQUOTE DQUOTE            action => Sexp::Tiny::Actions::do_
+empty_string

string_chars ::= string_char+ action => Sexp::Tiny::Actions::do_join
string_char  ::= STRCHAR

DQUOTE  ~ '"'
STRCHAR ~ [^"]


symbol ::= symbol_chars action => Sexp::Tiny::Actions::do_symbol
symbol_chars ::= symbol_char+ action => Sexp::Tiny::Actions::do_join
symbol_char  ::= SYMCHAR
SYMCHAR ~ [^()\s"]

LPAREN ~ '('
RPAREN ~ ')'

:discard ~ WS
WS ~ [\s]+

DSL
[download]

Probably awkward and there are certainly better ways, but it works: (i skip the processing part):

karl@pazuzu:~/src/perl/debug/sexp-tiny$ bin/sexp.pl examples/fossil.da
+t                                                                
{  fields => {
              "anonymous"           => "off",
              "canonical-url"       => "https://goethebier.space/fossi
+l/p-acme",
              "crlf-glob"           => "*.bat *.cmd",
              "crnl-glob"           => "",
              "default-user"        => "karl",
              "hash-policy"         => "sha3",              "http-port
+"           => 8081,
              "ignore-glob"         => ["*.o", "*.swp", "*.tmp", ".dir
+env/", "_build/", "_opam/"],
              "localauth"           => "on",
              "max-upload"          => "20MB",              "project-d
+escription" => "Private ACME tooling repository",
              "project-name"        => "p-acme",
              "ssl-ca-location"     => "/etc/ssl/certs",
              "throttle"            => 0,
              "timeline-utc"        => "on",
            },
  type   => "fossil",
}
[download]

But it only works for strings so far:

But not with numbers:

karl@pazuzu:~/src/perl/debug/sexp-tiny$ echo '(acme (x 1))' | bin/sexp
+.pl 
bin/sexp.pl expected (key value...)
[download]

I can only pass them in as string:

karl@pazuzu:~/src/perl/debug/sexp-tiny$ echo '(acme (x "1"))' | bin/se
+xp.pl 
{ fields => { x => 1 }, type => "acme" }
[download]

How must i modify the grammar to handle numbers (float and int)? I didn't find an example yet.

Update:

I'll try to illustrate how i did it:

#!/usr/bin/env perl

use strict;
use warnings;
use lib 'lib';
use Sexp::Tiny::Grammar ();
use Data::Dump          qw(dd);
use Scalar::Util        qw(blessed);

my $src = q{(acme (pi "3.14")(nose "cuke"))};
dd $src;

my $r = Sexp::Tiny::Grammar::build_reader();
dd ref($r);

$r->read( \$src );

my $ast_ref = $r->value;
dd $ast_ref;

sub is_qstr {
    my ($v) = @_;
    return blessed($v) && $v->isa('Sexp::Tiny::String');
}

sub unwrap_qstr {
    my ( $v, $path ) = @_;
    if ( is_qstr($v) ) {
        warn "[unwrap] $path: ", ref($v), qq{ -> plain perl string "},
          $v->value, qq{"\n};
        return $v->value;
    }
    return $v;
}

sub maybe_number {
    my ( $v, $path ) = @_;
    return $v if ref $v;
    if ( defined($v)
        && $v =~ /\A[+-]?(?:\d+(?:\.\d*)?|\.\d+)(?:[eE][+-]?\d+)?\z/ )
    {
        warn "[numify] $path: \"$v\" -> ", 0 + $v, "\n";
        return 0 + $v;
    }
    return $v;
}

sub normalize {
    my ( $node, $path ) = @_;
    $node = unwrap_qstr( $node, $path );
    if ( ref($node) eq 'ARRAY' ) {
        my @out;
        for my $i ( 0 .. $#$node ) {
            push @out, normalize( $node->[$i], "$path\[$i\]" );
        }
        return \@out;
    }
    return maybe_number( $node, $path );
}

my $norm = normalize( $$ast_ref, '$ast' );
dd $norm;
[download]

Looks like it's doing what it's supposed to do:

karl@pazuzu:~/src/perl/sexp-tiny$ leftovers/ex02.pl 
"(acme (pi \"3.14\")(nose \"cuke\"))"
"Sexp::Tiny::Grammar::Reader"
\[
  "acme",
  ["pi", bless(do{\(my $o = 3.14)}, "Sexp::Tiny::String")],
  ["nose", bless(do{\(my $o = "cuke")}, "Sexp::Tiny::String")],
]
[unwrap] $ast[1][1]: Sexp::Tiny::String -> plain perl string "3.14"
[numify] $ast[1][1]: "3.14" -> 3.14
[unwrap] $ast[2][1]: Sexp::Tiny::String -> plain perl string "cuke"
["acme", ["pi", 3.14], ["nose", "cuke"]]
[download]

my $src = q{(acme (pi 3.14)(nose "cuke"))}; works as well.

I am doing a little bit of networking and i am trying to write a script that lets me communicate with servers. I was wondering if it's a good idea to use the module Net::Telnet instaed of working with sockets. If working with sockets directly is the way to go forward is it useful/better to use the built-in socket functions iso using the module IO::Socket::INET, or maybe it is more or less the same? I hope to hear from you, ty.

I have this perl code this uses App::Spec and HTTP::Proxy to act as a forward proxy that handles mTLS requests - https://gitlab.com/infrastructure24/mitmtls/-/blob/main/src/mtlsproxy.sh?ref_type=heads. I'm planning on converting it to a CPAN module named App::Mtlsproxy since I was not able to find anything in CPAN that performs this task with a good CLI interface. The PAUSE documentation recommends posting here before uploading to get feedback. Does this seem like a good thing to upload to CPAN?

This is a project I started working on in late October, before I knew that there's already a rework project in progress, i.e. Taking advantage of E2 improvements

It is an old idea, but got some new life from Ideas for PerlMonks 2.0 (nearly a year ago).

• https://github.com/arunbear/monk_world
• https://github.com/arunbear/monk_world_api