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 "; }