forum.opennet.ru - "перл: поиск подстроки

форумы

помощь

поиск

регистрация

майллист

ВХОД

слежка

"перл: поиск подстроки - непойму :("

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

"перл: поиск подстроки - непойму :("
Сообщение от gexa on 01-Фев-03, 12:25 (MSK)
Не могу врубиться как на перле сделать следующее: Есть файл, я в цикле перебераю поочередно все строки - while <FILE> { $line=$_; } Задача такова: необходимо сделать так, если встретилась в строке определенная комбинация симолов, то в переменную $key заносить эту строку- но не всю целиком, а определенную ее часть определяемую условию. Пример: ФАЙЛ: _____________________________ qwerty ytruiuy FOO: bar treopg X#hello#X bfdbuifewwe jifsd erew _____________________________ После прохода всего цикла в переменной $key1 должно быть bar а в переменной key2 должно быть hello. По принципу что кей1 реагирует на появление подстроки FOO: и пишет в кей1 все что после FOO: А в кей2 заноситься все что находится между X# и #X Подскажите, как это выполнить. Большое всем спасибо.
	Рекомендовать в FAQ \| Cообщить модератору \| Наверх

Оглавление

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

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

1. "RE: перл: поиск подстроки - непойму :("

Сообщение от 1 on 01-Фев-03, 12:44 (MSK)

if ($line=~/.*\:(.*)/){
$key1=$1
}elsif ($line=~/X\#(.*)\#X/){
$key2=$1
}

Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

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

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

Партнёры:

Хостинг:

1. "RE: перл: поиск подстроки - непойму :("
Сообщение от 1 on 01-Фев-03, 12:44 (MSK)
if ($line=~/.\:(.)/){ $key1=$1 }elsif ($line=~/X\#(.*)\#X/){ $key2=$1 }
	Рекомендовать в FAQ \| Cообщить модератору \| Наверх