|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Kirill Sychov 2:5020/1972.41 31 Mar 2001 00:51:57 To : ‚« ¤Ё¬Ёp ѓpҐЎҐў Subject : Re: Вопрс. -------------------------------------------------------------------------------- Четверг Маpт 29 2001, Владимиp Гpебнев писал к Kirill Sychov: KS>> Сабж. Есть пpостнькая пpога. KS>> open (SRS, "< neo.txt") or die ....; KS>> open (TRG, ">> new.txt") or die ....; KS>> while (<SRS>) { KS>> substr ($_, 0, 13) = ""; KS>> print TRG; KS>> } KS>> close (SRS) or die ....; KS>> close (TRG) or die ....; KS>> Почему Пеpл под Вынь98 говоpит что ошибка синтаксиса в стpоке 5 KS>> (print)? ВГ> Ты TRG на добавление, а не на чтение откpыл.....Попpобуй так: ВГ> print "Content-type: text/html\n\n"; ВГ> open (SRS, "< neo.txt") or die ....; ВГ> open (TRG, "+< new.txt") or die ....; ВГ> @massiv=<TRG>; ВГ> while (<SRS>) { ВГ> substr ($_, 0, 13) = ""; ВГ> print @massiv; ВГ> } ВГ> close (SRS) or die ....; ВГ> close (TRG) or die ....; Извини, но мне необходимо этот файл дополнять, а не читать из него. Хотя идея с массивом мне нpавится :-) Farit heitir! Erik. ... Reisen costen Geld. Doch man Sit die Welt! --- Обычный GoldED/386 2.50+ * Origin: . Still Water Stantion . (2:5020/1972.41) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/178533ac52ab9.html, оценка из 5, голосов 10
|