Скачать: CL | DM;

Еще 1 вопрос по Перлу   Найти похожие ветки 

← →
Феликс ©   (2002-12-15 17:18) [0]

1. Допустим есть файл, а в нем текст (вернее цифры):

1
0
3
4
7
0

Мне надо написать функцию, которая добавит к 3 строке единицу (т.е в результате в 3 строке после прибавления должна быть 4). На самом деле мне надо уметь добавлять 1 к любым строкам, но если объясните как добавить 1 к 3 строке, то по аналогии можно разобраться как добавлять единицу к любой строке.
В принципе понятно, что нужно открыть файл, взять значение 3 строки, прибавить 1 и записать это новое значение в тот же файл, но вот как это сделать я не знаю :(

2. Допустим есть таблица:

Название группы|Кол-во людей | Мужчин | Женщин |
1 группа 35 20 15
2 группа 40 20 20

Таблица в htm файле (сама страница и таблица первоначально генерируется скриптом)! Нужно как-то менять значения в таблице. Например, поменять кол-во людей с 35 на 33, кол-во мужчин с 20 на 19, а женщин с 15 на 14.
Причем сделать надо это по средствам скрипта. Такая задча как-то решается в форумах, там меняется число показывающее сколько людей просмотрели страницу. Как такое сделать?

p.s Очень нужны исходники!

---

← →
Оливейра ©   (2002-12-15 21:12) [1]

open(IN, "tst.txt"); my @file = (<IN>);
@file = map { ++$_ } @file; open(OUT, ">tst1.txt"); print OUT join("\n", @file);

Это для всех строчек.
===
fido7.ru.perl (если герр ЧупрИна не пошлет...)

---

← →
Оливейра ©   (2002-12-15 21:14) [2]

open(IN, "tst.txt");
open(OUT, ">tst1.txt");
print OUT join("\n", map { ++$_} (<IN>));

Так короче.

---

← →
Феликс ©   (2002-12-15 23:36) [3]

Не! Спасибо конечно! Но мне нужно добавлять не ко всем, а только к конкретным строкам.

---

← →
Феликс ©   (2002-12-16 23:32) [4]

Не верю что никто не знает! Подскажите, а!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c