Perl Monk

■配列の並び替えを逆にして再度格納します

@list = reverse(@list);

■配列を数値で昇順ソート

@array = sort { $a <=> $b } @array;

■配列を辞書順で昇順ソート

@array = sort { $a cmp $b } @array;

降順にする場合は$aと$bを入れ替えます。

文字列データを数値でソートしようとするとエラーになります。

基本的にはforeachさんを使います

my @array = qw(a b c d e f);

foreach ( @array ) {

	print $_;

}

$_を使いたくない場合は、途中に変数を入れます。

ループ内で値を加工したい場合や可読性がよくない時はこちらを使います。

foreach my $value ( @array ) {

	print $value;

}

先頭や末端は元々用意されているshift unshift pop pushをつかいます。

それではできない場合はspliceを使います。

my @array = qw(a b c);

splice(@array,1,1);

print Dumper @array;

で見ると、こうなっています。

$VAR1 = 'a';

$VAR2 = 'c';

書式は

splice ARRAY, OFFSET, LENGTH, LIST

となっていて、範囲を指定して取得したり、特定の範囲以外を削除もできます。

ちなみにdelete関数は中味は消しますが配列自体は残っています。

delete($array[1]);

print Dumper @array;

↓

$VAR1 = 'a';

$VAR2 = undef;

$VAR3 = 'c';

独立したシステムで、エラーも別処理として参照したりするときにたまに使います。

BEGIN {

	$SIG{__WARN__} = sub {

		print $_[0];

	};

}

warn "make warn";

ワーニングのシグナルを受けると、これが実行されるというところまでは何となくわかる。

そしてエラー内容が@_に格納されるらしいが、$_[1]以降にデータが入る事はあるのだろうか。。

$_[0]がなかった場合、warningが発生してさらに呼び出されて無限ループしないか・・・！？って思ったんですが、この中で発生したwarningは除外ぽいです。

■配列の中身をすべて消すには以下のように()で引き渡します。

@array = (); 

いざという時、スマホでリモートデスクトップして文字入力する為にかさばらないキーボード＆マウスパッドを買ってみました。

折りたためるので、収納がいい。

最低限のコマンド入力や確認操作ぐらいは問題ないですね。

スマホはTorqueG03なんですが、4.6インチでもまあ何とかリモートデスクトップ先でもメール見れちゃいます。

iClever キーボード IC-BK08

Ewin スマホタブレットスタンド

Remote Desktop 8

この暑い中、奥多摩へ日帰り登山いってみました。

いや別にプログラマでもないしSESやSIerやってるわけでもないから、ずっとPerl使いで時代に置いて行かれてもいいかなって思ってたんです。

だがしかし、会社でそれなりに皆でやろうとなるとやっぱ何か選定しなくてはいけなくなりました。

で、最近触り始めたJavaScript。

昔の認識は、ブラウザにくっついてる、WEBでなんか凝ったことしたい時にコピペして使う言語だよねーって思ってました。

反省しました。

バックエンドでLinuxで動かしたいよぅ → Node.js

フロントエンドでブラウザで動かしたい！ → Ajaxとか

流行りのビジュアルプログラミングってなんぞ → NodeRED

Windowsアプリやってみたい → Electron

スマホアプリも作れちゃう・・・？ → ReactNative や NativeScript

なにこれ、どこでも動くじゃん・・・

やっぱ慣れてるPerlでゴリゴリ書くのは楽だけど、ちょっとJavaScriptも勉強中であります。

ここは東京のど真ん中にある愛宕神社です。

皇居と東京タワーの間ぐらいですかね、自宅からもそれ程遠くないので気晴らしに自転車で散策します。

周りは高層ビルにかこまれているのに、ここだけ空気感が違う。小高い丘の上に鎮座されております。

個人的におすすめ。