décompresser le nom

Question

quel est le moyen le plus simple de décompresser un nom de données?

Par exemple, changer de forme compressée:

abc[3:0] 

en forme décompressé:

abc[3] 
abc[2] 
abc[1] 
abc[0] 

préférable 1 doublure :)

Answer 1

Ceci est un petit exercice de pyparsing que je l'ai fait dans le passé, adapté à votre exemple (prend également en charge plusieurs plages et index non appariés, tous séparés par des virgules - voir le dernier cas de test):

from pyparsing import (Suppress, Word, alphas, alphanums, nums, delimitedList, 
    Combine, Optional, Group) 

LBRACK,RBRACK,COLON = map(Suppress,"[]:") 

ident = Word(alphas+"_", alphanums+"_") 
integer = Combine(Optional('-') + Word(nums)) 
integer.setParseAction(lambda t : int(t[0])) 
intrange = Group(integer + COLON + integer) 

rangedIdent = ident("name") + LBRACK + delimitedList(intrange|integer)("indexes") + RBRACK 

def expandIndexes(t): 
    ret = [] 
    for ind in t.indexes: 
     if isinstance(ind,int): 
      ret.append("%s[%d]" % (t.name, ind)) 
     else: 
      offset = (-1,1)[ind[0] < ind[1]] 
      ret.extend(
       "%s[%d]" % (t.name, i) for i in range(ind[0],ind[1]+offset,offset) 
       ) 
    return ret 
rangedIdent.setParseAction(expandIndexes) 

print rangedIdent.parseString("abc[0:3]") 
print rangedIdent.parseString("abc[3:0]") 
print rangedIdent.parseString("abc[0:3,7,14:16,24:20]") 

Prints:

['abc[0]', 'abc[1]', 'abc[2]', 'abc[3]'] 
['abc[3]', 'abc[2]', 'abc[1]', 'abc[0]'] 
['abc[0]', 'abc[1]', 'abc[2]', 'abc[3]', 'abc[7]', 'abc[14]', 'abc[15]', 'abc[16]', 'abc[24]', 'abc[23]', 'abc[22]', 'abc[21]', 'abc[20]'] 

Answer 2

En Perl:

#!perl -w 

use strict; 
use 5.010; 

my @abc = qw/ a b c d /; 
say join(" ", reverse @abc[0..3]); 

Ou si vous les vouliez en variables distinctes:

my($abc3, $abc2, $abc1, $abc0) = reverse @abc[0..3]; 

Edit: par votre clarification:

my $str = "abc[3:0]"; 
$str =~ /(abc)\[(\d+):(\d+)\]/; 
my $base = $1; 
my $from = ($2 < $3 ? $2 : $3); 
my $to = ($2 > $3 ? $2 : $3); 
my @strs; 
foreach my $num ($from .. $to) { 
    push @strs, $base . '[' . $num . ']'; 
}