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

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

"I need HELP!!! :((((("
Сообщение от Skorpi on 07-Мрт-01, 20:44  (MSK)
Народ, как сделать на перле поиск в файле определенной строки,вернуть ее номер tell и убить все до нее. Заранее Спасибо!!!
	Рекомендовать в FAQ | Cообщить модератору | Наверх

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

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

1. "RE: I need HELP!!! :((((("
Сообщение от Yuri A. Kabaenkov on 10-Мрт-01, 03:09  (MSK)
Вот скрипт, но он не работает с тяжелыми строками. Он не был отлажен. Возможные сбои. Возможен вариант грамотней, это было написано за минуту не думая. #!/usr/bin/perl $file = "./1.pl"; $string = "cookie_jar"; @a = (); open (A, "<$file"); @a = <A>; close(A); open (B, ">$file"); $nomer = 0; $i = 0; foreach $a (@a) { if ($a =~ /$string/) { $nomer = $i; } $i++; } $c = 0; foreach $b (@a) { print B $b if ($c >= $nomer); $c++; } close(B);
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

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

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