Szia,
Kérés orientálásához nekem írásban egy shell program a következő követelménynek:
Példa: Ha a bemeneti fájl tartalmazza a follwing adatok

Bemeneti File adatok:
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
Előzmények: Az első oszlop minden 6 oszlopok az egyik setand első oszlop a legfontosabb, hogy azonosítsa azokat a nyilvántartásokat.

El kell konvertálni az adatokat az alábbiak szerint:
Output File adatok:
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

Bármi, amit próbáltam még magad, és mit keres itt mintegy saját helyett vár egy mail, ha a "munka" végeztével? Sajnos a személyzet, de a hangok durva nekem.

Szia Zaxxon,
Az adatok formátumát, amelyet én adtam a végső szakaszában, ahol most valóban ütött előtt annak érdekében, hogy erre az oldalra, többek split tényleges fájl két fájlt, és azonosítja az első oszlopban.

I posted a kérdést, ahol most nem tudja tovább ..

Én nem értem, ha azt a goromba pls magyarázni ..

Egyszerűen kiküldetés e-mail címét és kéri, hogy tájékoztassák, amikor nem a munkát.
Az emberek itt is segít a szórakozás / részvét / a mood / unalom, bármi. Senki nem kap fizetett úgy, ahogy írta kissé igényesebb alkalmatlan.

Én tulajdonképpen nem jelenti azt, hogy ...

Ahogy én értem a problémát, a Perl (és a minta-adatok) Úgy vélem, ez fog adni, hogy mit akarsz.

#! / usr / bin /perl
my @ területeken;
my @ tartsa;
my $ key1;
my $ x;
my $ i;
BEMENET nyitott, "<file6";
nyitott OUTPUT, "> kimenet";
while (<input>)
(
chomp;
@ fields \u003d split /, /, $ _;
$ key1 \u003d $ területeken [0];
elterelési @ területeken;
while (defined ($ területeken [0]))
(
for ($ i \u003d 1; $ i <7; $ i + +)
(
if (defined ($ területeken [0]))
(
$ tart [$ i] \u003d $ területeken [0];
elterelési @ területeken;
)
vagy
(
utoljára;
)
)
$ x \u003d join "," @ tartsa;
$ array1 ($ key1) \u003d $ x;
print OUTPUT "$ key1 $ array1 ($ key1) \ n";
@ tartsa \u003d ();
)
)
szoros INPUT;
KIMENETI közelében;