2011年5月20日金曜日

開発環境

  • Mac OS X Snow Leopard (OS)
  • TextWrangler icon(Text Editor) (いずれはBBEditを入手したい!)
  • Script言語:Perl

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

 

3.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

すべとの文字列を1行に出力することも、別々の行に出力することも、どちらのスタイルでも表示できる。

1行に出力するバージョン

コード(TextWrangler)

#!/usr/bin/perl

use warnings;

# 文字列のリストを(1行に1個ずつ)入力の終わりまで読み込む
# 同時に改行を削除
chomp( @strings = <STDIN> );

# ASCIIコード順にソート
@strings = sort @strings;

# 表示
print "ASCIIコード順に表示\n";

foreach ( @strings ) {
  print $_." ";
}
print "\b\n";

入出力結果(Ternimal)

別々の行に出力するバージョン

コード(TextWrangler)

#!/usr/bin/perl

use warnings;

# 文字列のリストを(1行に1個ずつ)入力の終わりまで読み込む
@strings = <STDIN>;

# ASCIIコード順にソート
@strings = sort @strings;

# 表示
print "ASCIIコード順に表示\n";
print @strings;

入出力結果(Ternimal)

0 コメント:

コメントを投稿