Top image

Perl Monk

主にPerlとRaspberryPiの個人的技術研鑽


Juniper SSG5 から Yamaha FWX120 に乗り換えた

2019/10/21 20:00
category:サーバ全般

FWX120を自宅のルータにする

いろんな意味で、すっきりしてしまったのでこの際ネットワーク周りも変更。

ちゃんとした固定IPが欲しかったので、KDDIのなんちゃって固定IPからインターリンクの固定IPへ変更し、ネットワーク機器も入れ替えました。

機器を入れ替えた理由は、SSG5の発熱がすごいんです。夏はやばいぐらいなので、別途ファンつけて回してました。

たぶんデータセンタに設置する設計になってるかもですね。ラックマウントタイプじゃないのに。

ヤマハのFWX120はいいですね!中古で1万しないぐらいですが、(新品だと5万ちょい・・・)

・PPPoE

・Firewall

・VPN

・ポート転送

が一台で収まりました。他にもいろんな機能はありますが、WEBフィルターやメールフィルターは別途ライセンスが必要。

あと、ACアダプタじゃなくてそのままコンセントを出している設計もGood。発熱も気にならない程度。

設定は基本的にWEBから行えますが、恐らくは細かい部分はコマンドラインから入力しないといけないかも。

ベースはCLIで、その上に基本的な設定部分をWEBでいじれるイメージでしょうか。

設定いじれる人であればお勧めです。

外からスマホでVPNにつなげて、NASサーバにある資料を見るなんて事も出来るように。


Perl小ネタ:正規表現でマッチした分割単位をそのまま配列に格納する方法

2019/06/20 20:00
category:Perl

正規表現でマッチしたものを変数にいれる

まず、マッチしたものを変数に代入できるというのがあります。

my $string = '1234567890abcdefg';
my @array = $string =~ /[0-9]+/g;
foreach ( @array ) {
	print "$_\n";
}

出力

1234567890

> read more


RaspberryPi + HiPi + PCA9685 でサーボを動かしてみよう

2019/06/16 22:46
category:RaspberryPi

センサー類はだいたいいじれる様になってきたので、サーボに手を出してみました。

ラズパイ用のセンサー類をだいたい網羅したモジュールを作ってる人がおったんですね。ありがたいこっちゃ。

HiPi Perl Modules for Raspberry Pi

こちらを使って調理したいと思います。

ラズパイでサーボを動かす

> read more


GoogleSearchConsoleをよく見たら・・・

2019/06/13 20:00
category:サーバ全般

ATL

合計表示回数⇒検索で表示された回数

合計クリック数 ⇒ 検索で表示され、クリックされた件数

クリックはほぼ自分の検証だと思われ、つまりはほぼクリックされていない。

こりゃいかん・・・・。


和室に合うPC環境

2019/06/11 20:00
category:日常

和室に合う環境を考えてみました。

・低い位置でそろえて、インテリアを壊さない

・開発環境としてある程度たえられる

・リラックスできる

というテーマです

和室でパソコン環境①

> read more


悠悠閑適

2019/06/10 20:00
category:日常

cat and cofee

酵素について語り合いました。

ロボットは摩耗するだけだけど、生物ってすごいよね。休んでいれば体は回復するものだもの。

肉体も精神も、基本的には治りたがっている。

それを阻害しているものは、まあ結局自分自身だったりするわけで。

どこかで酒粕をつかった料理などに挑戦してみます。


お名前.comでうっかりZone設定したらメール取れなくなった話

2019/06/09 12:00
category:サーバ全般

お名前.comでドメイン取得、かつメールや一部のサーバだけ使うレンタルサーバー(SDプラン・お名前メール)を利用している人が、うっかりハマったパターン。

滅多に居ないと思うが、もしかしたら一人ぐらい参考になるかなと・・・。

> read more


シンプルなWEB APIインターフェースをPerlで作る

2019/06/04 19:00
category:Perl

極力シンプルな形で、HTTPを使ったAPIでデータをやりとりをする方法を考えます。

> read more


Perl小ネタ:配列の要素数を取得する

2019/06/03 22:03
category:Perl

$#配列名

で要素数を取得できます。

my @array = (9,8,7);
print $#array;

[出力]:2

1個目は0からになります。

何もない場合は-1になります。

●配列の最後にデータを格納する

$array[$#array+1] = 値;

push(@array,値)	

は同一の処理になります。

●配列の値でなにかしらのループをする

foreach my $value ( @array ) {

print $value;

}

for ( my $i = 0 ; $i <= $#array ; $i++ ) {

print $array[$i];

}

は同じ回数処理が走ります。

●配列のリファレンスに対して取得する場合

my $array_ref;
$array_ref->[0] = 'a';
$array_ref->[1] = 'b';
$array_ref->[2] = 'c';
print $#{$array_ref};
リファレンスにたいしても、同様の手法で取得できます。

猫型ロボット Nybble を作ろう! その2:すやぁ

2019/06/02 19:11
category:RaspberryPi

一応組み立てまで終わりましたが・・・

_(:3 」∠ )_

nybble激似

> read more


< Prev Page
[ page:5 ]
Next Page >