摘要： 1.#!/usr/bin/perl@lines = `perldoc -u -fatan2`;foreach (@lines) { s/\w]+)>/\U$1/g; print;}2.#!/usr/bin/perl$bj = ;$y_zc= 2 * 3.141592654 * ${bj};if($bj le 0 ){ print "Result is 0.\n"; }else{ print "Result is $y_zc.\n";}3.#!/usr/bin/perl$num_1=;$num_2=;$res=$num_1 * $num_2;prin 阅读全文