Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Дописка в файл 
V
    Опции темы
Throne
Дата 24.7.2006, 12:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 147
Регистрация: 10.5.2006

Репутация: нет
Всего: 2
Подскажите как в конец файла текстового вписывать строки. Тоесть формируется некая таблица и вставляется в конец HTML файла. Поиск юзал ниче толкового не нашел. 
--------------------
Компьютер — это наредкость тупая вещь, но считает с феноменальной скоростью. 
PM MAIL   Вверх
igorold
Дата 24.7.2006, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 557
Регистрация: 22.12.2005
Где: Россия->Урал-& gt;Миасс

Репутация: 3
Всего: 17
открыть файл, чтобы в него можно было дописать информацию можно так:
Код

open my $DebugFile, '>>', $DebugFileName or die  "Error opening debug file $!";

но если ты динамически формируешь HTML-страницу - это совсем другое ... ты скорее всего не так видишь свою проблему ... подумай точно - чего ты хочешь ...  


--------------------
... у семи нянек 14 сисек ...  
Putin here, Putin there, Putin almost everywhere!
PM MAIL   Вверх
korob2001
Дата 24.7.2006, 13:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61
Код

open (F, ">> test.html") or die $!;

print F "строка";

close(F);


Добавлено @ 13:09 
Опс.. Пока писал, уже ответили.  smile  


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Throne
Дата 24.7.2006, 14:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 147
Регистрация: 10.5.2006

Репутация: нет
Всего: 2
korob2001 Спасибо мне это и надо было. Просто в том руководстве где я читал про это почемуто вместо >> было указано »  smile 
igorold Спасибо за помощь. Мне нужна именно страница на диске, а не в оперативке. 
Щас думаю, проще защитить от несанкционированного доступа файл в HTML или в PL. smile   

Это сообщение отредактировал(а) Throne - 24.7.2006, 14:11
--------------------
Компьютер — это наредкость тупая вещь, но считает с феноменальной скоростью. 
PM MAIL   Вверх
Throne
Дата 24.7.2006, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 147
Регистрация: 10.5.2006

Репутация: нет
Всего: 2
Соответственно, чтобы содержимое файла пихнуть в переменную, нужно делать так?
Код

open (F, "< test.html") or die $!;

$filetext = <F>

close(F);

print "$filetext\n";


Добавлено @ 14:42 
Нет не так, так тока первая строка считываецца, а вот так весь файл:
Код

#!/usr/bin/perl
print "Content-Type: text/html\n\n";

open (F, "< ../www/test.html") or die $!;

@a = <F>;
$filetext = join(/ /, @a);

close(F);

print "$filetext\n";
 
--------------------
Компьютер — это наредкость тупая вещь, но считает с феноменальной скоростью. 
PM MAIL   Вверх
rcdimon
Дата 24.7.2006, 18:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2
Можно проще сделать чтение всего файла в переменную.

Код

open (F, "../www/test.html") || die $!;
     $/ = undef;
     $filetext = <F>;
close(F);

print "$filetext\n"; 
  

Это сообщение отредактировал(а) rcdimon - 24.7.2006, 18:09
PM MAIL ICQ   Вверх
nitr
Дата 24.7.2006, 19:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84
rcdimon, желательно в локал сделать переменную smile
строку 2.   -   
Код
$/ = undef;

писать как 
Код
local $/;
 


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
rcdimon
Дата 24.7.2006, 20:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2
Ну да. но смысл не меняется от этого smile 
PM MAIL ICQ   Вверх
nitr
Дата 24.7.2006, 23:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84
Цитата
Ну да. но смысл не меняется от этого smile

если бы.. если бы... 


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0669 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.