Привет,
Про�ьба руковод�тва мне в пи�ьменном виде оболочки программы дл� �ледующих требований:
Пример: е�ли входной файл �одержит данные follwing

Входные данные файла:
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
Справочна� информаци�: по�ле первого �толбца каждые 6 колонок определены как один setand первый �толбец �вл�ет�� ключом дл� идентификации запи�ей.

Я конвертировать данные ра�пределили�ь �ледующим образом:
Выходные данные файла:
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



Спа�ибо заранее,
srinivas

В�е, что Вы попробовали �еб� еще и как о пер�пективных и зде�ь на вашей �об�твенной вме�то ожидани� по почте, когда "работа" заканчивает��?! Извините пер�онала, но �то звучит грубить мне.

Привет Zaxxon,
В данном формате, который � дал �то заключительный �тап, когда на �амом деле ударил IAM, до приведени� его на �той �транице прочего разделить фактиче�ких файл на два файла и определение первой колонке.

�апи�ал � �тот вопро�, когда IAM �мог продолжить ..

Я не понимаю, где она была грубо PLS объ��нить ..

До�таточно отправить �вой адре� �лектронной почты и � про�ьбой получить информацию, когда мы �делали вашу работу.
Люди зде�ь помогают от удоволь�тви� / �о�традани� / на�троение / �куку незави�имо. �икто не получает заплатил за него так, как вы напи�али не�колько требует неуме�тным.

Я на �амом деле не означает, что она ...

Как � понимаю ваши проблемы, и�пользу� Perl (и вашей выборки данных) Я �читаю, что �то да�т вам то, что вы хотите.

#! / USR / BIN /Perl
мо� @ обла�т�х;
мо� @ проведени�;
мо� $ key1;
мо� $ X;
мо� $ I;
открыть INPUT, "<file6";
открыть OUTPUT, "> outfile";
а (<INPUT>)
(
chomp;
@ \u003d обла�т�х �плит /, /, $ _;
$ \u003d $ key1 обла�т�х [0];
@ �двиг полей;
а (определено ($ пол�х [0]))
(
за ($ i \u003d 1; $ I <7; $ I + +)
(
е�ли (определен ($ пол�х [0]))
(
$ удерживайте [$ I] \u003d $ пол�х [0];
@ �двиг полей;
)
еще
(
по�леднего;
)
)
$ X \u003d при�оединит�� ",", @ проведени�;
array1 $ ($ key1) \u003d $ X;
Вер�и� дл� печати OUTPUT "$ key1 $ array1 ($ key1) \ N";
@ прове�ти \u003d ();
)
)
закрыть вход;
закрыть выход;