豊田正史のSLとは関係ございません

_ [開発] Perl5.8.2で日本語処理

EUC-JPで書かれたファイルを読んで、ちょこっとtrして、EUC-JPで出力するときはこう書けばよいらしい。今まで、encode、decode、UTF-8フラグの絡みをイマイチよく理解しておらず、わけの分からんコードを書いてたがようやくすっきりした。

#!/usr/local/bin/perl
use utf8;
use encoding 'euc-jp';
use Encode;
use Encode::JP;
while (defined($line=<STDIN>)) {
  $line =~ tr/０-９/0-9/;
  print "$line";
}

_ [Software] 初リモートSkype

あれ、ローカルのときより音声が綺麗だ。マシンのスペックが良くないとだめなのかな？