Hola,
Para guiar mi petición por escrito un programa de depósito de los siguientes requisitos:
Ejemplo: si el archivo de entrada contiene los siguientes datos

Archivo de entrada de datos:
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
Antecedentes: Después de la primera columna de cada 6 columnas se identifican como setand una primera columna es la clave para identificar los registros.

Tengo que convertir los datos de la siguiente manera:
Archivo de datos de salida:
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



Gracias de antemano,
srinivas

Cualquier cosa que usted intentó aún ¿qué hay de ti y buscando una vez más por su propia cuenta en lugar de esperar a que un correo electrónico cuando el "empleo" ha terminado? Lo siento personal, pero que suena grosero para mí.

Hola Zaxxon,
El formato de datos que he dado es la etapa final donde iam realmente sorprendido, antes de traerlo a esta página otras cosas reales para dividir el archivo en dos archivos y la identificación de la primera columna.

i envió iam que la cuestión no puede seguir adelante ..

Yo no entiendo donde fue grosero PLS explicar ..

Simplemente por publicar su dirección de correo electrónico y pidiendo que se le informe cuando hicimos el trabajo.
Gente aquí es ayudar de la diversión / compasión / un estado de ánimo / aburrimiento, lo que sea. Nadie se le paga por ello por lo que la forma en que se escribió un poco exigente inapropiado.

Yo realmente no quería decir que ...

Según tengo entendido el problema, utilizando Perl (y sus datos de ejemplo) Creo que esto le dará lo que quiere.

#! / usr / bin /perl
my @ campos;
celebrar mi @;
my $ key1;
my $ x;
my $ i;
abierto INPUT, "<file6";
abierto SALIDA, "> OUTFILE";
while (<INPUT>)
(
chomp;
@ campos \u003d split /, /, $ _;
key1 $ \u003d $ campos [0];
@ campos cambio;
mientras que (definido ($ campos [0]))
(
for ($ i \u003d 1; $ i <7, $ i + +)
(
if (defined ($ campos [0]))
(
$ celebrar [$ i] \u003d $ campos [0];
@ campos cambio;
)
algo más
(
última;
)
)
$ x \u003d unir ",", @ celebrar;
$ array1) ($ key1 \u003d $ x;
imprimir SALIDA "$ key1 $ array1 ($ key1) \ n";
@ celebrar \u003d ();
)
)
ENTRADA estrecha;
SALIDA estrecha;