Cuestión : Necesitar una escritura imprimir un número variable de líneas, cada uno que contiene un número de incremento de campos

Hola, ayuda de la necesidad del

I con una escritura.  El Perl, awk, cáscara, no importa a mí.  Aquí está el details

Must toma una discusión, que será una discusión de number.

The determina el numer de líneas para imprimir.  El primer campo de la línea es la línea número.  Cada línea tendrá “expedientes múltiples”, con cada expediente teniendo 3 campos, usar delimitadores diversos.  La primera línea tendrá un expediente, y cada línea consecutiva aumentará el número de expedientes en uno, hasta el número pasajero al script.

Sample hecho salir:

1|123; 456; 789
2|123; 456; 789~123; 456; 789
3|123; 456; 789~123; 456; 789~123; 456~789
4|123; 456; 789~123; 456; 789~123; 456~789~123; 456; necesidad del 789

I ese formato específico también.  La línea número, delimitador de la pipa, primer expediente, con cada campo separado por punto y coma (cada expediente tendrá 3 campos), delimitador del tilde, después después expediente, y así que los valores numéricos de on.

The para los expedientes no importa.  ¡Podrían ser constantes difícilmente cifrados o una ayuda del

Any del número al azar (menos de 1000) sería agradecida! ¡

Thanks!!

  class= del

Respuesta : Necesitar una escritura imprimir un número variable de líneas, cada uno que contiene un número de incremento de campos

Aquí está el código modificado…
1:
2:
3:
4:
5:
6:
7:
8:
9:

¡#! /usr/local/bin/perl
utilizar terminante;
utilizar las advertencias;
mi $num = el cambio o mueren “uso: $0 \ n”;
para mi $i (1.$num) {
    mi @arr;
    empujar el @arr, “$_; 123; 456; 789” para (1.$i);
    impresión “$i|”, ensamblar (“~”, @arr),” \ n ";
}
Otras soluciones  
 
programming4us programming4us