请教 如何做大小写变换

waker

awk 'BEGIN{FS=OFS=""}{for(i=2;i<=NF;i++)if($(i-1)~/[^a-z]/)$i=toupper($i);$1=toupper($1);print}'

改一下，那个有逻辑问题

woodie

这个帖子好热呀！前面sed查表的技巧很炫，不过总是感觉太麻烦了。
我来两个perl的，供大家参考：

1. echo "abc_def_hig1"|perl -pe 's/([a-zA-Z]+)/ucfirst($1)/ge'
   
2. echo "abc_def_hig1"|perl -pe 's/(?<![a-zA-Z])([a-z])/uc($1)/ge'
   

复制代码

r2007

没有环境测试，不过这个真简单
有学perl的冲动！
假如有一天，perl成为所有*nix的标配就好了

woodie

原帖由 r2007 于 2005-12-16 11:09 发表
没有环境测试，不过这个真简单
有学perl的冲动！
假如有一天，perl成为所有*nix的标配就好了

7兄应该学学，perl真的不错的。

我最爱的是它的正则，非常强大，所以有时我喜欢用它来代替sed用，使用强大的正则的同时写出简洁的1liner。
perl有许多现成的模块，几乎可以用来作任何事情--也许我有些言过其实了。
perl的毁誉参半特点的是它的灵活性，做一件事可以有很多种方法，这是它的可爱之处，同时又时它的可恨之处。

If you love him, tell him to learn perl; If you hate him, tell him to learn perl.


[ 本帖最后由 woodie 于 2005-12-16 12:20 编辑 ]

r2007

So, why do you suggest me to learn perl? love, hate, both, or whatever?^_^

woodie

原帖由 r2007 于 2005-12-16 11:57 发表
So, why do you suggest me to learn perl? love, hate, both, or whatever?^_^

嗯～～～～人家不要啦！“我爱版 猪 ”讲出来好难为情的！
你的头像真的挺可爱！^_^

寂寞烈火

热贴呀~~~

大蚂蚁

原帖由 寂寞烈火 于 2005-12-16 12:35 发表
热贴呀~~~

shell版面在首页好像有两个热帖了

sidac

以前看过类似的例子，没有环境，不知道对不对，请各位指教。
echo "abc_def_hig1"|tr ":lower:" ":upper:"

寂寞烈火

原帖由 sidac 于 2005-12-19 19:51 发表
以前看过类似的例子，没有环境，不知道对不对，请各位指教。
echo "abc_def_hig1"|tr ":lower:" ":upper:"

不过你的不符合题目的意思的 @_~