Pytanie : Potrzebować pismo zmienny liczba linia, pole zyskiwanie liczba pole

Cześć,

I potrzeba pomoc z pismo.  Perl, awk, skorupa, liczyć się.  Tutaj być the details

Must brać jeden argument, che być number.

The argument ustalać the numer linia.  The pierwszy pole the linia być the kreskowy liczba.  Pole linia mieć wieloskładnikowy "rejestr, z wieloskładnikowy rejestr 3 pole, using urozmaicony delimiters.  The pierwszy linia mieć jeden rejestr, i pierwszy konsekutywny linia wzrastać the liczba rejestr jeden, do the liczba przechodzić the script.

Sample przesyłać:

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 potrzeba który odmianowy format także.  Kreskowy liczba, fajczany delimiter, pierwszy rejestr, z pierwszy pole oddzielać średnik (oddzielać rejestr mieć 3 pole), tylda delimiter, then następnie rejestr, i więc on.

The numeryczny wartość dla the rejestr liczyć się.  Móc mocno kodować konstanta lub przypadkowy liczba (mniej niż 1000)

Any pomoc doceniać!

Thanks!!

 

Odpowiedź : Potrzebować pismo zmienny liczba linia, pole zyskiwanie liczba pole

Tutaj być the zmodyfikowany kod…
(1):
2:
3:
4:
5:
6:
7:
8:
9:

#! /usr/local/bin/perl
używać surowy;
używać ostrzeżenie;
mój $num = przesunięcie lub kostka do gry "Użycie: $0 \ n";
dla mój $i (1.$num) {
    mój @arr;
    pchnięcie @arr, "$_; 123; 456; 789" dla (1.$i);
    druk "$i|", łączyć ("~", @arr)," \ n ";
}
Inne rozwiązania  
 
programming4us programming4us