Frage : Einen Index benötigen, eine variable Zeilenzahl, jede zu drucken, die eine erhöhende Anzahl von Feldern enthält

Hallo,

I Notwendigkeitsunterstützung mit einem Index.  Perl, awk, Oberteil, macht nicht zu mir aus.  Sind hier das details

Must nehmen ein Argument, das ein number.

The Argument feststellt das numer der Linien, um zu drucken ist.  Das erste Feld der Linie ist die Linie Zahl.  Jede Linie hat mehrfache „Aufzeichnungen“, wenn jede Aufzeichnung 3 Felder, using unterschiedliche Begrenzer hat.  Die erste Linie hat eine Aufzeichnung, und jede nachfolgende Linie erhöht die Zahl Aufzeichnungen um eine, bis zur Zahl, die zum script.

Sample ausgegeben geführt wird:

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 Notwendigkeit dieses spezifische Format außerdem.  Linie Zahl, Rohrbegrenzer, erste Aufzeichnung, wenn jedes Feld durch Semikolon getrennt ist (jede Aufzeichnung hat 3 Felder), Tildebegrenzer, dann zunächst Aufzeichnung und also on.

The numerische Werte für die Aufzeichnungen macht nicht aus.  Sie konnten fest verdrahtete Konstanten sein, oder eine Zufallszahlen (weniger als 1000) das

Any Hilfe würde geschätzt!

Thanks!!

 

Antwort : Einen Index benötigen, eine variable Zeilenzahl, jede zu drucken, die eine erhöhende Anzahl von Feldern enthält

Ist hier der geänderte Code…
1:
2:
3:
4:
5:
6:
7:
8:
9:

#! /usr/local/bin/perl
strenges verwenden;
Warnungen verwenden;
mein sterben $num = Verschiebung oder „Verbrauch: $0 \ n“;
für mein $i (1.$num) {
    mein @arr;
    @arr drücken, „$_; 123; 456; 789“ für (1.$i);
    Druck „$i|“, verbinden („~“, @arr),“ \ n ";
}
Weitere Lösungen  
 
programming4us programming4us