2019-03-15

perlで日時の取得をする

perl

localtime関数を使ってみる

動的に通知されるデータの中で、分かりやすいのが日時の取得だと思います。

ということで今回は、perlの標準関数を使用して現在日時の取得及びprint文で出力してみたいと思います。

・viコマンドでファイル作成（前回開設したので省きます）

・以下のコードを書く。

# 文法のチェック
use strict;
use warnings;

# 配列に１週間の日本語名準備
my @wday_char = ('日','月','火','水','木','金','土');

# perl標準関数であるlocaltimeを呼び出し
my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime(time);

# 1900を0とみなして返してくるから+1900
$year += 1900;
# 0オリジンだから+1
$month += 1;

# localtimeの処理結果をprint
print "$year年$month月$mday日($wday_char[$wday]) $hour時$min分$sec秒\n";

※localtime関数で曜日は日曜が0、月曜が1といったような通知をしてくれるので、配列とリンクしています。視覚的にはhashにした方が分かりやすかったかもですかね。はいw

・plファイルの実行

$ perl localtime.pl 
2222年22月22日(火) 22時22分22秒

出力結果は適当に改ざんしましたテヘ。

以上！！

2019-03-14

perlでHello world

perl

前準備：perl実行できるかな？

Mac端末の場合、perlの実行環境がすでにある。はず。

ここではMacの場合のみ説明しますmm

ターミナルから以下のコマンドを入力して、バージョン情報を確認する。

$ perl -v

This is perl 5, version 18, subversion 2 (v5.18.2) built for darwin-thread-multi-2level
(with 2 registered patches, see perl -V for more detail)

Copyright 1987-2013, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

※コマンドの表示結果は私のPCの例なので、参考までに。。

プログラム書こう

1.ファイルの作成

ターミナルから以下のコマンド入力

$ vi hello_world.pl

これでhello_world.plという名前のファイルが作成され、、という感じです。

ファイルの作成は最後の反映までいかないとされませんが、とりあえず作り始めみたいなイメージです。なのでこの時点で作成はされていません。

2.新規のファイルに以下をコピペ

# 文法のチェック
use strict;
use warnings;
# 画面出力
print "Hello World¥n"

3.ファイルのセーブ