waynechen

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

posted @ 2010-07-27 10:39 waynechen 阅读(195) 评论(0) 推荐(0) 编辑