use bytes;perl 5.6.0 未満でも動いてほしいのであればこうなるかな。
$utf8off_str = substr $utf8on_str, 0;
BEGIN { eval { require bytes; bytes->import; }; }
$utf8off_str = substr $utf8on_str, 0;
use bytes;perl 5.6.0 未満でも動いてほしいのであればこうなるかな。
$utf8off_str = substr $utf8on_str, 0;
BEGIN { eval { require bytes; bytes->import; }; }
$utf8off_str = substr $utf8on_str, 0;
0 件のコメント:
コメントを投稿