форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Помогите со скриптом !!!"
Сообщение от McFly on 21-Сен-01, 17:00  (MSK)
Который день не могу проблему решить: нужно в файле с данными типа: 010918 121321546 010919 466655 010920 546233 010921 6546546 Переодически удалять строку начало которой совпадает с $data, первая часть строки - это год, мес. и день. Т.е. если есть такая строка она удаляется, а на ее место записывается другая. Пример реализации: open(traf,"</path/to/file) or die $!; @a=grep(!/$data/,<traf>); close(traf); open(traf,">/path/to/file) or die $!; printf traf @a; close(traf); Не работает почему-то, все что со второй строки в файле удаляет :-( Может есть другие варианты ?
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: Помогите со скриптом !!!"
Сообщение от Vasja on 21-Сен-01, 18:01  (MSK)
Детский сад какой-то !!! man sh man awk man sed man perl .... КНИЖКИ ЧИТАЙ! Две недели дурацкие вопрсы задаешь. Давно написАл бы.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "RE: Помогите со скриптом !!!"
Сообщение от mrAngel on 21-Сен-01, 18:05  (MSK)
moget po drugomu? open(traf,"</path/to/file) or die $!; @a=<traf>; close(traf); open(traf,">/path/to/file) or die $!; while <traf> { print traf if !/$data/; } close(traf); ???
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "RE: Помогите со скриптом !!!"
	Сообщение от mrAngel on 21-Сен-01, 18:09  (MSK)
	tfu blin, smorozil toge... tama v seredine: "while <traf>" zameni na "while $_=@a" vrode tak
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "RE: Помогите со скриптом !!!"
	Сообщение от mrAngel on 21-Сен-01, 18:17  (MSK)
	koroche v itoge: open(traf,"</path/to/file") or die $!; @a=<traf>; close(traf); open(traf,">/path/to/file") or die $!; while ($_=$a[$i]) { $i++; print traf if !/$data/; } close(traf);
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "RE: Помогите со скриптом !!!"
	Сообщение от nubi on 22-Сен-01, 17:06  (MSK)
	Вы что, обалдели, ему ПЕРИОДИЧЕСКИ:) open(FILE,"|tail -f /path/ti/file") or die; while(<FILE>){ unless m/date/ print $_;} nohup Этот_Скрипт & перл все сам закроет.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "RE: Помогите со скриптом !!!"
	Сообщение от nubi on 22-Сен-01, 17:08  (MSK)
	Я на всякий извенюсь, "обалдели" касается файлов размером мег в 300-800.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.