Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

Еще 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 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.03 c
1-15045
SaperXL
2002-12-24 06:05
2003.01.06
Explorer


3-14909
race1
2002-12-13 07:28
2003.01.06
dbgrid


1-14972
LORD
2002-12-23 23:16
2003.01.06
как задействовать процедуру объявленную в другом модуле


14-15237
Виктор Щербаков
2002-12-15 15:02
2003.01.06
Обеденный перерыв


8-15169
Aric
2002-09-18 19:09
2003.01.06
Скроллинг изображения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский