Archive for Nanoniele

SOHOのすすめ – 1日の生活サイクルはどんな感じ?

 

SOHO生活では、好きな時に起きて好きな時に眠るなど、他に縛られない自由なことばかりではあります。とはいえ、あまりにも自由だと体にもよくありませんし、世の中との感覚と大きくずれてしまうのはよろしくありません。規則正しい生活を心がけたいものですが、生活の規則正しさを維持することは、勤め人の場合よりも難しいかもしれません。

6:30 – 起床

6:45 – データ収集

7:00 – 朝食

7:15 – データ収集
7:30 – 記事出力
8:40 – ラジオ体操
8:50 – データ収集
9:00 – 記事出力
9:15 – 庭の水やり
10:00 – データ入力

12:00 – 昼食

13:00 – 休憩
17:00 – データ収集
17:30 – ウォーキング

19:00 – 夕食

20:00 – データ収集

22:00 – 風呂

23:00 – データ収集

24:00 – 就寝

長い時間働いているとお思いの方もいらっしゃるかもしれませんが、休みなく作業をしているわけではないんです。空き時間が結構多かったりしますので、空き時間に雑用を済ませたり、外出したり、アイデアを練ったり、昼寝をしたり、ぼへらっとしたりと、色々やるんです。

言い換えれば、一日中、少しずつ働いている。そんな感じです。がっつり働かないから、ストレスがたまらないのがいいですね。ただ、睡眠時間だけは絶対に確保しています。健康でいたいですからね。

[Perl] 日付から第何何曜日かを計算して取得する

年月日から、月の第何何曜日であるかを計算しつ取得するPerlサブルーチンです。グダグダなスクリプトなのは、ブログの表示上ということでご勘弁を。

[サブルーチン]

sub getwday {

my ($wyear, $wmonth, $wday, $whour) = @_;

if (($wmonth eq “00”) or ($wmonth eq “01”) or ($wmonth eq “0”) or ($wmonth eq “1”)) {

$wyear = $wyear – 1;

$wmonth = $wmonth + 12;

}

my $getday = int($wyear + int($wyear / 4) – int($wyear / 100) + int($wyear / 400) + int((13 * $wmonth + 8) / 5) + $wday) % 7;

my $getweek = int(($wday – 1) / 7) + 1;

return ($getday, $getweek);

}

1;

 

[サブルーチン呼び出し]

my $year = “2017”;

my $month = “9”; #my $month = “09” でも良い

my $day = “11”;

my ($sevenday, $thweek) = getwday ($year, $month, $day);

曜日を数値化したもの(日曜日が”0″, 月曜日が”1″, … , 土曜日が”6″)が$sevendayに、$thweekに月の第何週かが数値として返ってきます。

この数値を使って”第何何曜日”と表現したければ、サブルーチンを呼び出すスプリプトに

my @kanjiday = (‘日’, ‘月’, ‘火’, ‘水’, ‘木’, ‘金’, ‘土’);

my $th_day = ‘第’ . $thweek . $kanjiday[$sevenday] . ‘曜日’;

とでも追加すればいいと思います。

キーワード: 年月日; 日付; 曜日; 第何週; 第何何曜日

 

あわせてどうぞ

PerlとJavascriptの連携でウェブコンテンツを表示させる方法

 

 

めんどくさいので、中国地方の道の駅の営業時間をまとめた。

いちいち調べるのがめんどくさいので、中国地方の道の駅の営業終了までの時間をまとめました

道の駅がある県や市町村、隣接する道路から絞り込むことができるようにしています。私のコメントも入れてみました。

調べていてわかったのですが、24時間営業をうたう道の駅もあるのですね。コンビニでもあるのでしょうか。

めんどくさいから東広島のお店をまとめた。

外食先の場所や営業時間をいちいち調べるのがめんどくさいので、自分用にまとめました

営業終了(営業開始も)までどのくらいの時間があるのか、一目でわかるようにリスト形式にしています。また、地域別、料理別に検索できるようにもなっています。

誰かに使っていただけたらというシロモノではないのですが、一応、紹介まで。

お好み焼き屋多いっすわ。

 

めんどくさいからHTMLタグとか投稿画面とか使わなくなった。

シンプルに軽くしたかった。

 

 

WordPressは記事の作成画面が重ったるいし、かといってCSSやHTMLを生打ちで書いていくのはデバッグとかめんどくさい。

そんなわけで必要最小限のタグみたいなものを打てばHTMLソースが出来上がるように、Perlでスクリプトを書きました。

こういう風なのをテキストエディタで打っておけば、

勝手に体裁が整うからくり。リンクやオススメ記事のリストも、勝手に作ってくれる、優れもの。

あんまり速報性のない記事を置いときたいと思っています。

公開はそのうちね。