|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Denis Roshchin 2:5020/400 30 Jun 2001 00:35:57 To : All Subject : Re: Сумма чмсел. -------------------------------------------------------------------------------- > Помогите пожaлуйcтa cо cкpиптом. Еcть 4-6 фaйлов в них зaпиcaно чиcло 3-12 > знaчное. Haдо что бы cкpипт cуммиpовaл чиcлa из этих фaйлов и зaпиcывaл его в > новый. $n = 0; while($n < 4) { open(FileH,"filename.$n"); $line[$n] = <FileH>; close(FileH); $n++; } $linesum = $line[0] + $line[1] + $line[2] + $line[3]; Hу вроде так... Это ненмого общий скрипт. (если фаилы - filename.0, filename.1 etc.. и если их число посотоянное) Про "конкретные" нужды сказано небыло :)). -- #Denis Roshchin #denis@komkon.org #www.komkon.org/~denis/ --- ifmail v.2.15dev5 * Origin: MTU-Intel ISP (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/91042c313fe6.html, оценка из 5, голосов 10
|