この本の説明だと少しやっかいもの扱いされてる感じだったけど、local演算子でダイナミックスコープが実現できる部分は JavaScript に似てて面白いなと思った。 ex04-1.pl #!/usr/bin/perl -w use strict; sub total { my $sum_of_all = 0; foreach (@_) { $…

自分が所属している大学の研究室の同期が言った言葉にゾッとした。 「そんな（細かい実装の）ことなんて、プログラマにやらせればいいじゃん。SEはシステム全体を作るんだから。」 その後も、明らかにプログラマを馬鹿にして、SEの方が価値のある仕事をして…

練習問題の回答だけメモしておく。 ex03-1 #!/usr/bin/perl -w chomp(@lines = <STDIN>); @lines = reverse @lines; foreach (@lines) { print "$_\n"; } ex03-2 #!/usr/bin/perl -w @people = qw/fred betty barney dino wilma pebbles bamm-bamm/; chomp(@lines = <STDIN></stdin></stdin>…