開発環境
- 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)の6章(ハッシュ)、6.6(練習問題)1を解いてみる。
その他参考書籍
1.
コード(BBEdit)
sample.pl
#!/usr/bin/env perl use strict; use warnings; use utf8; use 5.016; binmode STDOUT, ':utf8'; binmode STDIN, ':utf8'; my %names = ("fred" => "flintstone", "barney" => "rubble", "wilma" => "flintstone"); while (1) { chomp(my $name = <STDIN>); last if $name =~ /^\s*$/; if ($names{$name}) { print $names{$name}, "\n"; } else { print "その名前はありません。\n"; } }
入出力結果(Terminal)
$ ./sample.pl fred flintstone barney rubble wilma flintstone perl その名前はありません。 $
ちなみにJavaScriptの場合。
コード(BBEdit)
var names = {"fred":"flintstone", "barney":"rubble", "wilma":"flintstone"}, $select = $('#names'), name = $('option:selected', $select).text(), result = names[name]; $('#pre0').text(result);
pythonの場合。
コード(BBEdit)
sample.py
#!/usr/bin/env python3.3 #-*- coding: utf-8 -*- import re names = {"fred":"flintstone", "barney":"rubble","wilma":"flintstone"} while True: name = input() if re.search(r"^\s*$", name): break if name in names.keys(): print(names[name]) else: print("その名前はありません。")
入出力結果(Terminal)
$ ./sample.py fred flintstone barney rubble wilma flintstone python その名前はありません。 $
0 コメント:
コメントを投稿