小函数:模仿perl区间操作

寂寞烈火

我们知道,perl有个区间操作符,..,例如:

/home/lee#perl -e 'print a..z'
abcdefghijklmnopqrstuvwxyz/home/lee#
/home/lee#perl -e 'print A..Z,"\n"'
ABCDEFGHIJKLMNOPQRSTUVWXYZ

在shell里,同样可以实现

1. 
   
2. /home/lee#cat ch
   
3. #!/bin/bash
   
4. [[ $1 == [[:alpha:]] ]]&&[[ $2 == [[:alpha:]] ]]&&(($#==2)) || \
   
5. { echo  "Usage:$(basename $0) <a z>/<A Z>";exit 1; }
   
6. begin=$(echo $1|od -b)
   
7. begin=${begin:8:3}
   
8. end=$(echo $2|od -b)
   
9. end=${end:8:3}
   
10. while((begin<=end));do
    
11.         [[ $begin != *[89] ]] && echo -ne "\\0$begin"
    
12.         ((begin++))
    
13. done
    
14. echo
    

复制代码

test

/home/lee#ch a z
abcdefghijklmnopqrstuvwxyz
/home/lee#ch A Z
ABCDEFGHIJKLMNOPQRSTUVWXYZ
/home/lee#ch x z
xyz
/home/lee#ch a Z #在perl里这个只打印小写26个字母

/home/lee#ch 1 a
Usage:ch <a z>/<A Z>
/home/lee#ch a
Usage:ch <a z>/<A Z>
/home/lee#ch , 4
Usage:ch <a z>/<A Z>
/home/lee#ch df 34
Usage:ch <a z>/<A Z>

大蚂蚁

你啥时候研究perl去了？ shell我还搞不懂，perl我只会请人帮忙。 烈火真是博学！


汗一下，perl的一下就懂了，shell的看了好久还有点晕晕的

是不是perl比shell简单啊？

寂寞烈火

原帖由 大蚂蚁 于 2005-12-26 13:06 发表
你啥时候研究perl去了？ shell我还搞不懂，perl我只会请人帮忙。 烈火真是博学！


汗一下，perl的一下就懂了，shell的看了好久还有点晕晕的

[img]http://bbs.chinaunix.net/images/smilies/em06.gif[/img ...

shell还没吃透呢,哪有时间看别的

waker

火哥，不如开个帖子把这些小片段作一个总的目录吧

寂寞烈火

原帖由 waker 于 2005-12-26 13:48 发表
火哥，不如开个帖子把这些小片段作一个总的目录吧

我是想起一出是一出,等多了之后在整理吧
好好挖掘挖掘,shell潜力大的很呢

[ 本帖最后由 寂寞烈火 于 2005-12-26 14:00 编辑 ]

寂寞烈火

原帖由 Rcfeng 于 2006-1-1 11:53 发表
写perl命令行的时候，加一个-l吧，就不用你每句加\n了。perl的命令行基本可以涵盖甚至替代awk和sed的命令行用法，有兴趣可以看看这个 [url]http://www-128.ibm.com/developerworks/cn/linux/sdk/perl/l-p102/inde ...

perlline 我看过,很实用,

寂寞烈火

1. 
   
2. /home/lee/myfile#cat ch
   
3. #!/bin/bash
   
4. #增加了反向输出,即rev的功效
   
5. #另外加上了对非法输入的判断
   
6. #
   
7. #
   
8. (($#==2))&&( [[ $1$2 == [[:lower:]][[:lower:]] ]] || [[ $1$2 == [[:upper:]][[:upper:]] ]] )||\
   
9. { echo  "Usage:${0##*/} <a z>/<A Z>";exit 1; }
   
10. begin=$(echo $1|od -b)
    
11. begin=${begin:8:3}
    
12. end=$(echo $2|od -b)
    
13. end=${end:8:3}
    
14. #
    
15. if [[ $begin < $end ]];then
    
16.         while((begin<=end));do
    
17.                 [[ $begin != *[89] ]] && echo -ne "\\0$begin"
    
18.                 ((begin++))
    
19.         done
    
20. else
    
21.         while((begin>=end));do
    
22.                 [[ $begin != *[89] ]] && echo -ne "\\0$begin"
    
23.                 ((begin--))
    
24.         done
    
25. fi
    
26. echo

复制代码

test:

/home/lee/myfile#sh ch a i
abcdefghi
/home/lee/myfile#sh ch i c
ihgfedc
/home/lee/myfile#sh ch A i
Usage:ch <a z>/<A Z>
/home/lee/myfile#sh ch A I
ABCDEFGHI
/home/lee/myfile#sh ch i C
Usage:ch <a z>/<A Z>
/home/lee/myfile#sh ch I A
IHGFEDCBA
/home/lee/myfile#sh ch a Z
Usage:ch <a z>/<A Z>
/home/lee/myfile#sh ch A Z

王紫豪

火哥的帖子就是好！

王紫豪

火哥的帖子就是好！

__lxmxn__

经典，收藏了