sub setpixel {
  my ($self, %opts) = @_;

#  $self->_valid_image("setpixel") or return;

  my $color = $opts{color};
  unless (defined $color) {
    $color = $self->{fg};
    defined $color or $color = NC(255, 255, 255);
  }

#  unless (ref $color && UNIVERSAL::isa($color, "Imager::Color")) {
#    unless ($color = _color($color, 'setpixel')) {
#      $self->_set_error("setpixel: " . Imager->errstr);
#      return;
#    }
#  }

  unless (exists $opts{'x'} && exists $opts{'y'}) {
    $self->_set_error('setpixel: missing x or y parameter');
    return;
  }
...
}

sub _valid_image {
  my ($self, $method) = @_;
 
  ref $self
    or return Imager->_set_error("$method needs an image object");
 
  $self->{IMG} && Scalar::Util::blessed($self->{IMG}) and return 1;
 
  my $msg = $self->{IMG} ? "images do not cross threads" : "empty inpu
+t image";
  $msg = "$method: $msg" if $method;
  $self->_set_error($msg);
 
  return;
}
[download]

https://web.archive.org/web/20220930101235/https://metacpan.org/pod/strict

close the wayback popup. Try the hamburger menu (3 lines). Its all so dark. And takes up much space on mobile.

use strict;
use warnings;
use List::Util qw(max sample);
#use lib '/usr/local/share/perl/5.30.0';
#use Statistics::Basic::Stddev; #installs somewhere??
#use Statistics::Basic::StdDev;
use Statistics::Basic qw(:all);
use File::Slurp; #for large list of real randoms

my @rands = read_file('../stats/bytes37Mb.txt');
my ($fertilewomen) = @ARGV;
my @maxxes;
my $cyclelength = 32;
#my $duration = int(rand(1) + 0.5) == 1 ? 4 : 5;
#my $duration = sample 1, (4, 5);
$fertilewomen ||= 48;
#print "duration is $duration\n";
#my @women;

#for (1..100) {
    my @women;

#    for (1..48) {
    for (1..$fertilewomen) {    
#        my $start = int(rand(31) + 0.5);
#        my $start = int(rand($cyclelength-1) + 0.5);
#        my $start = int(rand($cyclelength));
        my $start = getrandom($_);
    #    print "$start\n";
#        my $range;
#        my $turnover = $cyclelength - $duration;
#        if ($start > 28) {    
#        if ($start > $turnover) {
#            if ($start == 29) {
#            if ($start == $turnover+1) {
#                $range = [$start, $start+1,  $start+2, 0];
#            } elsif ($start == 30) {
#            } elsif ($start == $turnover+2) {            
#                $range = [$start, $start+1,  0, 1];
#            } else {
#                $range = [$start, 0, 1, 2];
#            }
#        } else {
#            $range = [$start..$start+3];
#        }
#        push @women, $range;
#        my $duration = sample 1, (4, 5);
        my $duration = 4;
        push @women, $start..($start+$duration-1);
    }

    my %count;
    my %mcount;
    
    for my $woman (@women) {
#        my @range = @{$woman};
#        for (@range) {
#            my $moduluscyclelength = $_ % $cyclelength;
        my $moduluscyclelength = ($woman % $cyclelength);
#print $moduluscyclelength, ' ', $woman, ' ', $cyclelength, "\n";
#            $count{$_}++;            
        $mcount{$moduluscyclelength}++;
#        $count{$woman}++;
#        }
    }

    my %occupancy;

#    for (0..31) {
    for (0..$cyclelength-1) {
#        my $value = exists $count{$_} ? $count{$_} : 0;
        my $mvalue = exists $mcount{$_} ? $mcount{$_} : 0;
#        $occupancy{$_} = $value;
        print "$_ $mvalue\n";        
#        print "$_ $value $mvalue\n";
    }

#    print 'mean is ', mean(values %count), "\n";
#    print 'sd is ', stddev(values %count), "\n";
#    my %ostats;

#    for (values %occupancy) {
#        $ostats{$_}++;
#    }

#    for (sort { $a <=> $b } keys %ostats) {
##        print $_, ' ', $ostats{$_}, "\n";
#    }

#    push @maxxes, max(keys %ostats);
#}

#print join ' ', sort { $a <=> $b } @maxxes;

sub getrandom {
    my $index = shift;
    my $byte = $rands[$index];
    chomp $byte;
    return int($byte/8);
}
[download]

Yes, I know this is not a place to rant, nor is this place to talk bad about other languages, but heck, I am going to rant anyways....

So I started my scripting journey (short and irregular) with Perl. It enabled me to write scripts pretty fast with least knowledge of the language in particular and programming in general. Job requirements made me take a long break from Perl and Scripting. I started learning Python, not because I had to write scripts, but to "check mark" a training requirement. It's a good language, nothing against it. I was happy on the learning journey, until a requirement came up to automate some alerts and that is when my troubles started.

The client for which I was to do the automation has strict internet access policies, so no access to the internet from the servers used for environment management. Also, no admin access. I had promised to automate some stuff (my bad, I should have first checked the requirements). Python would not install, not even within the directories for my account. I was at wit's end. I tried downloading again thinking may be the file got corrupted, but same result. My colleague managed to install it for his servers (different client) but kept getting errors while trying to send out emails. So we both were kind of upset and pissed off.

And then I remembered, Strawberry Perl. Downloaded it, pushed the installer to the servers (Yes, I again had to raise a request for that as well, and no they would not allow any special permissions). To my amazement, it installed without any errors!!. And every conceivable module I wanted was there!!

This was two days ago...just now finished writing the scripts, sent a test email to myself, then sent it to the required DL Email. Informed my manager and the concerned client folks and they were all happy!!

Now for my colleague, he too installed the same, I helped him out with the scripts, and I dunnowhathappened, but the emails just worked with Perl. Yeah this sounds stupid, but it didnt work with Python, but , it worked with Perl!!

Also I found that, for Perl, there are two kind of Email Modules, Ones that "create"/"format" Email and the others you use to "send" emails. Some modules may have both, and I could be wrong, but what I really liked is the modularity given here.

May be I did something wrong while trying to install Python, may be not, I am not sure. May be I was stupid. But, end of the day, it was Perl that saved the day.

So thank you Perl, Thank you Perl Developers and especially Strawberry Perl Team for saving the day.

Rant Over.

Dear suPerlatives,

Allow me to introduce Intramine, an intranet service suite for Windows done in Strawberry Perl and JavaScript that provides sub-second local search of your half a million or more source and text files, among other things.

Some other things:

• five-second index update when you change a file, to keep searches current
• automatic linking for all source and text and image file mentions, with minimal overhead (often none)
• a really nice file Viewer to browse your files, and see search hits in full context (plus that automatic linking)
• image hovers in your source and text files
• Gloss, a markdown variant specifically for intranet use that takes advantage of autolinking and minimizes "computer friendly" overhead
• scalable services: write your own IntraMine service, with or without a front end, and run multiple instances that can talk to other services
• Search, Viewer, and Linker service support for 137 programming languages, as well as plain text
• all original work is covered by an UNLICENSE.

For a README and downloads see

https://github.com/KLB7/IntraMine

Cheers,

KLB7

at intramine.info

Max Keiser: Yeah I think the COVID-19 is written in Perl, and the flu is written in C++.

Keiser Report E1520 Gold: Problems with Exchange for Physical
https://www.youtube.com/watch?v=wPGmut6_TEk&t=9m23s

TODO

Implement the rest of the transformations (cropping, rotating etc).

I needed to non-proportionally scale animated GIFs and implemented type=>nonprop in the scale method. Other desirable features include crop, watermark, and sharpening. Please share your mods and methods here.

TODO:

perl -MImager::GIF -le 'for (keys %INC) { print $INC{$_} if /GIF\.pm/ 
+}'
[download]

sub scale {
    my ($self, %args) = @_;
    my $ratio = $args{scalefactor} // 1;
    my $qtype = $args{qtype} // 'mixing'; # add qtype support
    
    $self->_mangle(sub {
  
        my $img = shift;
        my $ret = $img->scale(%args, qtype => $qtype);
        my $h = $img->tags(name => 'gif_screen_height');
        my $w = $img->tags(name => 'gif_screen_width');
        
# add non-proportional scaling
        if (
        $args{xpixels} and
        $args{ypixels} and
        $args{type}    and
        $args{type} eq 'nonprop') {
            
            my $xratio
            = defined $args{xpixels}
            ? $args{xpixels} / $w
            : $ratio;
            
            my $yratio
            = defined $args{ypixels}
            ? $args{ypixels} / $w
            : $ratio;

            $ret->settag(name => 'gif_left',
                        value => int($xratio * $img->tags(name => 'gif
+_left')));
            $ret->settag(name => 'gif_top',
                        value => int($yratio * $img->tags(name => 'gif
+_top')));
            $ret->settag(name => 'gif_screen_width',  value => int($xr
+atio * $w));
            $ret->settag(name => 'gif_screen_height', value => int($yr
+atio * $h));
        }
        else {
# proportional scaling, from the original
            unless ($ratio) {
                if (defined $args{xpixels}) {
                    $ratio = $args{xpixels} / $w;
                }
                if (defined $args{ypixels}) {
                    $ratio = $args{ypixels} / $h;
                }
            }
            $ret->settag(name => 'gif_left',
                         value => int($ratio * $img->tags(name => 'gif
+_left')));
            $ret->settag(name => 'gif_top',
                         value => int($ratio * $img->tags(name => 'gif
+_top')));
            $ret->settag(name => 'gif_screen_width',  value => int($ra
+tio * $w));
            $ret->settag(name => 'gif_screen_height', value => int($ra
+tio * $h));
        }
        return $ret;
    });
}
[download]

Uni: Query the Unicode database from the CLI...
https://news.ycombinator.com/item?id=21777025

Identify a character:

uni €
€ - U+020AC - EURO SIGN

uni -c h€ý
h - U+00068 - LATIN SMALL LETTER H
€ - U+020AC - EURO SIGN
ý - U+000FD - LATIN SMALL LETTER Y WITH ACUTE

uni /euro/
₠ - U+020A0 - EURO-CURRENCY SIGN
€ - U+020AC - EURO SIGN
𐡷 - U+10877 - PALMYRENE LEFT-POINTING FLEURON
𐡸 - U+10878 - PALMYRENE RIGHT-POINTING FLEURON
𐫱 - U+10AF1 - MANICHAEAN PUNCTUATION FLEURON
🌍 - U+1F30D - EARTH GLOBE EUROPE-AFRICA
🏤 - U+1F3E4 - EUROPEAN POST OFFICE
🏰 - U+1F3F0 - EUROPEAN CASTLE
💶 - U+1F4B6 - BANKNOTE WITH EURO SIGN

uni globe earth
🌍 - U+1F30D - EARTH GLOBE EUROPE-AFRICA
🌎 - U+1F30E - EARTH GLOBE AMERICAS
🌏 - U+1F30F - EARTH GLOBE ASIA-AUSTRALIA

uni -u 2042
⁂ - U+02042 - ASTERISM

uni -u 2042 2043 2044
⁂ - U+02042 - ASTERISM
⁃ - U+02043 - HYPHEN BULLET
⁄ - U+02044 - FRACTION SLASH

Anyway my meditation consists of encouraging Perl programmers to announce their wares on Hacker News, and other such websites.

https://news.ycombinator.com/news

I do this so often my ~/bin has over 1000 programs and modules. One of these days I would like to upload them somewhere if it's not too complicated. Until then I am a one man CPAN ;-)

My projects include command line programs, web apps, search engines, linguistic analysis, os enhancement, graphics, data visualization, and making Perl easier to use by exposing its buried treasures.

What are you doing with Perl?

https://old.reddit.com/r/perl/comments/dq1lzy/the_perl_masterplan/f65h3t6/

The official Perl documentation site at https://perldoc.perl.org was recently overhauled. Independently, I put together a reimagined documentation site that would be hosted at https://perldoc.pl. In the interest of providing a documentation site that best serves the needs of the Perl community, we need your feedback. Please give both sites a try, in-depth if you want, or just how you would most commonly use the site. What do you like about the design or the functionality of each site? What is missing or can be improved? Any feedback regarding what you want from the Perl documentation site is helpful and appreciated. Please leave comments here or in the linked posts by Monday Nov 18th.

blogs.perl.org comments

Reddit comments