RFC#### => RCP2023-## (Requested Change for Perl)
]]>Topics for the meeting include Perl (of course), COVID-19, CentOS, and anything else that people would like to talk about.
]]> The Zoom details to join the meetingMeeting URL: https://us02web.zoom.us/j/88385075668
Meeting ID: 883 8507 5668
The passcode is the output of this small Perl program: perl -E 'say 2**2*7**4, map chr, 064, 066'
We'll look forward to seeing everyone there!
Here’s the Zoom link: https://us02web.zoom.us/j/85154555818
The passcode can be acquired by running the short Perl program:
sub sum {
$a = shift();
$a += shift() while @_;
return $a;
}
@n = ( 3 ); END{ print @n, "\n"; }
push @n, sum( $n[0], 0+@n );
push @n, sum( $n[0], $n[-1] ) for @n[0,1];
push @n, sum( @n ) / $n[0];
We’ll start the conversation by checking in with everyone, and seeing if there are any questions. Following that, I’m trying to work up a short presentation. Otherwise, it looks to be a mostly social meeting.
We’re looking forward to an enjoyable evening with you all!
]]>What I Saw at the Perl & Raku Conference 2020
https://docs.google.com/presentation/d/1bm031LAjj55w2nljBiddSgiIC3DmLZjOnpIPaddYR8A/preview
What's New in Perl 5.32
https://docs.google.com/presentation/d/1gc0AccC1lWUBWSJ-UVsm2ctyDx4ZS3_jHhm7KsoDqPU/preview
Because of the pesky disease that's been spreading, we'll be gathering online. The agenda for tonight is: Normal conversation and seeing how everyone is doing; if there are any questions that need to be answered, we'll do that; followed by jumping into our presentations. We have at least three, though if anybody would like to step up and add another to the mix, please let me know.
Meeting ID: 896 3919 9931 Link to the meeting: https://us02web.zoom.us/j/89639199931
]]> The meeting password is the number you get when evaluating the following Perl:@n = 6 .. 9; $_ = $_ x 2 for @n[0,-1]; say @n[0,1,3,2];
This Perl should also work:
srand(14); @n = 6 .. 9; $_ = $_ x 2 for @n[0,-1]; say sort {rand()<=>rand()} @n;
And this should also work:
srand(2); @n = 6 .. 9; $_ = $_ x 2 for @n[0,-1]; say reverse sort {rand()<=>rand()} @n;
Other variations are left as exercises to the reader.
I'll look forward to seeing you all tonight!
]]>/^=\w+/ .. /^=cut\s*$/
), all lines that are solely comments ( /^\s*#/
), anything after __DATA__
or __END__
, and, if possible, anything inside a string ("..."
, '...'
, <<END_STRING
, qq
, q
, ...).
The analysis code should also count the lines that start with any of the following conditions:
/^\S+/
/^\t+\S+
/^[ ]+\S+/
)/^\t+[ ]+\S+/
)/^[ \t]*[ ]+\t+\S+/
)Keep up the good work!
]]>perl -E 'say "x"; say -"x"; say -"-x"; say -"+x";'
For me, lines 1 and 2 make sense. Lines 3 and 4 are different than I would expect, but I'm not sure that they are really wrong. Does somebody want to explain what is really happening, and why it is that way?
]]>Shoichi: Yes, that's what I ended up figuring out to work around the issue, but I'm trying to understand why the original code is misbehaving (or why my understanding of the way the code should be behaving is incorrect).
]]>use feature 'say';
sub fmt { sprintf( @_[0, 1] ) }
my $num = 1_234_567_890.12_345_678_9;
say sprintf( '%.6f', $num );
say fmt( '%.6f', $num );
I think the two say
lines should both print out the same value, 1234567890.123457
. The first line behaves as expected, but the second does not. Does anybody have any idea on why?
Playing around with the code, I’ve figured out how to fix the issue, but I’m curious as to thoughts and explanations from the community.
]]>Keep it up, please.
]]>