|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 24 Apr 2002 14:07:42
To : Oleg Medinskiy
Subject : Re: Запись в тхт и считывание как ини файл?
--------------------------------------------------------------------------------
Здравствуй, Oleg Medinskiy.
OM> Привет!
OM> Задаю вопрос понятнее
OM> Есть текстовый файл с такими строками
OM> sdf=5
OM> dfgd=8
OM> xcbx=3
OM> cjn=2
OM> так вот нужно чтобы при кликаньи на допустим картинку в скрипт передался
OM> параметр допустим 1, при этом скрипт открывает текстовый файл ищет
OM> строку допустим cjn=2 и прибавляет 2+1 и сохраняет файл?
OM> Текст должен выглядеть после процедурыдопустим как
OM> sdf=5
OM> dfgd=8
OM> xcbx=3
OM> cjn=3
OM> Вопрос как найти определенный текст cjn=3, считать значение 3, сделать
OM> манипуляции допустим добавить 1,
OM> и сохранить в тот же файл в туже строку-переменную cjn ?
my $key = 'cjn'; # как ты получаешь 'cjn' - ты не спрашивал...
open(F,"< $file") or die $!;
flock(F,LOCK_EX);
open(FF,"> $file.new") or die $!;
while (<F>) {
s/^(\Q$key\E=)(\d+)/$1.($2+1)/e;
print FF $_ or die $!;
}
close(FF) or die $!;
rename("$file.new",$file) or die $!;
close(F) or die $!;
Hа вопросы, почему используется временный файл, и почему close(F) происходит
после переименования, не отвечаю, бо это не сюда, а куда-нибудь для чайников в
программировании. Да, за работу в такой ситуации под виндой не отвечаю. Под
юниксом никто не мешает удалить открытый файл...
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
