用shell写的rev，以弥补某些没有rev命令的OS之缺憾

admirer

用shell写的rev，以弥补某些没有rev命令的OS之缺憾
请大家测试修正！

1. #!/bin/sh
   
2. #ScriptName:rev
   
3. a="$1"
   
4. i=0
   
5. s=""
   
6. l=`expr length "${a}"`
   
7. while [ $i -lt $l ]
   
8. do
   
9.     i=`expr $i + 1`
   
10.     s="`expr substr "${a}" $i 1`""${s}"
    
11. done
    
12. echo "${s}"

复制代码

如果认为还行的话可以将它命令为rev放入/bin或/usr/bin下，作为系统命令使用
测试

1. # rev 1234567890
   
2. 0987654321
   
3. # rev "12 34 56 78 90"
   
4. 09 87 65 43 21
   
5. # rev "a b c d e f g h ijk lmn o p q rst uvwxyz"
   
6. zyxwvu tsr q p o nml kji h g f e d c b a
   
7. # rev "abcdefghijklmnopqrstuvwxyz"
   
8. zyxwvutsrqponmlkjihgfedcba
   
9. 
   
10. cat a
    
11. 1234567890
    
12. abcdefghij
    
13. 
    
14. while read line
    
15. > do
    
16. > echo ${line} | xargs rev
    
17. > done <a
    
18. 
    
19. 0987654321
    
20. jihgfedcba
    

复制代码

说明:
1.当需要反转的串中含有空格时，请用引号括起来。
2.由于是shell写成，在管道中需要用xargs调用，并且不能批处理

@龙井茶

perl 可以去www.perl.com下载

admirer

[quote]原帖由 "don"]能举几个要用到rev的例子吗？[/quote 发表：
嗯？前面不是已经列举了不少例子了？

don

能举几个要用到rev的例子吗？

ohwww

学习啊,在这些强人面前我只能学习了

bjgirl

来个sed版本的tac!

1. 
   
2. $cat _tac
   
3. #!/bin/ksh
   
4. n=$(cat $1|wc -l)
   
5. while ((n!=0))
   
6.         do
   
7.         sed -n ${n}p $1
   
8.         ((n-=1))
   
9. done
   

复制代码

admirer

好多哟！
大家加油呀！

bjgirl

原帖由 "飞灰橙" 发表：

哈哈，逮到bug罗

谢谢飞哥哥~~ ,不好意思~~

飞灰橙

rev 1 2 3 4 5
54321

这么写就不行了
rev 12345
12345

bjgirl

原帖由 "飞灰橙" 发表：

哈哈，逮到bug罗