ルモーリン @lemorin@fedibird.com

Ｐｅｒｌしか知らんけど今時のプログラミング言語なら絵文字ぐらい扱えるだろ（てきとう）。 #Perl
「Ｐｅｒｌ５．２８以降は絵文字を含む『１文字』にマッチするようになりました（５．２８．２で確認済）。」
絵文字を含む文字列を分割～解説編～ - Perl - ルモーリン https://www.lemorin.jp/perl/3b_split_char.html

空白と言っても0x20に限らない。 #Perl

いじっちゃった（ついうっかり） #perl

なるほど、わからん #perl
ちょっと修正しました💦

お分かり頂けたであろうか #Perl

# 機種名にスペースを入れるケースがあるのでスペースなしで昇順にする
# パチンコの先頭にある文字を比較しない
for (@ record) {
$_->{cmp_name} = $_->{name};
$_->{cmp_name} =~ s/ //g;
$_->{cmp_name} =~ s/^e//;
$_->{cmp_name} =~ s/^PFA//;
$_->{cmp_name} =~ s/^PF//;
$_->{cmp_name} =~ s/^PA//;
$_->{cmp_name} =~ s/^P//;
$_->{cmp_name} =~ s/^\.//;
}
@ record = sort {$a->{cmp_name} cmp $b->{cmp_name}} @ record;

何故かＰｅｒｌの投稿は日本語なのに外国の方に速攻で捕捉されています。 #perl

ちょっと前に頑張って書いた記事なので宣伝しても許されるだろう。 #MySQL #Perl #Mojolicious
https://www.lemorin.jp/perl/3z_realtime_update.html

v5.20以降ならOK ⊂（ 'ω' )⊃ #Perl
「性能問題」
「Perl では伝統的に、$`, $&, $' (または use English での 等価物) をコードのどこかで使うと、コードが引き続いてこれらの変数に アクセスするかもしれないので、引き続くすべての成功したパターンマッチングで マッチングした文字列のコピーを作ります。 これはプログラム全体に対してかなりの性能上の負荷を掛けるので、、一般的に これらの変数の使用は非推奨です。」
「Perl 5.20.0 では新しいコピーオンライトシステムがデフォルトで有効になり、 これらの変数に関する性能問題はすべて最終的に修正され、これらをどこで使っても 安全になりました。」
perlvar - Perl で定義済みの変数 - perldoc.jp https://perldoc.jp/docs/perl/5.28.0/perlvar.pod#Performance32issues

【ふと】Perlを使う人は新しめのv5.26とか使って欲しいなあ。色々便利だし、セキュリティの面でもより丈夫だし。…あ、古めの自作サービスのPerlがv5.18のままだったかも💦 #Perl

undefが曖昧（たぶん、変数or関数）と言われちゃいました。 #perl

# コード
my @array = split //, "たこルカは俺の嫁、ルカ姐さんも俺の嫁";
say scalar @array;
say "@array";
my $undef = \@array;
say $#$undef;
say $#${undef};

undef @array;
say $#${undef};

# 実行結果
Ambiguous use of ${undef} resolved to $undef at sample_002.pl line 15.
Ambiguous use of ${undef} resolved to $undef at sample_002.pl line 18.
18
た こ ル カ は 俺 の 嫁 、 ル カ 姐 さ ん も 俺 の 嫁
17
17
-1

Perlで文字コード処理をする際は、これ。 #Perl
「まず、いくつかのことをはっきりさせることが重要です。 これはこのチュートリアルで最も重要な部分です。 この考え方はあなたが web で見つけたその他の情報と矛盾するかもしれませんが、 ほとんどの場合、それは web で見つけた情報の方が間違っているためです。」
perlunitut - Perl における Unicode のチュートリアル - perldoc.jp https://perldoc.jp/docs/perl/5.38.0/perlunitut.pod

utf8の文字コード変換を全てperlにまかせて、プログラムに変換処理を書かない方法。 #perl

#!/usr/bin/env perl

use v5.26;
use utf8;
use warnings;
use strict;

use Encode::Locale;

use feature "say";
use open IO => ":utf8";

binmode STDOUT, ":encoding(console_out)";
binmode STDERR, ":encoding(console_out)";

my $気合 = 10;
say "喝" x $気合;

サンプルプログラムの元ネタはこちら。
utf8移行と自分メモその２ :: ひまつぶし雑記帖 https://t2aki.doncha.net/?id=1168439762

5.10（say）「5.8（unicode）が理解されたようだな…」
5.26（@ INC）「フフフ…奴は四天王の中でも最弱…」
5.32（$x < $y <= $z）「プログラマ如きに理解されるとはPerlのツラ汚しよ…」
#Perl

perlのcpanm作った人に足向けて寝られません。パッケージを芋ずる式に入れてくれる奴。 #perl

先駆者さんのサイトがあればリンク張りたい。他のプログラミング言語はどんな感じなのだろう（perlしか知りません）。 #perl
絵文字を含む文字列を分割～解説編～ - Perl - ルモーリン https://www.lemorin.jp/perl/3b_split_char.html

Windows下において、utf8で書いたPerlのスクリプトでGlobに平仮名の組み合わせを実行させるにはどうしたら良いですか? #perl #教えて偉い人

自分のサイトにこんな記事を載せてます。 #perl
「ＷｉｎｄｏｗｓでＰｅｒｌを使おうとして（例えばＡｃｔｉｖｅＰｅｒｌ）、ブログとかのＬｉｎｕｘ下のＰｅｒｌスクリプトをコピペして爆死、原因を調べようにもＷｉｎｄｏｗｓ下との違いを書いたブログなどを見つけられずに玉砕されている人達が結構いらっしゃるようなので。」
ＷｉｎｄｏｗｓとＣｅｎｔＯＳで両用できるＰｅｒｌの書き方 - Perl - ルモーリン https://www.lemorin.jp/perl/1w_win_centos.html

【ふと】mojolicious版mastodonないっすか？(・д・ = ・д・)
※perlしか知りません #perl

Perlのインスタンスないっすか？(・д・ = ・д・) 但し日本語に限る。 #perl

YAPC::Kyoto 2023 https://yapcjapan.org/2023kyoto/ #perl #YAPC