用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调用，并且不能批处理

bjgirl

弓虽

admirer

sed 版的，更简单些：

1. #!/bin/sh
   
2. #ScriptName:rev
   
3. echo "$1"  | sed '/\n/!G;s/\(.\)\(.*\n\)/&\2\1/;//D;s/.//'

复制代码

用法和注意事项同上。

bjgirl

来个cut版本的rev~~

2. #!/bin/ksh
3. len=${#1}
4. while ((len!=0))
5. do
6. echo $1|cut -b$len-$len
7. ((len-=1))
8. done|tr -d '\n';echo

复制代码

测试:

$rev abcde12345
54321edcba

網中人

我也來段 bash 版的：

1. #!/bin/bash
   
2. IFS=
   
3. for ((i=$((${#1}-1));i>=0;i--))
   
4. do echo -n ${1:$i:1}; done
   
5. echo

复制代码

admirer

顶一下！

c1l2d3

来一个笨版的：
cat rev
IFS=;
m=$1
k=`expr length $m`
while [ "1" -le "$k" ]
do
s=`echo $m | cut -c$k-$k`
echo $s"\c"
done

rev 1234567890
0987654321

飞灰橙

再弄个偷懒的perl版

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. print reverse(split("", $ARGV[0]));

复制代码

c1l2d3

[quote]原帖由 "飞灰橙"][/quote 发表：


楼上飞灰兄：给一个sco下的perl安装，可以吗？多谢

飞灰橙

sry, 偶也没有：（