Pyon's Diary

晩御飯。

• 拾穀飯。
• 茄子とオクラの味噌汁。
• ウィンナーソーセージと人參と玉葱のカレー炒め。
• 胡瓜と若布の酢の物。
• レバーの生姜煮。
• 梨。(幸水)

Tags: None | | | | | | Permalink

Regexp::Assembleで大文字・小文字。

Regexp::Assembleで「i」フラグを使ふと全角文字でも大文字・小文字を區別しないマッチが出來る。

% cat test.pl
#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use Regexp::Assemble;

my $ra = Regexp::Assemble->new( flags => 'i' );

$ra->add('Ａ'); # 全角

my $re = $ra->re;

warn $re;

while ( "aａAＡ" =~ /($re)/g ) {
    warn $1;
}

此を實行すると、

% perl a.pl
(?-xism:(?i:Ａ)) at a.pl line 14.
ａ at a.pl line 17.
Ａ at a.pl line 17.

但し半角と全角の區別はされた儘。

Tags: Perl | | | | | | Permalink

けふのツイート

「永久に不滅です」→「永遠に不滅です」、「自分をほめたい」→「自分をほめてあげたい」、けふはいかにマスコミが好い加減かを検証する番組か？。 (07/29 22:35)

「恥ずかしながら」→「恥ずかしいけれど」、「あなたとは違うんです」→「あなたと違うんです」。 (07/29 22:42)