摘要：#!/usr/bin/perl@names = qw / fred betty barney dino wilma pebbles bamm-bamm /;@lines = <STDIN>;foreach (@lines){print "$names[$_-1]\n";} 阅读全文

摘要：#!/usr/bin/perl$line = <STDIN>;if ($line eq "\n") {print "that was just a blank line!\n";} else {print "that line of input was :$line";} #!/usr/bin/perl$madonna = <STDIN>;if (defined ($mad... 阅读全文

摘要：比较 数值 字符相等 ＝＝ eq不等 != ne小于 < lt大于 > gt小于等于 <= le大于或等于 >= gechomp 去除字符串的换行符 阅读全文

摘要：#!/usr/bin/perl@lines = `perldoc -u -f atan2` foreach (@lines) {s/\w<([^>]+)>/\U$1/g;print;} 阅读全文