ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  26 Oct 2000  13:12:34
 To : Andrew Perevodchik
 Subject : Re: Файл с именами и значениями
 -------------------------------------------------------------------------------- 
 

 AP> Ребята,  у  меня, похоже, уже крыша поехала подвечер... Есть текстовый
 AP> файл вида:
 
 AP> Bob = 234
 AP> Mary = 235
 AP> Frank = 83672947
 
 AP> Как _просто_ можно заменить значение какой-либо строки, если имя (Bob,
 AP> Mary  или  Frank) есть в $name, на, скажем, 000? Я уже так извращаюсь,
 AP> но  ведь чувствую, что легко делается. Кому не влом -- ответте. (Я так
 AP> понял,  оптимально  через  хеш делать... убуйте -- не могу сообразить,
 AP> как  хеш  в  таком  виде  записать  в файл, что б в конце файла небыло
 AP> пустой строки)
 
 Просто - system("perl -i -pe 's/($name = )(\\d+)/\${1}000/' $filename");
 
 По-человечески - 
 
 open(IN,"< $filename");
 open(OUT,"> $filename.new");
 while (<IN>) {
   s/($name = )(\d+)/${1}000/;
   print OUT $_;
 }
 close OUT;
 close IN;
 rename "$filename.new", $filename;
 
 Проверка ошибок по вкусу.
 
 AP> И  ещё  вопрос...  так  как  всё-таки  сделать  так,  что б мой скрипт
 AP> запускался  на  сервере  (не  моём,  а  с  халявным  хостингом)  через
 AP> определенный  интервал  времени  (скажем,  3 минуты)? Говорили тут про
 AP> cron... (что это? какая-то программа?
 
 Да.
 
 AP> какова вероятность того, что она
 AP> установлена  на  сервере  с  халявным  хостингом?).
 
 1, если это юникс. Hо нет гарантии, что тебе разрешено ею пользоваться.
 
 AP> Есть  ли гуманные
 AP> решения такой задачи?
 
 Есть. Перестать мучить ею эту эху и начать мучить ею админа того сервера.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор