 | When: December 18th (on the day of the 37th Birthday of Perl) Where : Virtual Dress Code : Whatever you want Price : FREE How to join : sign up for the mailing list (QR in image), or https://perlcommunity.org/science/#mailing_list) Wanna know more : https://science.perlcommunity.org/spj#top submitted by /u/ReplacementSlight413 |
Science Perl Committee
The Science Perl Committee is a democratically-elected organization.perlcommunity.org
 | submitted by /u/OvidPerl [link] [comments] |
AI for Accessibility
Many people don't write alt tags for images, or they write bad ones. However, these are crucial for people using screenreaders to understand the image. AI can make this easier.curtispoe.org
perl -CS -E'say v74.65.80.72'
I wanted to grok how deeply I didn't understand what this was doing, so I also made some modifications:
while true; do perl -CS -E 'say eval ( sprintf "v%s", join ".", map { int rand 1024 } ( 0 .. (int rand 24) + 8 ) )'; sleep 1; done
submitted by /u/smutaduck
[link] [comments]
Doing some Unicode research I'm finding several different ways to generate Unicode characters:
```perl binmode(STDOUT, ":utf8");
my $thumbs_up = "";
$thumbs_up = "\x{1F44D}"; $thumbs_up = "\N{U+1F44D}"; $thumbs_up = chr(0x1F44D); $thumbs_up = pack("U", 0x1F44D);
print $thumbs_up x 2 . "\n"; ```
What is that \x syntax? I tried looking it up on Perldoc and couldn't find anything. Is the \N specific for Unicode?
submitted by /u/scottchiefbaker
[link] [comments]
