Engineer of the lawyer

I was able to pass the Network Specialist. Next target is the Project Manager.

プログラム素人がPerlでプログラムを作ったのでメモ

すごい単純なものですが、なんだかんだ6時間ぐらい程かかったので
やっぱりPGは尊敬するなぁとつくづく感じました。

作っている間、不完全燃焼のところがいくつもあったけど、触って
いくうちに覚えていこうというスタンスなので、とりあえず細かい
ところは気にしないで、手を進めていきました。

Perlはメンテナンス程度に触ったことがあるぐらいで、ほぼ素人
の状態です。

VMwareCentOSPerl のインストールからはじめたので
結構時間かかってます。

やりたいこと

ある会社の株価の終値CSVに自動的に記録していきたい。

考え方

Perlで株価を表示しているWEBサイトへアクセス。
②現在価格を取得して日付とともにCSVファイルへ追記する。
③これをCronで夜に1回だけ動かす。

まだ②までしかできてないけど、③はすぐできそうなので、一旦休憩。

以下実際の成果物
#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;

### utf8のERRORが出るので、とりあえずこれ入れたら解決した。
binmode(STDOUT, ":utf8");


###################################################################
# 本日の日付を取得する。
###################################################################
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;

#localtime関数からは1900年から数えた年が返却される。
$year += 1900;

# 月は0から始まるので、1を加える
$mon++;

# 日曜日は0
my @day_of_week = qw/日 月 火 水 木 金 土/;

print "$year\-";
print "$mon\-";
print "$mday\t";

##################################################################
# XXXの株価ページからYYY社の株価を取得する
##################################################################

my $url = 'http://XXX株価が表示しているページXXX';

# LWP::Simpleの「get」関数を使用
my $html = get($url) or die "Couldn't get it!";

#$htmlを一行ずつ、配列に格納する
my @lines = split m{\n}, $html;

# foreachで処理する前に変数を宣言しておかないとERRORになるので、適当にここで宣言
my $value = 0;

foreach (@lines) {

# 該当の文字列が部分一致する箇所をif文でマッチさせる
        if(/X部分一致させたい文字列X/){
        $value = "$_";
                };
        };

### 正規表現で、数値のみが残るように、置換する。
$value =~ s/^.*?(\d+).*$/$1/;

print "$value\n";

open(FH,">> RESULT-xxx.csv");
        print FH "$year\-";
        print FH "$mon\-";
        print FH "$mday\t";
        print FH "$value\n";
close(FH);
やってみて

●my ~ で変数定義しないといけなかったっけ?って思ってたら、
use strict;
を使ってるからなんやな。これはスペルミスを防ぐものだと思う。

●utf8のエラーが出たので、ぐぐって荒療治しているけど、
次回までには理解して何とかしよう。

●ファイルハンドルの概念がいまいちよくわからん。

●LWPというものをはじめて知った。このPerlのモジュールを
使わないと、WEBサイトへGETするのがPerlでは難しいと思われる。

●if文の条件パターンになぜか2byte文字が使えなかった。

【課題】

●数値への置換が1,000とかの表記だとうまくいかない。コピペしてきただけなので要確認。

次もなんかぼちぼちやっていこう。

Thinkpad X220

Thinkpad X220を中古で3万ほどで購入したので、テスト投稿。

使い心地は特に問題なし。
メモリが2Gだからか、WindowsUpdate中にほかの作業をしてると重かった。(2Gでも十分ですけど)
CPUは特に問題なし。
筐体の重さ的にはモバイルには向かない。
キータッチはやっぱりThinkpadが自分には一番いい感じ♪
決め手は12インチのThinkpadがほしかったから。

Perlの練習用にVMwarePlayerをインストールしてCentOSを入れる予定。
Cronで定期的に株価の価格推移表を自分でまとめて結果を記録していく。
これにはもうひとつ目的があって、6月末に権利確定日となる銘柄を300株ほど
購入していて、権利確定日前の価格推移表を自分なりに分析してみたいから。
という、一応ゴールまでの目的があるのでなんとかやってみよう。

現在のタスクはVMwarePlayerインストール済みなので、
メインマシンからCentOSのイメージをThinkpadに送って、Perlをインストールする
とこまでやってみよう。

OSのイメージどうやって送ろうかな。
共有フォルダが一番無難か、クロスケーブル直結?


…、だらだらと意味不明な文章なのでブログに載せるものではないけど、
自分の頭の整理に。

おすすめ洋楽

別に落ち込んでないですが
英語勉強の気分転換に


【作業用BGM】落ち込んだ人を全力で応援する洋楽集(日本語字幕付き) - YouTube

My favorite music!!

なんとなく自分の好きな音楽まとめてみました。

こうやって考えるとジャンルは問わず歌詞を中心に
判断してるってことがわかりました。


浅田真央選手を考えて作った曲。
すごく励まされる歌詞!!


DREAMS COME TRUE - 「AGAIN」(日本テレビ系「NEWS ZERO」テーマソング)MV short ver. - YouTube



これは朝ドラ「花子とアン」の主題歌
この曲を聴くとちょっとテンション上がります!!


絢香 Ayaka - にじいろ(short ver.) - YouTube



これはFF10の名曲!
FF10はこれまでやったRPGの中で最高傑作でした!
(一昨年(2013年に初プレイ)自分まだPS2ですから)


FINAL FANTASY X 素敵だね 超高音質 歌詞付き - YouTube



英語勉強のモチベーションアップのために!
EMINEMの歌詞は基本的に好きですね。
※日本語翻訳済みのいい動画がありました↓


【エミネム】Not afraid 日本語歌詞 - YouTube



EMINEMついでに名曲↓


【歌詞&和訳】Eminem - Lose Yourself - YouTube

思い付き

思いついたことを忘れないために自分の頭の中を垂れ流しで書きます。

今日は普段物欲のない、自分に2つの物欲が湧いてしまいました。。

1つ目はまともな腕時計。

社会人としてそろそろちょっといい時計買ってもいいかなと考え、
いろいろ物色…。(と、言っても、20~30万円ぐらいですが…)

いろいろ物色した結果、OMEGAのSPEED MASTERにしようかなと。
若者向けといった評価があるので、(自分まだ20代ですが)長く使う
時計としてはどうかなとも考えましたが、「いつまでも若い気持ちで」
という、自分のconceptを持つこともできるのでそれはそれでいいかなと。

2つ目はノートPC

腕時計と比べると安いのですが、DeskTopあるしなぁ。
でも普段ブログの更新などもLapTopがあれば捗る気がする。

そして、もうひとつ、書評ブログを作ろうかと模索中。これを継続実行する
ためにもLapTopがあればいいなと思うのです。

書評ブログはプチ副業になればとさっき思いつきました。

ビジネスプランとしては、アフェリエイトになります。

きっかけは本好きな友人がいるため、一冊X円でまずは半年契約で、
1冊につき200~300文字ぐらいの書評を依頼。

自分はそれをブログにお越し、メンテしていこうかなと。

さっき思いついたので、これから内容を精査していきますが、
自分のドメインもあるので、これを機に本格的にHP作りもして
行けたら一石二鳥かとも思います。

ただ、ひとつネックなのが、友人がこれに乗ってくれるかが問題ですね。
後は書評でアクセスがどれぐらい稼げる見込みになるのか。
まずはサンプルで5~6冊ぐらい書いてもらおうかな。

不定詞の関連表現

疑問詞 + to 動詞の原形 で他動詞の目的語になる

how to 動詞の原形
~する方法

Mayu wanted to know how to rent a car.

what to 動詞の原形
何を~するべきか

He did not know what to do next.

where to 動詞の原形
どこで~するべきか

Do you know where to take a train?

when to 動詞の原形
いつ~するべきか

i did not know when to leave here.

which to 動詞の原形
どの~を すべきか

i cannot decide which shirt to put on.

※put on
~を身に付ける

不定詞ややこしいなぁ

I'm learning English for score up of TOEIC!

結構文法がまだまだ怪しい。
でも、単語も平行して学んでいかなければ。。。

Understanding of the grammar is doubtful.
But,I must learn words (terms?) ,too.

respect 名詞
点、箇所

respectは動詞の時、"尊敬"とかという意味を持つけど、名詞になると
"点"、"箇所" っていみも持つ。

directly 副詞
直接に、真っ直ぐに


direct(動詞)の副詞やな。

direct 動詞、形容詞 
direction 名詞 (方向)
directly 副詞


arrangement 名詞
手配、準備

The hotel staff made dinner arrangements for us.

waste 動詞
無駄にする

We waste too much paper in this office.
I waste a lot of time waiting for you.

※↑個人的に重要と思う動詞なので、必ず覚える

fellow 名詞
人、仲間

appeal 名詞
懇願、要求

sympathy 名詞
同情、教官

Next target is 470 score at TOEIC.
I want to get high score.