如何对一行数据进行整理?

hppyhjh

比如有一行内容:

123, 111, 101, 201-205, 300

如何将其整理为:

123 111 101 201 202 203 204 205 300

谢谢!

Iambitious

2. #!/bin/bash
4. if [ "x$1" == "x" ];then
5.         str="123,111,101,201-205,300"
6. else
7.         str=$1
8. fi
10. index=0;
12. for i in ${str//","/" "};do
13.         if [ `expr index $i "-"` -eq 0 ];then
14.                 res[$index]=$i
15.                 index=$((index+1))
16.         else
17.                 low=${i%-*}
18.                 high=${i#*-}
19.                 for((j = $low; j <= $high; j++));do
20.                         res[$index]=$j
21.                         index=$((index+1))
22.                 done;
23.         fi
24. done
25. echo ${res[@]}

复制代码

grassofhust

1. 
   
2. #!/bin/bash
   
3. str="123, 111, 101, 201-205, 300"
   
4. str=$( echo $str | sed 's/,//g' )
   
5. headstr=$( echo $str |awk '{print $1,$2,$3}')
   
6. midstr=$(echo $str|awk '{print $4}')
   
7. tailstr=$(echo $str|awk '{print $5}')
   
8. m=$(echo $midstr|awk -F\- '{print $1}')
   
9. n=$(echo $midstr|awk -F\- '{print $2}')
   
10. while [ $m -le $n ]
    
11. do
    
12.         joinstr=$(echo -n $joinstr && echo -n " $m")
    
13.         ((m++))
    
14. done
    
15. str=$(echo $str|sed "s/$midstr/$joinstr/g")
    
16. echo $str
    

复制代码

huan

如果不介意我把数字顺序打乱的话

2. prayaya@prayaya:~$ echo 123, 111, 101, 201-205, 300, 1-3 | perl -pe 's/,//g; s/(\d+)-(\d+)/print "$_ " for ($1..$2)/eg'
3. 201 202 203 204 205 1 2 3 123 111 101  300
4. prayaya@prayaya:~$

复制代码

Iambitious

Post by grassofhust

1. 
   
2. #!/bin/bash
   
3. str="123, 111, 101, 201-205, 300"
   
4. str=$( echo $str | sed 's/,//g' )
   
5. headstr=$( echo $str |awk '{print $1,$2,$3}')
   
6. midstr=$(echo $str|awk '{print $4}')
   
7. tailstr=$(echo $str|awk '{print $5}')
   
8. m=$(echo $midstr|awk -F\- '{print $1}')
   
9. n=$(echo $midstr|awk -F\- '{print $2}')
   
10. while [ $m -le $n ]
    
11. do
    
12.         joinstr=$(echo -n $joinstr && echo -n " $m")
    
13.         ((m++))
    
14. done
    
15. str=$(echo $str|sed "s/$midstr/$joinstr/g")
    
16. echo $str
    

复制代码

对格式的要求过于严厉了些。

grassofhust

Post by Iambitious
对格式的要求过于严厉了些。

谢谢提醒。

2. #!/bin/bash
3. str="123, 111, 101, 201-205, 300"
4. str=$( echo $str | sed 's/,//g' )
5. m=1;bool=1
6. while [ $bool -ne 0 ]
7. do
8.     targetstr=`echo $str | cut -d" " -f"$m"`
9.     ((m++))
10.     if echo $targetstr | grep "..*-..*" > /dev/null 2>&1 ; then
11.         bool=0
12.     fi
13. done
14. i=`echo $targetstr|cut -d- -f1`
15. j=`echo $targetstr|cut -d- -f2`
16. while [ $i -le $j ]
17. do
18.         joinstr=$(echo -n $joinstr && echo -n " $i")
19.         ((i++))
20. done
21. str=$(echo $str|sed "s/$targetstr/$joinstr/g")
22. echo $str

复制代码

njkzkj

$ cat test.pl
#!/usr/bin/perl
$lists=$ARGV[0];
$lists=~ s/-/../g;
eval ( "print join (\" \",($lists))");

lastart

echo "123, 111, 101, 201-205, 300"|awk 'BEGIN{RS="[, ]*";FS="-"} {do{print $1;$1++;}while($2-$1>=0) }'

njkzkj

Post by lastart
echo "123, 111, 101, 201-205, 300"|awk 'BEGIN{RS="[, ]*";FS="-"} {do{print $1;$1++;}while($2-$1>=0) }'

在有负数的情况下不行
echo "-2, 111, 101, 201-205, 300"|awk 'BEGIN{RS="[, ]*";FS="-"} {do{print $1;$1++;}while($2-$1>=0) }'                                             

1
2
111
101
201
202
203
204
205
300

其实上面其它的实现也有不行的
还有人想出什么办法呐

Iambitious

Post by grassofhust
谢谢提醒。

2. #!/bin/bash
3. str="123, 111, 101, 201-205, 300"
4. str=$( echo $str | sed 's/,//g' )
5. m=1;bool=1
6. while [ $bool -ne 0 ]
7. do
8.     targetstr=`echo $str | cut -d" " -f"$m"`
9.     ((m++))
10.     if echo $targetstr | grep "..*-..*" > /dev/null 2>&1 ; then
11.         bool=0
12.     fi
13. done
14. i=`echo $targetstr|cut -d- -f1`
15. j=`echo $targetstr|cut -d- -f2`
16. while [ $i -le $j ]
17. do
18.         joinstr=$(echo -n $joinstr && echo -n " $i")
19.         ((i++))
20. done
21. str=$(echo $str|sed "s/$targetstr/$joinstr/g")
22. echo $str

复制代码

这个代码对于1-3,4-6,7-9这样的行，无法进行有效的处理。