Главная Контакты


  На сайте

  Java, JavaScript
  Документация Perl
  Документация PHP
  Документация ASP
  Новости сайта
  Flash
  Интернет протоколы
  Apache
  Уроки программирования
  Язык программирования C
 


введение в perl


Пример: Добавление в конец файла

Запись в существующий файл проста, когда вы хотите добавить новую информацию в конец файла. Например, для добавления данных о новом пользователе в созданный выше файл вам потребуется следующий скрипт:
# Определяем переменную, содержащую путь к записываемому файлу
$targetfile = "c:webserverhtdocsmynewpage.html";
# Открываем файл, используя идентификатор NEWINFO
open (NEWINFO, ">>$targetfile");
# Добавляем новые данные в файл:
print NEWINFO "nn";
print NEWINFO "Имя: ", $input{'user_name'},"n<br>";
print NEWINFO "Компания: ", $input{'co_name'},"n<br>";
print NEWINFO "Телефон: ", $input{'phone'},"n</p>n<p><hr></p>n";
close (NEWINFO);
Пример: Добавление в середину существующего файла

Более сложной задачей является вставка новых данных в середину файла. Обратите внимание, что в первом примере мы вставили в файл линию комментария, выглядящую следующим образом:
<!-- NEW INSERTS GO HERE -->


Этот комментарий будет служить нам меткой места, в которое нужно вставлять новые данные. Данный пример содержит не совсем изящное решение, но прост в реализации и понимании. Он использует временный файл, хотя можно обойтись и без него:
# Определяем переменную, содержащую путь к исходному файлу
$origfile = "/pathname/originalfile.htm";
# Определяем переменную, содержащую путь к временному файлу
$newfile = "/pathname/newfile.htm";
open(INFILE, "<$origfile");
open(OUTFILE, ">$newfile");
while ($line = <INFILE>) {
printf OUTFILE $line;
if ($line =~ /<!-- NEW INSERTS GO HERE -->/i) {
# Добавляем новые данные в файл:
print OUTFILE "nn";
print OUTFILE "Имя: ", $input{'user_name'},"n<br>";
print OUTFILE "Компания: ", $input{'co_name'},"n<br>";
print OUTFILE "Телефон: ", $input{'phone'},"n</p>n<p><hr></p>n";
}
}
# Закрываем файлы
close(INFILE);
close(OUTFILE);
# Удаляем исходный файл и переименовываем новый в исходный
unlink($origfile);
rename($newfile, $origfile);

Другие статьи по теме:

- повышение индивидуального мастерства дизайнера
- ставим пароль на страницу
- использование библиотеки mime-base64
- введение в perl
- практическое применение perl-скриптов


Голосование:
Чего Вы хотели бы видеть больше на сайте?

Статей, документации
Скриптов
Программ для вебмастера
Я не знаю



Другие голосования

Обмен кнопочками:



Приглашаем Вас обменяться кнопочками! Обращайтесь к администратору.


Новые статьи:


Наши партнеры:





2006-2020 © SMTI.RU
Главная страница | Связаться с нами