Развернуть 1,3-5,8 в 1,3,4,5,8

1

2

Есть куча конфгов, примерно следующего содержания

config ports 2 state enable description user1 
config ports 6 state enable description user2 
config ports 7 state enable description user3 
config ports 1,3-5,8 state disable description clear

Мне нужно привести к виду:

ports 1 disable clear
ports 2 enable  user1 
ports 3 disable clear
ports 4 disable clear
ports 5 disable clear
ports 6 enable  user2 
ports 7 enable  user3 
ports 8 disable clear

Те развернуть 1,3-5,8 в 1,3,4,5,8 Сейчас делаю так:

cat cfg | awk '/config/{ 
ports[$3,1]=$5
ports[$3,2]=$7}

Но разумеется он не корректно переваривает 1,3-5,8. Как я полагаю нужно предварительно преобразовать строку «config ports 1,3-5,8 state disable description clear» в

config ports 1 state disable clear
config ports 3 state disable clear
config ports 4 state disable clear
config ports 5 state disable clear
config ports 8 state disable clear

но не могу придумать как преобразовать эту последовательность в массив? (что бы потом в awk использовать for ( i in array ) {}. Подскажите пожалуйста куда копать?

Ссылка

←	emacs не запускается

Ввод переменной в bash удаленно

→

stop piping cats!

~~mos~~ ★★☆☆☆
(15.04.15 13:51:35 MSK)

Ответ на: комментарий от mos 15.04.15 13:51:35 MSK

во первых это только в данном примере кат пайпится. в вторых спасибо, почитаю что в этом плохого :)

DeeZ ★
(15.04.15 13:57:34 MSK) автор топика

man gawk на предмет patsplit

Nastishka ★★★★★
(15.04.15 13:58:54 MSK)

Ссылка

$ echo "config ports 2 state enable description user1
config ports 6 state enable description user2
config ports 7 state enable description user3
config ports 1,3-5,8 state disable description clear" | while read A B C REST ; do
  for D in ${C//,/ } ; do
    for E in $( seq ${D%%-*} ${D##*-} ) ; do
      echo "$A $B $E $REST";
    done;
  done;
done

Kroz ★★★★★
(15.04.15 14:07:09 MSK)

Ответ на: комментарий от Kroz 15.04.15 14:07:09 MSK

Kroz, интересный вариант. но иногда встречается что то типа: «config ports 1,3-5,8-10,15» и никогда нельзя быть увереным что их только 2,3 или 4 части.

DeeZ ★
(15.04.15 14:20:41 MSK) автор топика

Ответ на: комментарий от DeeZ 15.04.15 14:20:41 MSK

$ unset RES_TOTAL; for PAT in `echo "1,3-5,8-10,15" | tr ',' ' '`; do  BEGIN=`echo $PAT | awk -F- '{print $1}'`; END=`echo $PAT | awk -F- '{print $2}'`; if [ -n "${END}" ]; then RES=`seq $BEGIN $END | xargs | tr ' ' ','`;  else RES=$PAT; fi; echo "$PAT -> $RES"; RES_TOTAL="${RES_TOTAL}${RES},"; done; echo "total: $RES_TOTAL"
1 -> 1
3-5 -> 3,4,5
8-10 -> 8,9,10
15 -> 15
total: 1,3,4,5,8,9,10,15,

вот такой фарш получился, там еще запятую лишнюю надо убрать, но это уж сам

anonymous
(15.04.15 14:42:23 MSK)

Ссылка

http://rosettacode.org/wiki/Range_expansion#AWK

bl ★★★
(15.04.15 14:42:42 MSK)

Ответ на: комментарий от bl 15.04.15 14:42:42 MSK

bl, оно! спасибо огромное.

DeeZ ★
(15.04.15 14:49:40 MSK) автор топика

Ответ на: комментарий от DeeZ 15.04.15 14:20:41 MSK

никогда нельзя быть увереным что их только 2,3 или 4 части.

А у меня ограничения нет. Проверяй - работает и с 1,3-5,8-10,15 и с чем угодно подобным.
Я просто сам недавно для себя такое делал.

Kroz ★★★★★
(15.04.15 15:09:38 MSK)

Ссылка

Ответ на: комментарий от DeeZ 15.04.15 14:49:40 MSK

http://rosettacode.org/wiki/Range_expansion#AWK
bl, оно! спасибо огромное.

И вот сейчас твой скрипт начнется вот с такого:

| while read A B C REST ; do
...
done

как и у меня.

Kroz ★★★★★
(15.04.15 15:12:53 MSK)

Ответ на: комментарий от DeeZ 15.04.15 13:57:34 MSK

если не понятно что, то ты, возможно, ГСМ или вантузятник. что одно и то же.

~~mos~~ ★★☆☆☆
(15.04.15 15:19:43 MSK)

Ссылка

Ответ на: комментарий от Kroz 15.04.15 15:12:53 MSK

Kroz, :) ну в общем то почти да. За твой вариант тоже спасибо. его немного в другом месте применил.

DeeZ ★
(15.04.15 15:38:37 MSK) автор топика

Ссылка

#!/usr/bin/perl -ln

if (/config/) {
    ($a,$b,$c,$d) =/(ports) (.*) state (enable|disable) description (.*)/;
    map {print "$a $_ $c $d" for /^(.*\d)-(.+)$/ ? $1..$2 : $_} split /,/, $b;
}