Question : Avoir besoin d'un manuscrit pour imprimer un nombre de lignes variable, chacun qui contient un nombre de incrémentation de champs

Bonjour, aide du besoin du

I avec un manuscrit.  Perl, awk, coquille, n'importe pas à moi.  Voici le details

Must prennent un argument, qui sera un argument de number.

The détermine le numer des lignes pour imprimer.  Le premier champ de la ligne est la ligne nombre.  Chaque ligne aura les « disques » multiples, avec chaque disque ayant 3 champs, using les délimiteurs variables.  La première ligne aura un disque, et chaque ligne consécutive augmentera le nombre de disques d'un, jusqu'au nombre passé au script.

Sample produit :

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 ; le besoin du 789

I ce format spécifique aussi bien.  La ligne nombre, le délimiteur de pipe, le premier disque, avec chaque champ séparé par point-virgule (chaque disque aura 3 champs), délimiteur de tilde, puis après disque, et ainsi valeurs numériques d'on.

The pour les disques n'importe pas.  Ils pourraient être des constantes dur codées ou une aide à nombre aléatoire du

Any (plus moins de de 1000) serait appréciée !

Thanks ! !

  class= de

Réponse : Avoir besoin d'un manuscrit pour imprimer un nombre de lignes variable, chacun qui contient un nombre de incrémentation de champs

Voici le code modifié…

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 :

# ! /usr/local/bin/perl employer strict ; employer les avertissements ; mon $num = décalage ou meurent la « utilisation : $0 \ n » ; pour mon $i (1.$num) { mon @arr ; pousser le @arr, « $_ ; 123 ; 456 ; 789 » pour (1.$i) ; copie « $i| », joindre (« ~ », @arr), » \ n " ; }