perl解题(国外英文资料).docVIP

perl解题(国外英文资料) 1. unit 1 enter Hello, world this procedure, let it run up. (you can name whatever you like, but a name like ex1_1 is better. It represents the first practice of Chapter 1.) Ex1_1:? #?? /usr/bin/perl! ... print, Hello, world\n.; ? 2 enter the command perldoc -u -f atan2 on the command line, and note its output. =over 8 =item, atan2, Y, X Xatan2, Xarctangent, Xtan, Xtangent ? Returns, the, arctangent, of, Y/X, in, the,, range, -PI, to, PI. For, the, tangent, operation, you, may, use, the, CMath:,: Trig:: tan Function, or, use, the, familiar, relation: ?? Sub, Tan, {sin ($_[0]) / cos ($_[0])}? Note, that, atan2 (0, 0), is, not, well-defined. ? 3 run second examples and observe its output. (Note: enter these punctuation marks correctly). Notice the difference between the output of the second item? Ex1_3:? #?? /usr/bin/perl! @lines=`perldoc, -u, -f, atan2`; ? foreach (@lines) { ???? S/\w (/\U$l/g {^]); What? - print?; ??} =over 8 =item, atan2, Y, X Xatan2, Xarctangent, Xtan, Xtangent Returns, the, arctangent, of, Y/X, in, the,, range, -PI, to, PI. For, the, tangent, operation, you, may, use, the, CMath:,: Trig:: tan Function, or, use, the, familiar, relation: ?? Sub, Tan, {sin ($_[0]) / cos ($_[0])}? Note, that, atan2 (0, 0), is, not, well-defined. 2. unit 1 write a program that calculates the circumference of a circle with a radius of 12.5. The circumference is equal to 2 (Pi Pi is about 3.141592654 times the radius). The answer is 78.5. Ex2_1:? #?? /usr/bin/perl! $c=2*3.141592654*12.5?; Print, $c., \n; ? 2 modify the program, the user can enter the radius when the program is running. If the user enters 12.5, the result is the same as the title above. Ex2_2:? #?? /usr/bin/perl! Chomp? ($r=STDIN); Print, $c=2*3.141592654*$r., \n; ? 3 modify the program, when the user input less than 0 of the number, the program output circumference of 0, rather than negative numbers Ex2_3:? #?? /usr/bin/perl! Chomp? ($r=STDIN); ? if ($r0) { What? - $c=0; ??} Else{? What?