comment compresser un réseau de bus?

Question

J'ai un fichier qui contient énormément de noms de réseaux. Je voudrais compresser les filets de bus comme ci-dessous:

abc/def/gh[0] 
abc/def/gh[1] 
abc/def/gh[2] 
ab/ef/xx 
abc/def/gh[3] 

à

abc/def/gh[3:0] 
ab/ef/xx 

Answer 1

La question n'a pas été claire. Cependant, ce que je suis venu avec:

#!/usr/bin/perl 

use strict; 
use warnings; 

my %data; 
while (<DATA>) { 
    chomp; 
    if (s/^(.+)\[(\d+)\]/$1/) { 
     $data{$1} = $2; 
    } 
    else { 
     $data{$_} = 0; 
    } 
} 

for (keys %data) { 
    if ($data{$_}) { 
     print "$_\[$data{$_}:0\]\n"; 
    } 
    else { 
     print "$_\n"; 
    } 
} 

__END__ 
abc/def/gh[0] 
abc/def/gh[1] 
abc/def/gh[2] 
ab/ef/xx 
abc/def/gh[3] 

Answer 2

Sans entrer dans les moindres détails, il semble que vous voulez

1. Trier les lignes (de tout ordre, non?)
2. Joignez-vous à des lignes adjacentes si elles peuvent être représentés comme préfixe [0: x] ou peut-être le préfixe [x: y] (où les matches de préfixe [az] +)

Ceci est probablement le moyen le plus efficace pour atteindre ce. Le tri regroupera toutes les lignes qui appartiennent ensemble. Et joindre des lignes adjacentes est une opération simple et directe. Si vous savez que toutes les entrées récurrentes commencent à [0] et sont contiguës, alors vous joindre à des lignes adjacentes est encore plus trivial.