kzhr's diary

ad ponendum

2018-07-01から1ヶ月間の記事一覧

IDSをふくむテクストを一字づつ切り出すperlスクリプト

use strict; use warnings; use utf8; sub ids_split { my $text = shift; my @chars = split //, $text; my @split; my $buffer_text = ''; my $buffer_num = 0; for my $char (@chars) { if ($char =~ /[⿰⿱⿴⿵⿶⿷…