Perl - リストと配列(map)

初めてのPerl 第6版
Randal L. Schwartz,
Tom Phoenix, brian d foy 共著
近藤 嘉雪 翻訳

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

『初めてのPerl 第6版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2012年、ISBN978-4-87311-567-2)の3章(リストと配列)、3.11(練習問題)3を解いてみる。

その他参考書籍

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

3.

コード(BBEdit)

sample.pl

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

chomp(my @words = <STDIN>);
@words = sort @words;
print "両方のスタイルで表示\n";
print "1行に出力\n";
print "@words\n";
print "別々の行に出力\n";
print map {"$_\n"} @words;

入出力結果(Terminal)

$ ./sample.pl
1
2
4
2
fred
betty
dino
betty
$

ちなみにJavaScriptの場合。

コード(BBEdit)

var words = [],
    result = "",
    word, i, max;
while( true ) {
    word = prompt("文字列を入力(空白で終了)", "");
    if ( /^\s*$/.test(word) ) {
        break;
    }
    words.push(word);
}
words.sort();
result += words.join(" ") + "\n\n" + words.join("\n");
$('#pre0').text(result);

pythonの場合。

コード(BBEdit)

sample.py

#!/usr/bin/env python3.3
#-*- coding: utf-8 -*-

import re

words = []
while True:
    word = input("文字列を入力: ")
    if re.search(r"^\s*$", word):
        break
    words.append(word)
print(" ".join(words))
print("\n".join(words))

入出力結果(Terminal)

$ ./sample.py
文字列を入力: fred
文字列を入力: barney
文字列を入力: wilma
文字列を入力: betty
文字列を入力: 
fred barney wilma betty
fred
barney
wilma
betty
$