Hej,
Anmodning om at vejlede mig i at skrive et shell-program for de følgende krav:
Eksempel: Hvis Input fil indeholder follwing data

Input File Data:
80723240029,12,323,443,88,98,7,98,67,87
80723240030,12,56,6,,, 3,12,56,6,7,2,3,12,56,6,7,2,3,88,98,7,98,67,87
80723240031,56,57, d, 88,98,7,98,67,87,88,98,7,98,67,87
80723250032,45, hg, 3
Baggrund: Efter første kolonne hver 6. kolonner er identificeret som en setand første kolonne er nøglen til at identificere de registre.

Jeg er nødt til at konvertere data som følger:
Outputfil Data:
80723240029,12,323,443,88,98,7
80723240029,98,67,87
80723240030,12,56,6,,, 3
80723240030,12,56,6,7,2,3
80723240030,12,56,6,7,2,3
80723240030,88,98,7,98,67,87
80723240031,56,57, d, 88,98,7
80723240031,98,67,87,88,98,7
80723240031,98,67,87
80723250032,45, hg, 3



Thanks in Advance,
Srinivas

Noget du prøvet endnu dig selv og hvad med at se her på din egen i stedet for at vente på en mail, når den "job" er færdig! Beklager personale, men det lyder uhøfligt at mig.

Hi Zaxxon,
De data format, som jeg gav, er den sidste fase, hvor nu faktisk slog forud for at bringe den til denne side andre ting at opsplitte faktiske fil i to fil og identificere den første kolonne.

Jeg indsendt spørgsmålet hvori nu ude af stand til at komme videre ..

Jeg forstod ikke, hvor det var uhøfligt pls forklare ..

Blot sende dine e-mail-adresse og bede om at blive orienteret, når vi gjorde dit arbejde.
Folk her er at hjælpe ud af sjov / medfølelse / a stemning / kedsomhed, uanset. Ingen bliver betalt for det, for den måde, du skrev var noget krævende en uhensigtsmæssig.

Jeg egentlig ikke mener det ...

Som jeg forstår dit problem, ved hjælp af Perl (og dine prøve data) Jeg mener, at dette vil give dig hvad du ønsker.

#! / usr / bin /perl
min @ områder;
min @ hold;
min $ key1;
min $ x;
min $ i;
Ã¥bne INPUT, "<file6";
Ã¥bne OUTPUT "> outfile";
while (<input>)
(
chomp;
@ felter \u003d split /, /, $ _;
$ key1 \u003d $ felter [0];
skift @ områder;
mens (defineret ($ felter [0]))
(
for ($ i \u003d 1; $ i <7; $ i + +)
(
if (defined ($ felter [0]))
(
$ hold [$ i] \u003d $ felter [0];
skift @ områder;
)
anden
(
sidste;
)
)
$ x \u003d slutte ",", @ hold;
$ matrix1 ($ key1) \u003d $ x;
print OUTPUT "$ key1 $ matrix1 ($ key1) \ n";
@ hold \u003d ();
)
)
tæt INPUT;
tæt OUTPUT;