введение в 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'},"n

n";
close (NEWINFO);
Пример: Добавление в середину существующего файла

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

Этот комментарий будет служить нам меткой места, в которое нужно вставлять новые данные. Данный пример содержит не совсем изящное решение, но прост в реализации и понимании. Он использует временный файл, хотя можно обойтись и без него:
# Определяем переменную, содержащую путь к исходному файлу
$origfile = "/pathname/originalfile.htm";
# Определяем переменную, содержащую путь к временному файлу
$newfile = "/pathname/newfile.htm";
open(INFILE, "<$origfile");
open(OUTFILE, ">$newfile");
while ($line = ) {
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'},"n

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

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

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

• установка php и apache на *nux
• собираем apache + php + xml для linux
• синтаксис .htaccess
• модуль mod_rewrite. часть 4
• модуль mod_rewrite. часть 3
• модуль mod_rewrite. часть 2
• модуль mod_rewrite. часть 1
• Apache + php + xml + mysql для windows
• вебсервер в домашних условиях
• протокол hdlc