Salve,
Richiesta di guida me la scrittura di un programma per la shell il seguente requisito:
Esempio: se il file di input dei dati contiene il seguente

File di input dei dati:
80723240029,12,323,443,88,98,7,98,67,87
80723240030,12,56,6,,, 3,12,56,6,7,2,3,12,56,6,7,2,3,88,98,7,98,67,87
80723240031,56,57, d, 88,98,7,98,67,87,88,98,7,98,67,87
80723250032,45, hg, 3
Contesto: Dopo la prima colonna di ogni 6 colonne sono identificate come uno setand prima colonna è la chiave per identificare i record.

Devo convertire i dati come segue:
Output File di dati:
80723240029,12,323,443,88,98,7
80723240029,98,67,87
80723240030,12,56,6,,, 3
80723240030,12,56,6,7,2,3
80723240030,12,56,6,7,2,3
80723240030,88,98,7,98,67,87
80723240031,56,57, d, 88,98,7
80723240031,98,67,87,88,98,7
80723240031,98,67,87
80723250032,45, hg, 3



Grazie in anticipo,
Srinivas

Tutto ciò che si è tentato ancora di te e su ciò che qui in cerca di nuovo sul proprio posto di attesa per una mail quando il "lavoro" è finito? Siamo spiacenti di personale, ma che suona maleducato a me.

Hi Zaxxon,
Il formato dei dati che ho dato è la fase finale in cui iam effettivamente colpito, prima di portarlo a questa pagina le altre cose di dividere file in due file e individuare la prima colonna.

Ho inviato la domanda per cui iam non procedere ulteriormente ..

Non ho capito dove è stato maleducato spiegare pls ..

Basta inserire il tuo indirizzo email e chiedendo di essere informato quando abbiamo fatto il vostro lavoro.
Aiutare le persone qui sono fuori di divertimento / compassione / a umore / noia, qualunque sia. Nessuno viene pagato per il modo in cui lo hai scritto è stato un po 'esigente uno inappropriato.

Io in realtà non significa che ...

Per quanto ho capito il problema, utilizzando Perl (e il campione dei dati) Credo che questo vi darà ciò che desideri.

#! / usr / bin /perl
my @ campi;
@ mio possesso;
my $ Key1;
my $ x;
my $ i;
INGRESSO aperto, "<file6";
aperto OUTPUT, "> outfile";
while (<input>)
(
chomp;
@ campi \u003d split /, /, $ _;
Key1 \u003d $ $ campi [0];
spostamento @ settori;
while (defined ($ campo [0]))
(
for ($ i \u003d 1; $ i <7; $ i + +)
(
if (defined ($ campo [0]))
(
$ tenere [$ i] \u003d $ campo [0];
spostamento @ settori;
)
altro
(
ultimo;
)
)
$ x \u003d join ",", @ tenere;
$ array1) ($ Key1 \u003d $ x;
stampa "Key1 $ $ array1 ($ Key1) \ n";
@ tenere \u003d ();
)
)
INGRESSO vicino;
USCITA vicino;