2014年8月26日火曜日

開発環境

初めてのPerl 第6版 (Randal L. Schwartz (著)、brian d foy (著)、Tom Phoenix (著)、近藤 嘉雪 (翻訳)、オライリージャパン)、16章(プロセス管理)の16.9(練習問題)3.を解いてみる。

その他参考書籍

16.9(練習問題)3.

コード(BBEdit, Emacs)

sample3.pl

#!/usr/bin/env perl
# use diagnostics;
use strict;
use warnings;
use 5.016;
use utf8;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

my $date = `date`;

if ($date =~ /\AS.*/) {
    say 'go play';
} else {
    say 'get to work';
}

入出力結果(Terminal)

$ ./sample3.pl
get to work
$

0 コメント:

コメントを投稿