Вопрос : Нужно сценарий напечатать переменное количество линий, каждое содержа инкрементируя количество полей

Hi, помощь потребности

I с сценарием.  Perl, awk, раковина, не имеет значение к мне.  Здесь details

Must принимает одним аргументом, который будет аргумент number.

The обусловливает numer линий для того чтобы напечатать.  Первым полем линии будет линия номер.  Каждая линия будет иметь множественные «показатели», при каждый показатель имея 3 поля, using меняя разграничители.  Первая линия будет иметь один показатель, и каждая последовательная линия увеличит число показателей одним, до номера переданного к ому script.

Sample:

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; потребность 789

I та специфически форма также.  Линия номер, разграничитель трубы, первый показатель, при каждое поле отделенное semicolon (каждый показатель будет иметь 3 поля), разграничитель tilde, тогда затем показатель, и поэтому значения on.

The численные для показателей не имеет значение.  Они smogли быть крепко закодированными константами или была бы оценена произвольно-пронумерованная (помощь

Any более менее чем 1000)!

Thanks!!

  class=

Ответ : Нужно сценарий напечатать переменное количество линий, каждое содержа инкрементируя количество полей

Здесь доработанное Кодий…

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

#! /usr/local/bin/perl используйте только; используйте предупреждения; мо $num = перенос или умирают «использование: $0 \ n»; для моего $i (1.$num) { мое @arr; нажмите @arr, «$_; 123; 456; 789» для (1.$i); печать «$i|», соедините («~», @arr),» \ n "; }