введение в perl

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

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

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


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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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

- использование библиотеки mime-base64
- практическое применение perl-скриптов
- Perl для чайников от ns
- аутентификация пользователей через веб-интерфейс
- Perl для веб-мастера

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

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

• Средства структурного анализа и проектирования систем
• Классификация case-средств
• Case-технология проектирования программного обеспечения информационных систем
• Технология intranet
• Технологии Internet
• Средства доступа к базам данных
• Средства быстрой разработки прикладных программ
• Объектно-ориентированный подход к созданию программных средств
• Этапы проектирования при разработке программного продукта
• Интегрированная программная среда поддержки дистанционного обучения «МатЛог»