Hoi,
Verzoek om gids mij in het schrijven van een shell-programma voor de volgende eis:
Voorbeeld: als de Input bestand bevat de volgenden gegevens

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
Achtergrond: na de eerste kolom om de 6 kolommen zijn geïdentificeerd als een setand eerste kolom is de sleutel tot het identificeren van de records.

Ik heb voor het converteren van de gegevens als volgt:
Output File 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

Alles wat u probeerde nog wat over jezelf en zoek hier weer op uw eigen plaats van te wachten op een e-mail wanneer het "werk" is klaar! Sorry mensen, maar dat klinkt onbeleefd tegen me.

Hi Zaxxon,
Het formaat van de gegevens die ik heb is de laatste fase waarin iam daadwerkelijk geslagen, alvorens te brengen aan deze pagina andere dingen op te splitsen in twee feitelijke bestand bestand en de identificatie van de eerste kolom.

i gepost op de vraag waarin iam niet verder ..

Ik heb niet begrepen waar het was onbeleefd pls uitleggen ..

Detachering gewoon uw e-mailadres en het verzoek om te worden geïnformeerd als wij hebben uw werk.
Mensen zijn hier helpen plezier / mededogen / a mood / verveling, wat dan ook. Niemand krijgt betaald voor het zo de manier waarop u schreef was enigszins veeleisende een ongepast.

Ik eigenlijk niet zeggen dat ...

Zoals ik begrijp uw probleem, met behulp van Perl (en uw monster gegevens) Ik denk dat dit zal je wat je wilt.

#! / usr / bin /perl
my @ velden;
my @ houden;
my $ key1;
my $ x;
my $ i;
open INPUT, "<file6";
open OUTPUT, "> hetbestand";
while (<input>)
(
chomp;
@ velden \u003d split /, /, $ _;
$ key1 \u003d $ velden [0];
verschuiving @ velden;
while (defined ($ velden [0]))
(
for ($ i \u003d 1; $ i <7; $ i + +)
(
if (defined ($ velden [0]))
(
$ hold [$ i] \u003d $ velden [0];
verschuiving @ velden;
)
anders
(
laatste;
)
)
$ x \u003d meedoen ",", @ houden;
$ matrix1 ($ key1) \u003d $ x;
print OUTPUT "$ key1 $ matrix1 ($ key1) \ n";
@ houden \u003d ();
)
)
nauwe INPUT;
nauwe OUTPUT;