わが家は賃貸マンションである。防犯設備はまだない。 一度泥棒に入られた経験があるし、必要性は感じるのだが、大手ホームセキュリティーの商品は高いのだ。たとえばセンサーを使った簡単な防犯システムでも、初期費用5万円、そして月額4600円というランニングコストがかかる。 かくして二の足を踏んでいる人びとに向けた防犯サービスが最近増えている。 クラウドファンディングのMakuakeで17日から資金募集を開始した、貼るだけ防犯システム『セキュアル』（Secual）もその1つだ。初期費用は1万円台から、月額料金は980円。こみいった工事もいらない。 使い方は、センサーを窓やドアに貼り、専用ゲートウェイをコンセントプラグにさしこんでおくだけ。家に不審者が入ると、ばかでかいアラートで警告し、ゲートウェイが登録先のスマホアプリに情報を通知する。

何番目の要素を削除とかはよくあるけど、指定した内容の要素を削除というサンプルがなかったので簡単だけど書いてみる。 use strict; use warnings; my @lst = qw( foo bar baz ); print "@lst\n"; # foo bar baz @lst = grep $_ ne "bar", @lst; print "@lst\n"; # foo baz