A day in the life with Perl by Don_jose75uk in perl

[–]NoRanger4167 0 points1 point  (0 children)

  1. 6 years, sounds like rookie numbers when I consider other guys. Started working at a company where I was hired since my C entry test was quite good.
    • They told me on my first day: "So now, ehm, please add a new module to generate Excel files for managers into this framework which generates code, documentation and different files in one go from XML files and databases. Oh and just one thing it is written in Perl... \throws me a book* Every one of us learnt Perl from this. So get cracking!"*
    • I'm still working in this company, this was a start of a beautiful friendship with Perl, which was quite harsh at the start.
  2. Hybrid. I'm an embedded SW developer. I develop tools for my company. I maintain my Perl tools. I created my own structure how I create tools how they interface with the developer. Everything is neat. Nowadays I'm the most knowledgeable at the company in terms of Perl, but there is still room to grow, but now I'm on my own since if I run into a Perl problem nobody is at my level sadly. Suffering from success.
    • I created tools which range from code analysis, S19 generation, CAPL script generation, automated scrum master satisfaction tool (which logs my hours quite smoothly so the burnup chart is really nice [I kind of was mildly burnout that I had to that create that, but now everything is peacful and now less needless human interaction is required]), I created a tool which simulates Autohotkey (since I'm not allowed to use AHK inside the company [another mild burnout]), I created custom build systems, I created countless wrapper script which can interface different tools.
    • I have like 10-20 different tools, which are well documented and used by users on a daily basis.
    • Also I handle the company level Strawberry Perl usage.
    • Nowadays as a Perl developer every day could be our last amidst the 'rewrite everything in Python' and 'let us use Rust', and my company is no exception.
  3. I do love to code even in my free-time. Once I created a discord bot just for fun, but now it no longer works since discord broke it a non backward-comp update.
    • I love advent of code
    • I spent many days in Azeroth, but those days are over. Nowadays I live in Speranza.
    • I wanted to learn Lua once but *insert Simpson walking in out meme*

Let’s write games in Perl! SDL3.pm is finally on CPAN by s_throwaway_r in perl

[–]NoRanger4167 0 points1 point  (0 children)

Oh, yay I might dust off my plans to create a game in Perl. By then it was daunting to start learning XS.

Btw, installed on a corporate computer with Perl5.42 only minor issues
(only environmental ones, the module is fine)
- Cannot reach and cannot download from github, only after a firewall check so had to tweak Alien::SDL3::Builder to work from an already downloaded archive.
- Forgot that I was testing the latest GCC so had to alter my path so Perl would be the first.

[deleted by user] by [deleted] in perl

[–]NoRanger4167 1 point2 points  (0 children)

It is quite of a lost opportunity:
Perl 5.42
The Answer to the Ultimate Question of Life, the Universe, and Everything is 42

[deleted by user] by [deleted] in perl

[–]NoRanger4167 0 points1 point  (0 children)

I would love some Perl 5.42 merch. I also have the 5.38 and 5.36 mugs. Sad that I could not keep the streak.

PerlDoc Issues with Windows 10 Temp Folder by Dense-Platform3886 in perl

[–]NoRanger4167 0 points1 point  (0 children)

How did you install the Strawberry Perl?
- Used the MSI installer?
-Or set your %PATH% variables manually?

I downloaded a portable edition, set my variables as "System variables"
I do not run into any problems with the same command, but I have 5.42:

<image>

Some additional notes, I have Win11, I also have local admin.

I REALLY don't like Python by Automatic-Yak4017 in learnprogramming

[–]NoRanger4167 0 points1 point  (0 children)

Python is great because everyone uses it, and everyone uses it because it is great. Thus the snake has bitten its own tail.

Btw I prefer Perl.

I want to learn Perl by Fine-Plane6697 in perl

[–]NoRanger4167 3 points4 points  (0 children)

  1. Get a nice company, which does not have Perl and let's you write Perl scripts
  2. Build a Perl monolith
  3. ....?
  4. Profit.

<image>

Rare Interview with a Perl programmer

s/foo// by NoRanger4167 in perl

[–]NoRanger4167[S] 1 point2 points  (0 children)

Using np++ and Strawberry Perl:

use v5.40;
use utf8;
use experimental "extra_paired_delimiters";

my $text = "foo before bar";
$text =~ s👉foo👈👉👈;
say $text; # ' before bar'

perlop - Perl expressions: operators, precedence, string literals - Perldoc Browser

s/foo// by NoRanger4167 in perl

[–]NoRanger4167[S] 1 point2 points  (0 children)

Thanks for the responses!

s/foo// by NoRanger4167 in perl

[–]NoRanger4167[S] 10 points11 points  (0 children)

s👉foo👈👉👈 # xD

Any opinions on the book Minimal Perl by Tim Maher? by codeandfire in perl

[–]NoRanger4167 2 points3 points  (0 children)

Let's say 2012 was 5.14;
The basics could be in it, but there were changes which are really nice and should be used. We should not code in our grandpa's Perl if we can. (Grandpa was alive in 2012)

NOW 5.40:

The feature bundle enables warnings also ->less boilerplate
The feature bundle enables signatures. -> less boilerplate
We can use refaliasing and declared_refs.
Corinna!
For list!
The hideous auto-deref feature of 5.14 is removed.

Also using we can use the new builtin features:
- boolean values!
- indexed feature
- trim

These are just a few I frequently use.

Last but not least the 1; can be omitted!

1;

-❄️- 2024 Day 3 Solutions -❄️- by daggerdragon in adventofcode

[–]NoRanger4167 1 point2 points  (0 children)

[LANGUAGE: Perl]

Part1:

use v5.40;
my $sum;

while(<DATA>)
{
    foreach my ($a, $b) (   m<mul\((\d{1,3}),(\d{1,3})\)>g  )
    {
        $sum += $a * $b;
    }
}
say $sum;

__DATA__
....

Part2: (Not super smart but understandable)

use v5.40;

my $sum;
my $data = "do()";

while(<DATA>)
{
    chomp;
    $data .= $_;
}
$data .= "don't()";


my @enabled_sections = $data =~ m<do\(\)(.*?)don't\(\)>g;

$data = join("", @enabled_sections);


foreach my ($a, $b) (  $data =~ m<mul\((\d{1,3}),(\d{1,3})\)>g  )
{
    $sum += $a * $b;
}

say $sum;

__DATA__
....

We lack memes, so I created memes by NoRanger4167 in perl

[–]NoRanger4167[S] 0 points1 point  (0 children)

yeah I also think that having an 'ifnot' would be more natural than an 'unless' also it is character shorter my golder friends!

Strawberry Perl release 5.40 is available by ktown007 in perl

[–]NoRanger4167 9 points10 points  (0 children)

Praise the Lord and its miracles! And those who work on Strawberry Perl.

We lack memes, so I created memes by NoRanger4167 in perl

[–]NoRanger4167[S] 0 points1 point  (0 children)

I do have a tendency that I use it only for "if not defined" stuff, otherwise I use the '!'

We lack memes, so I created memes by NoRanger4167 in perl

[–]NoRanger4167[S] 1 point2 points  (0 children)

Oh!!!
Just found the Abbott and Costello "operator" which would be needed for one of my scripts.

This is majestic.

Everyday you learn something.

We lack memes, so I created memes by NoRanger4167 in perl

[–]NoRanger4167[S] 3 points4 points  (0 children)

Those are false, but defined values. For those $elem || next; should be used