Perl - さまざまな制御構造(defined-or 演算子「//」と未定義値、偽になる値)

初めてのPerl 第6版
(オライリージャパン)
Randal L. Schwartz (著) brian d foy (著)
Tom Phoenix (著), 近藤 嘉雪 (翻訳)

開発環境

• OS X Mavericks - Apple(OS)
• BBEdit - Bare Bones Software, Inc., Emacs (Text Editor)
• Perl (プログラミング言語)

初めてのPerl 第6版 (Randal L. Schwartz (著)、brian d foy (著)、Tom Phoenix (著)、近藤 嘉雪 (翻訳)、オライリージャパン)、10章(さまざまな制御構造)の10.11(練習問題)3.を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

10.11(練習問題)3.

コード(BBEdit, Emacs)

sample234_2.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';

$ENV{DEBUG} = undef;
$ENV{ZERO} = 0;

my $cols = 0;

for (keys %ENV) {
    my $l = length $_;
    if ($l > $cols) {
        $cols = $l;
    }
}

for (sort keys %ENV) {
    $ENV{$_} = $ENV{$_} // 'undefined value';
    printf "%-${cols}s: %s\n", $_, $ENV{$_};
}

入出力結果(Terminal)

$ ./sample234_3.pl 
…
COLUMNS                   : 80
DEBUG                     : undefined value
DISPLAY                   : kamimuras-MacBook-Pro.local
EMACS                     : t
…
USER                      : kamimura
ZERO                      : 0
_                         : ./sample234_3.pl
$