以前、記事のタイトルや本文に JIS 第三、第四水準など、Unicode の BMP（基本多言語面）外の文字を使うときにテーブル構造をいじっていた。アップグレードの前にいったん元の設定に戻そう。
[code:bash;gutter:false]
$ /usr/local/mysql/bin/mysql -uroot -p mt
Enter password:
[/code]
次の SQL で設定の一部を元に戻す。
[code:sql]
alter table mt_entry
modify `entry_atom_id` varchar(255) character set utf8 default null
,modify `entry_basename` varchar(255) character set utf8 default null
,modify `entry_class` varchar(255) character set utf8 default 'entry'
,modify `entry_title` varchar(255) character set utf8 default null
;
[/code]
[code:sql]
alter table mt_entry
modify `entry_atom_id` varchar(191) character set utf8mb4 default null
,modify `entry_basename` varchar(191) character set utf8mb4 default null
,modify `entry_class` varchar(191) character set utf8mb4 default 'entry'
,modify `entry_title` varchar(191) character set utf8mb4 default null
;
[/code]
our とよく似た機能として use vars プラグマがある。どちらも変数をパッケージの名前空間に紐付けする点では同じだが、our がレキシカルスコープ内で有効になるのに対して、use vars はパッケージ内で有効になる点が異なる。
[code:perl;title:サンプル 2;highlight:[12]]
#!/usr/bin/perl
use strict;
use feature qw! say !;
package AAA;
use vars qw! $use_vars_var !;
$use_vars_var = 678;
our $our_var = 123;
package DDD;
say $our_var; # これは大丈夫
say $AAA::use_vars_var; # これも大丈夫
say $use_vars_var; # ここでエラー！
[/code]
use vars が無効な範囲でもパッケージ名で修飾すれば参照できる（12 行目）。歴史の古いモジュールなどではよく見かけるが、our の使える今では、あえて使う意味はない。
local と local our
local はグローバル変数にスコープ内でのみ有効な値を与えるときに使われる。
[code:perl;title:サンプル 3;highlight:[5,8]]
#!/usr/bin/perl
use strict;
use feature qw! say !;
our $var = 123;
{
local $var = 345;
&say_var;
}
&say_var;
sub say_var {
say $main::var // "undefined";
}
[/code]
[code:plain;title:実行例 3;gutter:false]
345
123
[/code]
local 文で与えた変更はスコープ内で呼び出された関数でも有効だ。では次のコードだとどうなるか。
[code:perl;highlight:[6];title:サンプル 4]
#!/usr/bin/perl
use strict;
use feature qw! say !;
{
our $var = 345;
&say_var;
}
&say_var;
sub say_var {
say $main::var // "undefined";
}
[/code]
[code:plain;title:実行例 4;gutter:false]
345
345
[/code]
our が有効なのはスコープ内だけであるのに、そこで与えた変更はスコープ外にも波及する。これを避けるために local our を使う。
[code:perl;highlight:[6];title:サンプル 5]
#!/usr/bin/perl
use strict;
use feature qw! say !;
{
local our $var = 345;
&say_var;
}
&say_var;
sub say_var {
say $main::var // "undefined";
}
[/code]
[code:plain;title:実行例 5;gutter:false]
345
undefined
[/code]
[code:perl;title:コピーテスト]
#!/usr/bin/perl
use utf8;
use 5.12.0;
use warnings;
binmode STDOUT => ":utf8";
say "コードをダブルクリックすると全体が反転します。";
say "その状態で Ctrl-C（Cmd-C） を押してコピーしてください。";
say "コードの外をクリックして選択を解除すると";
say "シンタックスハイライトが復活します。";
[/code]
[code:xml;title:コード例;highlight:[2,15,16]]
