2007-11-26から1日間の記事一覧
練習問題の回答をメモ。 ex15-1 #!/usr/bin/perl my @numbers = qw( 17 1000 04 1.50 3.14159 -10 1.5 4 2001 90210 666 ); my @sorted_numbers = sort {$a <=> $b} @numbers; printf "%20s\n", $_ foreach (@sorted_numbers); %s だと文字列として扱われる…
練習問題の回答をメモ。 ex15-1 #!/usr/bin/perl my @numbers = qw( 17 1000 04 1.50 3.14159 -10 1.5 4 2001 90210 666 ); my @sorted_numbers = sort {$a <=> $b} @numbers; printf "%20s\n", $_ foreach (@sorted_numbers); %s だと文字列として扱われる…