Questione : Avere bisogno di uno scritto di stampare un numero delle linee variabile, ciascuno che contiene un numero incrementante dei campi

Ciao, assistenza di bisogno del

I con uno scritto.  Il Perl, awk, coperture, non importa a me.  Qui è il details

Must prende una discussione, che sarà una discussione di number.

The determina il numer delle linee per stampare.  Il primo campo della linea è la linea numero.  Ogni linea avrà “annotazioni„ multiple, con ogni annotazione che ha 3 campi, using i delimitatori varianti.  La prima linea avrà un'annotazione ed ogni linea successiva aumenterà il numero delle annotazioni di una, fino al numero passato allo script.

Sample prodotto:

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; bisogno del 789

I quella disposizione specifica pure.  La linea numero, delimitatore del tubo, prima annotazione, con ogni campo separato dal punto e virgola (ogni annotazione avrà 3 campi), delimitatore di tilde, quindi dopo annotazione ed in modo da i valori numerici di on.

The per le annotazioni non importa.  Potrebbero essere costanti duro codificate o un aiuto del

Any di numero casuale (meno di 1000) sarebbe apprezzato!

Thanks!!

  class= del

Risposta : Avere bisogno di uno scritto di stampare un numero delle linee variabile, ciascuno che contiene un numero incrementante dei campi

Qui è il codice modificato…
1:
2:
3:
4:
5:
6:
7:
8:
9:

#! /usr/local/bin/perl
usare rigoroso;
usare gli avvertimenti;
mio $num = lo spostamento o muoiono “l'uso: $0 \ n„;
per il mio $i (1.$num) {
    il mio @arr;
    spingere il @arr, “$_; 123; 456; 789„ per (1.$i);
    stampa “$i|„, unir (“~„, @arr),„ \ n ";
}
Altre soluzioni  
 
programming4us programming4us