Perl, Python - リファレンスとスコープ(ハッシュリファレンス)

続・初めてのPerl 改訂版
Randal L. Schwartz
brian d foy, Tom Phoenix 著

開発環境

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

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール/長尾 高弘 訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9)の5章(リファレンスとスコープ)の5.9(練習問題)1を解いてみる。

その他参考書籍

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

1.

コード(BBEdit)

sample.pl

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

# 波括弧ではなく丸括弧に修正
my %passegner_1 = (
    name => 'Ginger',
    age => 22,
    occupation => 'Movie Start',
    real_age => 35,
    hat => undef,
);

my %passegner_2 = (
    name => 'Mary Ann',
    age => 19,
    hat => 'bonnet',
    favorite_food => 'corn',
);

my @passengers = (\%passegner_1, \%passegner_2);

入出力結果(Terminal)

$ ./sample.pl
$

ちなみにpython3.3の場合。

コード(BBEdit)

sample.py

#!/usr/bin/env python3.3
## Copyright (C) 2013 by kamimura
#-*- coding: utf-8 -*-

passenger_1 = {
    'name': 'Ginger',
    'age': 22,
    'occupation': 'Movie Start',
    'real_age': 35,
    'hat': None
}

passenger_2 = {
    'name': 'Mary Ann',
    'age': 19,
    'hat': 'bonnet',
    'favorite_food': 'corn'
}

passengers = [passenger_1, passenger_2]

入出力結果(Terminal)

$ ./sample.py
$