プログラミング学習の記録 632.2 9章(リファレンスを使った実践的なテクニック)の練習問題3 『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール／長尾 高弘 訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9)

開発環境

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

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

 

3.

コード(TextWrangler)

#!/usr/bin/perl
#!/usr/bin/perl
use strict;
use warnings;

chomp(my @strings=);

# シュワルツ変換
my @dictionary =
  map $_->[0],
  sort { $a->[1] cmp $b->[1] }
  map {
    my $string = $_;
    $string =~ tr/A-Z/a-z/;
    $string =~ tr/a-z//cd;
    [$_, $string]
    } @strings;

print "@dictionary\n";

大文字と小文字のさや記号に違いを無視して「辞書順」に単語のリストがソートされてるか確認。

入出力結果(Terminal)

$ ./my_program abc ABC abc cba cab bca bac cba $ccc b$b aa$a aa$a abc ABC abc bac b$b bca cab cba cba $ccc

確認できた！