2006-09-21から1日間の記事一覧

3章 章末問題

3-1 #!/usr/bin/perl -w chomp(@lines = <STDIN>); foreach (reverse @lines) { print "$_ "; }foreachが余計だった。 3-2 #!/usr/bin/perl -w @person = qw(fred betty barney dino wilma pebbles bamm-bamm); chomp(@lines = <STDIN>); foreach (@lines) { print "$perso</stdin></stdin>…

1章 練習問題

1-1 #!/usr/bin/perl print "Hello, world!\n"; 1-3 #!/usr/bin/perl -w @lines = `perldoc -u -f atan2`; foreach (@lines) { s/\w<([^>]+)>/\U$1/g; print; }<>で囲まれた部分の直前の文字が消え大文字になった。

2章 練習問題

2-1 #!/usr/bin/perl -w $r = 12.5; print "enshu:", 2 * 3.141592654 * $r, "\n"; 2-2 #!/usr/bin/perl -w chomp($r = <STDIN>); print "enshu:", 2 * 3.141592654 * $r, "\n";模範解答では円周率の方を変数に入れてた。定数だからか。 2-3 #!/usr/bin/perl -w cho</stdin>…