say コマンドがインストールされている場合のお話です。 (defun say-on-region (&optional start end) (interactive "r") (unless (executable-find "say") (error "say command is not installed!!")) (shell-command-on-region start end "say")) 読んで欲…

use Test::Base qw(no_plan); use Test::Exception; use List::Util qw(first); use Perl6::Say; my $arr = [ { id => 1, name => 'aaa' }, { id => 2, name => 'bbb' }, ]; my $is_ccc = sub { $_->{name} eq 'ccc' }; lives_ok( sub { map { say $_->name …

semanticdb-default-save-directory にディレクトリを設定してあげると、そこにキャッシュを作るようになります。 (setq semanticdb-default-save-directory "~/.emacs.d/") また、 semanticdb-default-file-name を変更するとキャッシュファイルの名前を変…

全角と半角が混在していて、アレだったのですが、以下のコードで一発でした。 "、。" 等の文字も変換されて問題ない状況でした。 use Lingua::JA::Regular::Unicode; sub z2h { katakana_z2h($_[0]) } $_->update({ name => z2h($_->name), description => z…

p175〜 相関副問い合わせ。 SELECT p.ProductName, s1.Quantity, s1.saledate FROM Sales AS s1 JOIN Products AS p ON p.ProductID = s1.ProductID WHERE s1.Quantity > ( SELECT AVG(s2.Quantity) FROM Sales AS s2 WHERE s2.ProductID = s1.ProductID ) ;…

DBは SQL書き方ドリル のサンプルです。 そこから DBIx::Class::Schema::Loader をつかって schema dump して relation とか書きました。 毎日ちょっとずつやっていこうかと思っております。 Util dumpするやつ。 sub p { my ($rs) = @_; my @rows = $rs->is…

use strict; use warnings; use utf8; use Test::Base qw(no_plan); sub return_undef { return undef; } my @list_undef = return_undef; ok( ! @list_undef ); # Failed sub just_return { return; } my @list_just_return = just_return; ok( ! @list_jus…