perl001

#!/usr/bin/perl

@lines = `perldoc -u -f  atan2`

  foreach (@lines) {

 s/\w<([^>]+)>/\U$1/g;
print;

}

posted @ 2010-07-27 10:39  waynechen  阅读(197)  评论(0)  编辑  收藏  举报