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;
}

<>で囲まれた部分の直前の文字が消え大文字になった。