会员
众包
新闻
博问
AI培训
云市场
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
waynechen
博客园
首页
新随笔
联系
管理
订阅
perl001
#!/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
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告