部屋を掃除したら漫画が沢山出てきたので書く日記

漫画とか合唱とかUNIXとかLinuxとかについて書く日記です。

夏休みの宿題メモ

CentOS 6.4にTera TermでSSHアクセスしたら日本語が使えなかった場合

# yum groupinstall "Japanese Support"
# echo 'LANG="ja_JP.utf8"' > /etc/sysconfig/i18n

でログインし直し、Tera Termのフォントを日本語対応しているものに変更する。

Perlのハッシュの要素を削除

delete($hash{$key});

githubへのgit pushを実行すると「error: The requested URL returned error: 403 Forbidden while accessing」ってなる

#git remote set-url origin https://bata64@github.com/bata64/[れポジ鳥の名前].git
git push -u origin master

cpanfileの書式

requires 'perl', '5.008001';

on 'test' => sub {
    requires 'Test::More', '0.98';
    requires 'Log::Handler', '0.82';
};

requires 'Log::Handler', '0.82';
:

cpanfileに書かれたCPANモジュールを一括でextlibディレクトリへインストール

% cpanm -L extlib --installdeps .

printしたりLog::Handlerで日本語出力したら「Wide character in print at・・・」と出る

use utf8;
use Encode;
$log->info(encode_utf8 "こんにちは");

色々調べたら「とりあえず無視」という選択肢の人もいるようですが・・・。
あと、ここを読もう。

Perlである数字の過半数を取得したい

2で割った値の小数点以下切り上げをすればよい。

use POSIX;

my $num = 5;
my $kahansu = ceil(${num}/2);

5の過半数は3という事で、3が得られる。

Perlのハッシュでforeach

    foreach my $data (keys %hash){
        print $data,"\n";
        print $hash{$data},"\n";
    }

ではー。