|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alexey Borisov 2:5020/400 30 Mar 2001 02:08:03 To : All Subject : Re: Voprs. --------------------------------------------------------------------------------
"Владимиp Гpебнев" wrote:
> 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 ....;
Где в исходном скрипте читается TRG?
Причем здесь print "Content-type: text/html\n\n"?
Зачем ты выводишь содержимое new.txt на STDOUT количество раз,
равное количеству строк в neo.txt?
Ты сам смысл того, что написал, понял?
Зачем фигню всякую советовать не разобравшись?
--
Best regards,
Alexey
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/5515aa7b3b27.html, оценка из 5, голосов 10
|