Fråga : Behöv en skriva att skriva ut en variabel numrerar av fodrar, varje som innehåller öka, numrerar av sätter in

Hi behovshjälp för

I med en skriva.  Perl awk, beskjuter, betyder inte till mig.  Är här details
Must tar ett argument, som ska är ett argument för number.

The bestämmer numeren av fodrar för att skriva ut.  Första sätter in av fodra är fodra numrerar.  Varje fodrar ska har multipel”rekord, med varje rekord som har 3, sätter in, using varierande delimiters.  Första fodrar ska har ett rekord, och varje i rad fodrar ska förhöjning numrera av rekord vid ett, upp till numrera som passeras till den tillverkade 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; behov för 789

I som närmare detalj formaterar som väl.  Fodra numrerar, leda i rör delimiteren, det första rekordet, med varje sätter in avskilt av semikolon (varje ska rekord har 3 sätter in), tildedelimiter, då därefter rekordet och så numerisk on.

The värderar för rekorden betyder inte.  De kunde vara hårda kodade konstanter, eller ett slumpmässigt numrerar skulle hjälp för

Any (för mer mindre än 1000) uppskattas!

Thanks!!

  " klar "

Svar : Behöv en skriva att skriva ut en variabel numrerar av fodrar, varje som innehåller öka, numrerar av sätter in

Är här ändrad kodifierar…,
1:
2:
3:
4:
5:
6:
7:
8:
9:

nr.! /usr/local/bin/perl
använd strikt;
använd varningar;
mitt $num = förskjutnings- eller matris”användning: $0 \ n”;
för min $i (1. $num) {
    min @arr;
    skjut @arr, ”$_; 123; 456; 789” för (1. $i);
    tryck ”$i|sammanfoga (”~”, @arr),” \ n ",”;
}
Andra lösningar  
 
programming4us programming4us